EgtCAM5 :

- Migliorie varie.
2016-07-12 09:30:28 +00:00
parent f9b9ec90cb
commit 7fb1cea165
4 changed files with 85 additions and 5 deletions
@@ -519,6 +519,10 @@ Namespace EgtCAM5
         Application.Msn.Register(Application.EXECUTECOMMAND, Sub(sString As Controller.CMD)
                                                                 m_Controller.ExecuteCommand(sString)
                                                              End Sub)
+         Application.Msn.Register(Application.MANAGEMODIFIED, Sub()
+                                                                 Dim AllowClose = m_Controller.ManageModified()
+                                                                 Application.Msn.NotifyColleagues(Application.ALLOWWINDOWTOCLOSE, AllowClose)
+                                                              End Sub)
      End Sub

      Sub RegisterMainWindowCommands()