summaryrefslogtreecommitdiff
path: root/src/corelib
diff options
context:
space:
mode:
Diffstat (limited to 'src/corelib')
-rw-r--r--src/corelib/x11/fpg_x11.pas4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 046f10ce..71f06d39 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -2287,6 +2287,10 @@ begin
if not HandleIsValid then
AllocateWindowHandle;
XMapWindow(xapplication.Display, FWinHandle);
+
+ if (Parent = nil) and (WindowType <> wtPopup) then
+ XMoveWindow(fpgApplication.Display, FWinHandle, FLeft, FHeight);
+
Include(FWinFlags, xwsfMapped);
// Fullscreen can only be set visible (mapped) windows.
if waFullScreen in FWindowAttributes then