Update FWorkspace.class

parent 523effc9
' 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
tabWorkspace.CloseButton = $aWindow.Count >= 1
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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment