From 2c13e3911bc6f0be5658602f2e8acd6291e2ca6c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 30 Aug 2008 21:08:21 +0000
Subject: [PATCH] gtk1 intf: combobox: implemented OnGetItems

git-svn-id: trunk@16312 -
---
 lcl/interfaces/gtk/gtkcomboboxcallback.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkcomboboxcallback.inc b/lcl/interfaces/gtk/gtkcomboboxcallback.inc
index 85982c0f45..4c99217c89 100644
--- a/lcl/interfaces/gtk/gtkcomboboxcallback.inc
+++ b/lcl/interfaces/gtk/gtkcomboboxcallback.inc
@@ -18,9 +18,13 @@
 function gtkComboBoxShowAfter(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
 var
   Mess : TLMCommand;
+  AComboBox: TCustomComboBox;
 begin
   Result := True;
   EventTrace('ComboBoxShowAfter', data);
+
+  AComboBox:=TObject(Data) as TCustomComboBox;
+  AComboBox.IntfGetItems;
   
   if (Widget=nil) then ;
   FillChar(Mess,SizeOf(Mess),0);