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

gtk2: verbosity for ubuntu liboverlay mouse capture bug

Browse Source 
git-svn-id: trunk@37034 -
This commit is contained in:
mattias 2012-04-26 13:58:47 +00:00
parent 2a2ff5bd9d
commit 1a21dd05cd
2 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8298,7 +8298,27 @@ begin
exit;
CaptureWidget := GetDefaultMouseCaptureWidget(Widget);
if CaptureWidget = nil then exit;
if CaptureWidget = nil then begin
{$IfDef VerboseMouseCapture}
DebugLn('TGtk2WidgetSet.SetCapture GetDefaultMouseCaptureWidget failed for widget=[',GetWidgetDebugReport(Widget),']');
{$EndIf}
exit;
end;
{$IfDef VerboseMouseCapture}
// ubuntu liboverlay intercepts gtk_grab_add for LCLWinapiClient
// ToDo: find out how to grab LCLWinapiClient with ubuntu liboverlay
if GtkWidgetIsA(Widget,GTK_TYPE_SCROLLED_WINDOW) then
begin
debugln(['TGtk2WidgetSet.SetCapture AAA1 is api widget ',
' widget=',GetWidgetClassName(Widget),
' container.container.focus_child=',GetWidgetClassName(PGtkScrolledWindow(Widget)^.container.container.focus_child),
' container.child=',GetWidgetClassName(PGtkScrolledWindow(Widget)^.container.child),
'']);
debugln(['TGtk2WidgetSet.SetCapture gtk_widget_is_sensitive=',gtk_widget_is_sensitive(CaptureWidget)]);
debugln(['TGtk2WidgetSet.SetCapture gtk_widget_has_grab=',gtk_widget_has_grab (CaptureWidget)]);
//CaptureWidget:=PGtkScrolledWindow(Widget)^.container;
end;
{$EndIf}
{$IfDef VerboseMouseCapture}
DebugLn('TGtk2WidgetSet.SetCapture gtk_grab_add=[',GetWidgetDebugReport(CaptureWidget),']');

3
lcl/interfaces/gtk2/gtk2winapiwindow.pp
View File

@ -1016,9 +1016,6 @@ function GTKAPIWidget_new: PGTKWidget;
var
APIWidget: PGTKAPIWidget;
begin
// MWE: IMO the arguments can't work since we supply the adjustments as nil
// for gtk2 newv doesn't exist so the decision is easy
// TODO: check if we still need to pass the args in gtk1
Result := gtk_widget_new(GTKAPIWidget_GetType, nil, []);
APIWidget := PGTKAPIWidget(Result);