paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 15:52:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: debugging for liboverlay grab_add/current problem

Browse Source 
git-svn-id: trunk@37243 -
This commit is contained in:
mattias 2012-05-10 14:58:41 +00:00
parent a75cb7fc80
commit 2cd8c83f80
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2extrah.inc
View File

@ -240,6 +240,8 @@ function gtk_icon_view_get_visible_range(tree_view: PGtkTreeView; out start_path
procedure gtk_tree_view_column_queue_resize(tree_column: PGtkTreeViewColumn); cdecl; external gtklib;
{$endif}
const
GDK_WINDOW_OFFSCREEN_lcl = 6; // ToDo: move to fpc
{$ifdef GTK_2_10}
function gdk_screen_is_composited(screen: PGdkScreen): gboolean; cdecl; external gdklib;
{$endif}

18
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -8276,6 +8276,9 @@ function TGtk2WidgetSet.SetCapture(AHandle: HWND): HWND;
var
Widget: PGtkWidget;
CaptureWidget: PGtkWidget;
{$IfDef VerboseMouseCapture}
toplevel: PGtkWidget;
{$EndIf}
begin
Widget := {%H-}PGtkWidget(AHandle);
{$IfDef VerboseMouseCapture}
@ -8321,11 +8324,22 @@ begin
{$EndIf}
{$IfDef VerboseMouseCapture}
DebugLn('TGtk2WidgetSet.SetCapture gtk_grab_add=[',GetWidgetDebugReport(CaptureWidget),']');
DebugLn(['TGtk2WidgetSet.SetCapture gtk_grab_add=[',GetWidgetDebugReport(CaptureWidget),'] has_grab=',gtk_widget_has_grab(CaptureWidget),' is_sensitive=',gtk_widget_is_sensitive(CaptureWidget)]);
toplevel := gtk_widget_get_toplevel(CaptureWidget);
if (toplevel<>nil)
and (ord(gdk_window_get_window_type (toplevel^.window)) = GDK_WINDOW_OFFSCREEN_lcl)
then begin
debugln(['WARNING: TGtk2WidgetSet.SetCapture capturewidget is offscreen']);
end;
// Note: liboverlay: gtk_grab_add sets gtk_widget_has_grab, but gtk_grab_get_current returns nil
// ToDo: check window group
{$EndIf}
gtk_grab_add(CaptureWidget);
{$IfDef VerboseMouseCapture}
DebugLn('TGtk2WidgetSet.SetCapture gtk=[',GetWidgetDebugReport(gtk_grab_get_current),']');
if gtk_grab_get_current=CaptureWidget then
DebugLn('TGtk2WidgetSet.SetCapture success gtk_grab_get_current=[',GetWidgetDebugReport(gtk_grab_get_current),']')
else
DebugLn('WARNING: TGtk2WidgetSet.SetCapture failed gtk_grab_get_current=[',GetWidgetDebugReport(gtk_grab_get_current),']');
{$EndIf}
MouseCaptureWidget := CaptureWidget;