From 36f75898ef9b69fe827f6f91ee74e9ff8f05140b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:08 +0000
Subject: [PATCH] added but not implemented ComboBoxDropDown

git-svn-id: trunk@2225 -
---
 lcl/interfaces/gtk/gtkobject.inc | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 863cf46db3..ab57d1d4e3 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -2324,8 +2324,13 @@ begin
             SetComboBoxItemIndex(TComboBox(Sender),Integer(Data));
 
           csListBox :
-            gtk_list_select_item(PGtkList(GetWidgetInfo(Pointer(Handle),
-                                   True)^.ImplementationWidget), Integer(Data));
+            if Integer(Data)>=0 then
+              gtk_list_select_item(
+                PGtkList(GetWidgetInfo(Pointer(Handle),True)^.ImplementationWidget),
+                Integer(Data))
+            else
+              gtk_list_unselect_all(
+                PGtkList(GetWidgetInfo(Pointer(Handle),True)^.ImplementationWidget));
 
           csCListBox:
             gtk_clist_select_row(PGtkCList(GetWidgetInfo(Pointer(Handle),
@@ -7214,6 +7219,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.352  2003/04/11 17:10:20  mattias
+  added but not implemented ComboBoxDropDown
+
   Revision 1.351  2003/04/11 12:48:07  mattias
   fixed gtk warning on setting item height