From 442741d1881bcf97e9f57718a134b8060424ebe7 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 9 Nov 2007 08:44:44 +0000
Subject: [PATCH] gtk2: memo should have border

git-svn-id: trunk@12796 -
---
 lcl/interfaces/gtk2/gtk2wscustommemo.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/gtk2/gtk2wscustommemo.inc b/lcl/interfaces/gtk2/gtk2wscustommemo.inc
index a2687f91b6..1d9efb0796 100644
--- a/lcl/interfaces/gtk2/gtk2wscustommemo.inc
+++ b/lcl/interfaces/gtk2/gtk2wscustommemo.inc
@@ -116,6 +116,9 @@ begin
   gtk_scrolled_window_set_policy(PGtkScrolledWindow(Widget),
                                      GTK_POLICY_AUTOMATIC,
                                      GTK_POLICY_AUTOMATIC);
+  // add border for memo
+  gtk_scrolled_window_set_shadow_type(PGtkScrolledWindow(Widget), GTK_SHADOW_ETCHED_IN);
+  
   SetMainWidget(Widget, TempWidget);
   GetWidgetInfo(Widget, True)^.CoreWidget := TempWidget;