From 60515a6cef02edd0ccab823569f10238c26f10c7 Mon Sep 17 00:00:00 2001 From: graemeg Date: Thu, 13 Sep 2007 10:45:08 +0000 Subject: * CoreLib: fpgApplication now has a Terminated property which terminates the main event loop and application. Halt was just to harsh and objects never got freed. * GUI: Added a new INI Utils unit which introduces ReadOnly ini support and can also save a form's state and position. You access the ini file via the gINI singleton function. fpGUI Designer uses this. * All example project now free there main forms correctly. * Many bug fixes in GUI Designer. GUI Designer now also remembers the size and location of most forms. * Many of the GUI Designer forms are now maintained by the GUI Designer itself. * GUI Designer: Started implementing a Recent Files feature so it is quicker to open frequently used files. --- src/corelib/x11/gfx_x11.pas | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'src/corelib/x11') diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index d27a834c..23df9cbb 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -526,6 +526,7 @@ begin if FDisplay = nil then Exit; //==> + Terminated := False; DefaultScreen := XDefaultScreen(Display); RootWindow := XRootWindow(FDisplay, DefaultScreen); DefaultBackground := XBlackPixel(FDisplay, DefaultScreen); @@ -1101,13 +1102,16 @@ end; procedure TfpgWindowImpl.DoSetWindowVisible(const AValue: Boolean); begin - if AValue then begin - if not HandleIsValid then AllocateWindowHandle; + if AValue then + begin + if not HandleIsValid then + AllocateWindowHandle; XMapWindow(xapplication.Display, FWinHandle); Include(FWinFlags, xwsfMapped); end - else begin - if HandleIsValid and (xwsfMapped in FWinFlags) then + else + begin + if HandleIsValid and (xwsfMapped in FWinFlags) then XUnmapWindow(xapplication.Display, FWinHandle); end; end; -- cgit v1.2.3-70-g09d2