* 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.

1 files changed, 8 insertions, 4 deletions

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;