From 43beb754485f30e2fed1ba27eca066a79e593031 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 18 Aug 2002 08:54:23 +0000
Subject: [PATCH] MG: fixed TComboBox and InvalidateControl

git-svn-id: trunk@2804 -
---
 lcl/interfaces/gtk/gtklistsl.inc | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtklistsl.inc b/lcl/interfaces/gtk/gtklistsl.inc
index 63781cec02..63d83f58b9 100644
--- a/lcl/interfaces/gtk/gtklistsl.inc
+++ b/lcl/interfaces/gtk/gtklistsl.inc
@@ -189,7 +189,6 @@ procedure TGtkListStringList.Insert(Index : integer; const S : string);
 var li : PGtkWidget;
   l, m, r, cmp: integer;
 begin
-//writeln('[TGtkListStringList.Insert] Index=',Index,' Count=',Count,' ',S);
   if FSorted then begin
     l:=0;
     r:=Count-1;
@@ -211,6 +210,12 @@ begin
   if (Index < 0) or (Index > Count) then 
     raise Exception.Create('TGtkListStringList.Insert: Index '+IntToStr(Index)
       +' out of bounds. Count='+IntToStr(Count));
+
+  // ToDo:
+  //  - CustomDraw needs expose/draw events
+  //  - Icons
+  //  - measure item
+  
   li:=gtk_list_item_new_with_label(PChar(S));
   gtk_widget_show(li);
   gtk_list_insert_items(FGtkList, g_list_append(nil, li), Index);
@@ -399,6 +404,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.6  2002/08/29 00:07:02  lazarus
+  MG: fixed TComboBox and InvalidateControl
+
   Revision 1.5  2002/05/10 06:05:57  lazarus
   MG: changed license to LGPL