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/DoorsPanel/DoorsPanelView.xaml

@@ -13,6 +13,8 @@
       </Button>
       <Button Command="{Binding DMachCommand}" Style="{StaticResource GridViewPanelButton}"
          Width="55" Content="DMACH"/>
+      <Button Command="{Binding MTableDbCommand}" ToolTip="{Binding MTableToolTip}"
+         Style="{StaticResource GridViewPanelButton}" Width="65" Content="MTABLE" Visibility="Collapsed"/>
    </StackPanel>
 
 </UserControl>

ProjectPage/DoorsPanel/DoorsPanelViewModel.vb

@@ -15,6 +15,7 @@ Namespace EgtCAM5
       Private m_cmdDoors As ICommand
       Private m_cmdDMach As ICommand
       Private Shared m_cmdOpenMruDoor As ICommand
+      Private m_cmdMTableDb As ICommand
 
 #Region "COMMANDS"
 
@@ -101,6 +102,34 @@ Namespace EgtCAM5
 
 #End Region ' DMachCommand
 
+#Region "MTableDbCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property MTableDbCommand As ICommand
+         Get
+            If m_cmdMTableDb Is Nothing Then
+               m_cmdMTableDb = New RelayCommand(AddressOf MTableDb)
+            End If
+            Return m_cmdMTableDb
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub MTableDb(ByVal param As Object)
+         Dim MTableDbWindow As New MTableDbView
+         MTableDbWindow.Height = 614
+         MTableDbWindow.Width = 1024
+         MTableDbWindow.DataContext = New MTableDbViewModel
+         MTableDbWindow.Owner = Application.Current.MainWindow
+         MTableDbWindow.ShowDialog()
+      End Sub
+
+#End Region    ' MTableDbCommand
+
 #End Region
 
    End Class