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

Gtk2: fixed alien configure events from composition manager (usually compiz). fixed #17523

Browse Source 
git-svn-id: trunk@27625 -
This commit is contained in:
zeljko 2010-10-08 18:47:02 +00:00
parent 9c51da2d7c
commit d9e439282b
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -148,6 +148,23 @@ begin
g_idle_remove_by_data(Data);
end;
{$IFDEF HASX}
function compositeManagerRunning: Boolean;
var
XDisplay: PDisplay;
WMAtom: TAtom;
begin
Result := False;
// who's running such old composition manager ?
if (gtk_major_version = 2) and (gtk_minor_version < 10) then
exit;
XDisplay := gdk_display;
WMAtom := XInternAtom(XDisplay,'_NET_WM_CM_S0', False);
if WMAtom > 0 then
Result := XGetSelectionOwner(XDisplay, WMAtom) <> 0;
end;
{$ENDIF}
function Gtk2FormEvent(widget: PGtkWidget; event: PGdkEvent; data: GPointer): gboolean; cdecl;
var
ACtl: TWinControl;
@ -171,6 +188,13 @@ begin
GetWidgetRelativePosition(PGtkWidget(ACtl.Handle), X, Y);
Result := (event^.configure.send_event = 1) and
not ((X <> ACtl.Left) or (Y <> ACtl.Top));
{$IFDEF HASX}
// fix for buggy compiz.
// see http://bugs.freepascal.org/view.php?id=17523
if compositeManagerRunning then
Result := False;
{$ENDIF}
end;
GDK_WINDOW_STATE:
begin
@ -252,7 +276,12 @@ begin
if (TWinControl(AWidgetInfo^.LCLObject).Parent = nil) and (TWinControl(AWidgetInfo^.LCLObject).ParentWindow = 0) then
with TGTK2WidgetSet(Widgetset) do
begin
SetCallback(LM_CONFIGUREEVENT, PGtkObject(AWidget), AWidgetInfo^.LCLObject);
{$IFDEF HASX}
// fix for buggy compiz.
// see http://bugs.freepascal.org/view.php?id=17523
if not compositeManagerRunning then
{$ENDIF}
SetCallback(LM_CONFIGUREEVENT, PGtkObject(AWidget), AWidgetInfo^.LCLObject);
SetCallback(LM_CLOSEQUERY, PGtkObject(AWidget), AWidgetInfo^.LCLObject);
SetCallBack(LM_ACTIVATE, PGtkObject(AWidget), AWidgetInfo^.LCLObject);
if (gtk_major_version = 2) and (gtk_minor_version <= 8) then
@ -762,7 +791,14 @@ begin
if (TControl(AWidgetInfo^.LCLObject).Parent = nil) then
with TGTK2WidgetSet(Widgetset) do
begin
SetCallback(LM_CONFIGUREEVENT, PGtkObject(AWidget), AWidgetInfo^.LCLObject);
{$note test with smaller minor versions and check where LM_CONFIGUREEVENT
is needed.}
{$IFDEF HASX}
// fix for buggy compiz.
// see http://bugs.freepascal.org/view.php?id=17523
if not compositeManagerRunning then
{$ENDIF}
SetCallback(LM_CONFIGUREEVENT, PGtkObject(AWidget), AWidgetInfo^.LCLObject);
end;
end;