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

Qt: fixed problems with modal and popup windows over modal windows with Mint's Marco window manager (Mate desktop).

Browse Source 
git-svn-id: trunk@41346 -
This commit is contained in:
zeljko 2013-05-22 08:09:14 +00:00
parent 40eaa7dc2a
commit 919ce9cbea
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -6108,8 +6108,10 @@ begin
end else
if not QWidget_isModal(Widget) then
begin
if (QtWidgetSet.WindowManagerName = 'metacity') and not IsMDIChild then
X11Raise(QWidget_winID(Widget))
if ((QtWidgetSet.WindowManagerName = 'metacity') or
(QtWidgetSet.WindowManagerName = 'marco')) and
not IsMDIChild then
X11Raise(QWidget_winID(Widget))
else
QWidget_raise(Widget);
end;
@ -17025,7 +17027,7 @@ begin
QWidget_show(Widget);
{$IFDEF HASX11}
if (QtWidgetSet.WindowManagerName = 'metacity') then
if (QtWidgetSet.WindowManagerName = 'metacity') or (QtWidgetSet.WindowManagerName = 'marco') then
X11Raise(QWidget_winID(Widget));
{$ENDIF}

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -5683,7 +5683,7 @@ var
W: QWidgetH;
begin
{$IFDEF HASX11}
if WindowManagerName = 'metacity' then
if (WindowManagerName = 'metacity') or (WindowManagerName = 'marco') then
W := X11GetActivewindow
else
W := QApplication_activeWindow();

5
lcl/interfaces/qt/qtwsforms.pp
View File

@ -422,7 +422,8 @@ begin
{$ifdef HASX11}
if ((QtWidgetSet.WindowManagerName = 'kwin') and IsOldKDEInstallation) or
(QtWidgetSet.WindowManagerName = 'xfwm4') or
(QtWidgetSet.WindowManagerName = 'metacity') then
(QtWidgetSet.WindowManagerName = 'metacity') or
(QtWidgetSet.WindowManagerName = 'marco') then
begin
W := nil;
ActiveWin := GetActiveWindow;
@ -537,7 +538,7 @@ begin
SetSkipX11Taskbar(Widget.Widget, True);
Widget.setShowInTaskBar(False);
end;
if (QtWidgetSet.WindowManagerName = 'metacity') then
if (QtWidgetSet.WindowManagerName = 'metacity') or (QtWidgetSet.WindowManagerName = 'marco') then
X11Raise(QWidget_winID(Widget.Widget));
end else
if (TForm(AWinControl).FormStyle = fsSplash) then