* Fixed bug where program crashed if MainMenu contains no items and you click on it.

* Fixed bug where components can't be created and Visible = False.

4 files changed, 10 insertions, 6 deletions

diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index 72014f3c..24d69381 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -261,7 +261,7 @@ begin
 
   inherited Create(AOwner);
 
-  // This is for components that are create at runtime, after it's
+  // This is for components that are created at runtime, after it's
   // parent has already been shown.
   if (Parent <> nil) and (Parent.HasHandle) then
   begin
@@ -532,15 +532,16 @@ var
   c: TComponent;
 begin
   FOnScreen := True;
-  FVisible := True;
+//  FVisible := True;
 
   AllocateWindowHandle;
-  DoSetWindowVisible(True);
+  DoSetWindowVisible(FVisible);
 
   for n := 0 to ComponentCount - 1 do
   begin
     c := Components[n];
-    if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) then
+    if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) and
+      (TfpgWidget(c).FOnScreen = False) then
       TfpgWidget(c).HandleShow;
   end;
 end;
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas
index cb29ffaf..d507ecb5 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/gfx_x11.pas
@@ -1314,7 +1314,7 @@ begin
   if HandleIsValid then
     Exit; //==>
 
-  if aparent <> nil then
+  if AParent <> nil then
     pwh := TfpgWindowImpl(AParent).WinHandle
   else
     pwh := xapplication.RootWindow;
@@ -1328,7 +1328,6 @@ begin
   end;
 
   AdjustWindowStyle;
-
   wh := XCreateWindow(xapplication.Display, pwh,
     FLeft, FTop, FWidth, FHeight, 0,
     CopyFromParent,
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index a284ae54..4ac0ac63 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -242,6 +242,7 @@ begin
   ModalResult     := 0;
 
   Show;
+
   // processing messages until this form ends.
   // delivering the remaining messages
   fpgApplication.ProcessMessages;
diff --git a/src/gui/gui_menu.pas b/src/gui/gui_menu.pas
index 7d665e93..bd6f10a2 100644
--- a/src/gui/gui_menu.pas
+++ b/src/gui/gui_menu.pas
@@ -418,6 +418,9 @@ var
   newf: integer;
 begin
   inherited HandleLMouseDown(x, y, shiftstate);
+  
+  if ComponentCount = 0 then
+    Exit; // We have no menu items in MainMenu.
 
   if not Focused then
     ActivateMenu;