diff --git a/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class b/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class index 3043c31d7..635247e55 100644 --- a/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class +++ b/comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class @@ -573,6 +573,8 @@ Private Sub CloseWindows(iMode As Integer) 'CheckWindow {Unlock} + If iMode = CLOSE_ALL Then GetParent()._RaiseCloseAll() + End Public Sub mnuCloseOther_Click() diff --git a/comp/src/gb.form.mdi/.src/Workspace/Workspace.class b/comp/src/gb.form.mdi/.src/Workspace/Workspace.class index f1487f6fd..66f6a1859 100644 --- a/comp/src/gb.form.mdi/.src/Workspace/Workspace.class +++ b/comp/src/gb.form.mdi/.src/Workspace/Workspace.class @@ -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 '