he "Show menubar" menu is now a toggle.

[DEVELOPMENT ENVIRONMENT]
* NEW: The "Show menubar" menu is now a toggle.
* NEW: Redraw the "module" and "class" icons.

app/src/gambas3/.src/FMain.class

@@ -1204,6 +1204,7 @@ Public Sub ReadConfig()
   wrkProject.CloseWithMouse = Settings["/CloseWithMiddleClick", False]
 
   Me.Menus.Visible = Settings["/ShowMenus", True]
+  UpdateShowMenubar
   
   UpdateWorkspaceButtons
   UpdatePropertyButtons
@@ -1280,8 +1281,8 @@ Public Sub UpdateMenu()
   Endif
   Action["gui"].Visible = bVisible
   
-  btnShowMenu.Visible = Not Me.Menus.Visible
-  btnShowMenu.Raise
+  'btnShowMenu.Visible = Not Me.Menus.Visible
+  'btnShowMenu.Raise
   
 End
 
@@ -2091,14 +2092,21 @@ Public Sub mnuClearDebugWindows_Click()
   
 End
 
+Private Sub UpdateShowMenubar()
+
+  mnuHideMenu.Checked = Me.Menus.Visible
+
+End
+
 Public Sub mnuHideMenu_Click()
   
   If Me.Menus.Visible Then
     Me.Menus.Hide
     'sepMenu.Hide
-    btnShowMenu.Show
+    'btnShowMenu.Show
     Settings["/ShowMenus"] = Me.Menus.Visible
     'Message.Optional(Subst(("To show the menu bar again, hit the following keys:<p><b>&1</b>"), mnuHideMenu.Shortcut), ("OK"), "HideMenu", "menu", Settings["/AlwaysDisplayOptionalMessages"])
+    UpdateShowMenubar
   Else
     btnShowMenu_Click
   Endif
@@ -2109,8 +2117,9 @@ Public Sub btnShowMenu_Click()
   
   Me.Menus.Show
   'sepMenu.Show
-  btnShowMenu.Hide
+  'btnShowMenu.Hide
   Settings["/ShowMenus"] = Me.Menus.Visible
+  UpdateShowMenubar
   
 End
 

app/src/gambas3/.src/FMain.form

@@ -436,8 +436,10 @@
       Visible = False
     }
     { mnuHideMenu Menu
-      Text = ("Hide menubar")
+      Text = ("Show menubar")
       Picture = Picture["icon:/small/menu"]
+      Toggle = True
+      Checked = True
       Shortcut = "Ctrl+Alt+M"
     }
     { Menu3 Menu
@@ -1095,12 +1097,6 @@
       Action = "until"
       Picture = Picture["icon:/small/jump"]
     }
-    { btnShowMenu ToolButton
-      MoveScaled(98,0,4,4)
-      Visible = False
-      ToolTip = ("Show menubar")
-      Picture = Picture["icon:/small/menu"]
-    }
     { Panel3 Panel
       MoveScaled(102,0,1,4)
     }