From d144a76cee1a5731c94e0654564f85c6909f8ce8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jorge=20Carri=C3=B3n=20Molpeceres?= <shordi@gmail.com>
Date: Mon, 11 Mar 2019 20:34:44 +0000
Subject: [PATCH] Update FWorkspace.class

---
 .../gb.form.mdi/.src/Workspace/FWorkspace.class | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class b/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
index d19fbf075..431247f21 100644
--- a/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
+++ b/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
@@ -1,5 +1,6 @@
 ' Gambas class file
-Property CloseButton As Boolean
+
+public CloseButton As Boolean 
 
 Private $aWindow As New CWindow[]
 Private $hCurrent As CWindow
@@ -15,7 +16,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
 
@@ -534,7 +535,7 @@ Public Sub UpdateSize()
 
   Endif
 
-  If $CloseButton Then 
+  If CloseButton Then 
     tabWorkspace.CloseButton = $aWindow.Count >= 1
   Else 
     tabWorkspace.CloseButton = False
@@ -1049,14 +1050,4 @@ Public Sub IsCloseWithMouse() As Boolean
   
 End
 
-Private Function CloseButton_Read() As Boolean
 
-  Return $CloseButton
-
-End
-
-Private Sub CloseButton_Write(Value As Boolean)
-
-  $CloseButton = Value
-
-End