luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update FWorkspace.class

Browse Source
This commit is contained in:
Jorge Carrión Molpeceres 2019-03-11 20:34:44 +00:00
parent 2c6944c285
commit d144a76cee
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
View File

@ -1,5 +1,6 @@
' Gambas class file ' Gambas class file
Property CloseButton As Boolean
public CloseButton As Boolean
Private $aWindow As New CWindow[] Private $aWindow As New CWindow[]
Private $hCurrent As CWindow Private $hCurrent As CWindow
@ -15,7 +16,7 @@ Private $bNoClose As Boolean
Private $iLock As Integer Private $iLock As Integer
Private $bBorder As Boolean = True Private $bBorder As Boolean = True
Private $nDetach As Integer Private $nDetach As Integer
Private $CloseButton As Boolean = True
Private Enum CLOSE_ALL, CLOSE_OTHER, CLOSE_RIGHT Private Enum CLOSE_ALL, CLOSE_OTHER, CLOSE_RIGHT
Private $hImage As Image Private $hImage As Image
@ -534,7 +535,7 @@ Public Sub UpdateSize()
Endif Endif
If $CloseButton Then If CloseButton Then
tabWorkspace.CloseButton = $aWindow.Count >= 1 tabWorkspace.CloseButton = $aWindow.Count >= 1
Else Else
tabWorkspace.CloseButton = False tabWorkspace.CloseButton = False
@ -1049,14 +1050,4 @@ Public Sub IsCloseWithMouse() As Boolean
End End
Private Function CloseButton_Read() As Boolean
Return $CloseButton
End
Private Sub CloseButton_Write(Value As Boolean)
$CloseButton = Value
End