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

Workspace: Raise the CloseAll event after the close all button has been clicked.

Browse source 
[GB.FORM.MDI]
* NEW: Workspace: Raise the CloseAll event after the close all button has been clicked.
This commit is contained in:
gambas 2017-12-03 18:10:05 +01:00
parent 3fcc897729
commit 0b73beec1d
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
View file

@ -573,6 +573,8 @@ Private Sub CloseWindows(iMode As Integer)
'CheckWindow
{Unlock}
If iMode = CLOSE_ALL Then GetParent()._RaiseCloseAll()
End
Public Sub mnuCloseOther_Click()

8
comp/src/gb.form.mdi/.src/Workspace/Workspace.class
View file

@ -12,6 +12,7 @@ Event Activate
Event Close({Window} As Window)
Event Attach({Window} As Window)
Event Detach({Window} As Window)
Event CloseAll
Property ActiveWindow As Window
Property Read Windows As Window[]
@ -133,6 +134,13 @@ Public Sub _RaiseDetach(hWindow As Window)
End
Public Sub _RaiseCloseAll()
Raise CloseAll
End
' Private Function ShowTitle_Read() As Boolean
'