paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 07:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix button focusing (bug #0012705)

Browse Source 
git-svn-id: trunk@18227 -
This commit is contained in:
paul 2009-01-09 17:48:56 +00:00
parent e70dbcf2b1
commit 326ab3f248
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1649,7 +1649,7 @@ class procedure TGtk2WSButton.SetCallbacks(const AGtkWidget: PGtkWidget;
const AWidgetInfo: PWidgetInfo);
begin
TGtkWSWinControl.SetCallbacks(PGtkObject(AGtkWidget), TComponent(AWidgetInfo^.LCLObject));
SignalConnect(AWidgetInfo^.ClientWidget, 'clicked', @Gtk2WSButton_Clicked, AWidgetInfo);
SignalConnect(AWidgetInfo^.CoreWidget, 'clicked', @Gtk2WSButton_Clicked, AWidgetInfo);
end;
{
@ -1687,8 +1687,8 @@ begin
{ The WidgetInfo is important for the form designer }
WidgetInfo := CreateWidgetInfo(Pointer(Result), Button, AParams);
WidgetInfo^.CoreWidget := EventBox;
WidgetInfo^.ClientWidget := BtnWidget;
WidgetInfo^.CoreWidget := BtnWidget;
WidgetInfo^.ClientWidget := EventBox;
//DebugLn(['TGtk2WSButton.CreateHandle ',GetWidgetInfo(EventBox)=WidgetInfo,' ',GetWidgetInfo(EventBox)^.ClientWidget=BtnWidget]);
// gtk_object_set_data(PGtkObject(Result), 'widgetinfo', WidgetInfo);
SetMainWidget(EventBox, BtnWidget);