Update FWorkspace.class

comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class

@@ -1,4 +1,5 @@
 ' Gambas class file
+Property CloseButton As Boolean
 
 Private $aWindow As New CWindow[]
 Private $hCurrent As CWindow
@@ -14,7 +15,7 @@ Private $bNoClose As Boolean
 Private $iLock As Integer
 Private $bBorder As Boolean = True
 Private $nDetach As Integer
-
+Private $CloseButton As Boolean = True
 Private Enum CLOSE_ALL, CLOSE_OTHER, CLOSE_RIGHT
 Private $hImage As Image
 
@@ -533,7 +534,11 @@ Public Sub UpdateSize()
 
   Endif
 
+  If $CloseButton Then 
     tabWorkspace.CloseButton = $aWindow.Count >= 1
+  Else 
+    tabWorkspace.CloseButton = False
+  Endif
   
   'DEBUG tabWorkspace.Visible;; "Index =";; tabWorkspace.Index;; "ClientY =";; tabWorkspace.ClientY
 
@@ -1043,3 +1048,15 @@ Public Sub IsCloseWithMouse() As Boolean
   Return Not tabWorkspace.Closable
   
 End
+
+Private Function CloseButton_Read() As Boolean
+
+  Return $CloseButton
+
+End
+
+Private Sub CloseButton_Write(Value As Boolean)
+
+  $CloseButton = Value
+
+End