luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
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