EgtCAM5 :

- Aggiunta possibilità di getire progressbar e output message presenti nella StatusBar da LUA.
- Inizio scrittura della struttura per MTables.
- Aggiunta la possibilità di aggiungere nuovi gruppi di lavorazione.
- Gestita uscita da NewMachiningCmd(in OperationList) con Esc.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -31,10 +31,10 @@ Namespace EgtCAM5
                   EgtDraw()
                   ' Blocco la lista operazioni
                   IsEnabledOperationList = False
-                  ' Abilito ed apro l'expander con l'albero delle lavorazioni
-                  Application.Msn.NotifyColleagues(Application.MACHININGTREEVIEWEXPANDERISENABLED, True)
                   ' Abilito la selezione di curve e superfici del pezzo
                   Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, SceneSelModeOpt.PARTCURVESANDSURFACES)
+                  ' Abilito ed apro l'expander con l'albero delle lavorazioni
+                  Application.Msn.NotifyColleagues(Application.MACHININGTREEVIEWEXPANDERISENABLED, True)
                Else
                   ' Deseleziono eventuali geometrie selezionate
                   EgtDeselectAll()
@@ -600,7 +600,9 @@ Namespace EgtCAM5
          Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
                                                                      If NewMachining Then NewMachining = False
                                                                   End Sub)
-
+         Application.Msn.Register(Application.CANCELOPERATIONCOMMAND, Sub()
+                                                                         CancelOperation(String.Empty)
+                                                                      End Sub)
       End Sub
 
 #Region "COMMANDS"
@@ -669,6 +671,15 @@ Namespace EgtCAM5
       ''' Execute the Point.  This method is invoked by the PointCommand.
       ''' </summary>
       Public Sub CancelOperation(ByVal param As Object)
+         ' se viene premuto il tasto Esc
+         If DirectCast(param, String) = "Escape" Then
+            If m_NewMachining Then
+               NewMachining = False
+               ListIsExpanded = True
+            End If
+            Return
+         End If
+         ' in tutti gli altri casi
          If m_NewMachining Then
             NewMachining = False
             ListIsExpanded = True