From 5c8dad6974b751bc09735c60dbb2eddf2f313bea Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 16 Sep 2005 08:58:06 +0000
Subject: [PATCH] fixed gtk2 listbox setborder to TODO

git-svn-id: trunk@7713 -
---
 lcl/interfaces/gtk/gtkwsstdctrls.pp   | 26 ++++++--------------------
 lcl/interfaces/gtk2/gtk2wsstdctrls.pp |  3 ++-
 2 files changed, 8 insertions(+), 21 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkwsstdctrls.pp b/lcl/interfaces/gtk/gtkwsstdctrls.pp
index edd74929c4..f43bd343e5 100644
--- a/lcl/interfaces/gtk/gtkwsstdctrls.pp
+++ b/lcl/interfaces/gtk/gtkwsstdctrls.pp
@@ -487,26 +487,12 @@ var
   Widget: PGtkWidget;// pointer to gtk-widget
 begin
   Handle := ACustomListBox.Handle;
-  if (ACustomListBox.fCompStyle in [csListBox, csCheckListBox]) then
-  begin
-    { In TempWidget, a viewport is stored }
-    Widget:= PGtkWidget(PGtkBin(Handle)^.child);
-    if ACustomListBox.BorderStyle = TBorderStyle(bsSingle)
-    then
-      gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_IN)
-    else
-      gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_NONE);
-  end else 
-  if ACustomListBox.fCompStyle = csCListBox then
-  begin
-    if ACustomListBox.BorderStyle = TBorderStyle(bsSingle)
-    then
-      gtk_viewport_set_shadow_type(
-        PGtkViewPort(PGtkBin(Handle)^.Child), GTK_SHADOW_NONE)
-    else
-      gtk_viewport_set_shadow_type(
-        PGtkViewPort(PGtkBin(Handle)^.Child), GTK_SHADOW_IN);
-  end;
+  Widget:= PGtkWidget(PGtkBin(Handle)^.child);
+  if ACustomListBox.BorderStyle = TBorderStyle(bsSingle)
+  then
+    gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_IN)
+  else
+    gtk_viewport_set_shadow_type(PGtkViewPort(Widget), GTK_SHADOW_NONE);
 end;
 
 procedure TGtkWSCustomListBox.SetItemIndex(const ACustomListBox: TCustomListBox;
diff --git a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
index 9ab0f40599..cb9c8a28a5 100644
--- a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
+++ b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
@@ -319,7 +319,8 @@ end;
 
 procedure TGtk2WSCustomListBox.SetBorder(const ACustomListBox: TCustomListBox);
 begin
-  inherited SetBorder(ACustomListBox);
+  // TODO
+  debugln('TGtk2WSCustomListBox.SetBorder TODO');
 end;
 
 procedure TGtk2WSCustomListBox.SetItemIndex(