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

fixed gtk2 event flags from Andrew Haines

Browse Source 
git-svn-id: trunk@7010 -
This commit is contained in:
mattias 2005-03-23 09:28:13 +00:00
parent 2e70a50c3a
commit b890419d5e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -213,11 +213,18 @@ begin
NewEventMask:=gdk_window_get_events(GetControlWindow(Widget))
or WinWidgetInfo^.EventMask;
{$IFNDEF Gtk1}
gtk_widget_add_events(Widget,NewEventMask);
{$ENDIF}
gdk_window_set_events(GetControlWindow(Widget),NewEventMask);
if (ClientWidget<>nil) and (GetControlWindow(ClientWidget)<>nil)
and (ClientWidget^.Window<>Widget^.Window) then begin
NewEventMask:=gdk_window_get_events(GetControlWindow(ClientWidget))
or WinWidgetInfo^.EventMask;
{$IFNDEF Gtk1}
gtk_widget_add_events(ClientWidget,WinWidgetInfo^.EventMask);
{$ENDIF}
gdk_window_set_events(GetControlWindow(ClientWidget),NewEventMask);
end;
//DebugLn('BBB1 ',DbgS(NewEventMask),8),' ',DbgS(Cardinal(gdk_window_get_events(Widget^.Window)));
@ -2977,6 +2984,9 @@ end;
{ =============================================================================
$Log$
Revision 1.276 2005/03/23 09:28:13 mattias
fixed gtk2 event flags from Andrew Haines
Revision 1.275 2005/03/11 15:35:49 mattias
implemented for gtk intf TFileDialog.FilterIndex from Jesus