paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 10:32:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

reverted change to comboboxes since it didn't fix the problem

Browse Source 
git-svn-id: trunk@10964 -
This commit is contained in:
andrew 2007-04-17 21:16:40 +00:00
parent 583e16ce0a
commit 773f9c00df
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -761,12 +761,6 @@ begin
LCLSendDropDownMsg(TControl(WidgetInfo^.LCLObject));
end;
function GtkComboButtonPressCB(AWidget: PGtkWidget; Event: PGdkEventButton; ComboBox: PGtkComboBox): Boolean;
begin
Result := False;
gtk_combo_box_popup(ComboBox);
end;
procedure GtkChangedCB(AWidget: PGtkWidget; WidgetInfo: PWidgetInfo); cdecl;
begin
if WidgetInfo^.UserData <> nil then Exit;
@ -832,7 +826,6 @@ begin
// Anything?
end;
g_signal_connect(AButton, 'button_press_event', TGCallback(@GtkComboButtonPressCB), AWidget);
g_signal_connect(APrivate^.popup_widget, 'show', TGCallback(@GtkPopupShowCB), AWidgetInfo);
g_object_set_data(G_OBJECT(AWidget), 'Menu', APrivate^.popup_widget);
end;