EgtCAM5 :

- modifiche varie.

MainWindow/MainWindowViewModel.vb

@@ -21,16 +21,6 @@ Namespace EgtCAM5
       Private m_sIniFile As String = String.Empty
       Private m_nDebug As Integer = 0
       Private m_nUserLevel As Integer = 1
-      'Private m_bShowGrid As Boolean
-      'Private m_bShowGridFrame As Boolean
-      'Private m_bCPlaneTypePos As Boolean
-      'Private m_bMmUnits As Boolean
-      'Private WithEvents m_Controller As New Controller
-      'Private m_MruFiles As New MruList
-      'Private m_MruScripts As New MruList
-      'Private m_bStopExec As Boolean = False
-      'Private m_ProcEventsCallback As New ProcessEventsCallback(AddressOf ProcessEvents)
-      'Private m_OutTextCallback As New OutTextCallback(AddressOf OutText)
 
       ' EGALTECH ENVIRONMENT FIELDS WITH PROPERTY
 
@@ -69,6 +59,7 @@ Namespace EgtCAM5
                m_SelectedTab = value
                OnPropertyChanged("SelectedTab")
                If TypeOf value Is ProjectViewModel Then
+                  EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
                   ProjectPageSelected = True
                Else
                   ProjectPageSelected = False
@@ -129,6 +120,7 @@ Namespace EgtCAM5
          TabList.Add(New ToolsDbViewModel)
          TabList.Add(New MachiningsDbViewModel)
          SelectedTab = TabList(0)
+         OnPropertyChanged("SelectedTab")
       End Sub
 
 #End Region
@@ -344,40 +336,6 @@ Namespace EgtCAM5
          Dim sLuaBaseLib As String = String.Empty
          GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib)
          EgtLuaRequire(sLuaBaseLib)
-         '' imposto unità di misura per interfaccia utente
-         'm_bMmUnits = (GetPrivateProfileInt(S_SCENE, K_MMUNITS, 1, m_sIniFile) <> 0)
-         'UpdateStatusUnits()
-         '' imposto visualizzazione riferimento globale
-         'Dim bShowGlobFrame As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWGFRAME, 1, m_sIniFile) <> 0)
-         'EgtSetGlobFrameShow(bShowGlobFrame)
-         '' imposto i dati della griglia
-         'LoadGridData()
-         '' imposto stato di visualizzazione della griglia
-         'm_bShowGrid = (GetPrivateProfileInt(S_GRID, K_SHOWGRID, 1, m_sIniFile) <> 0)
-         'm_bShowGridFrame = (GetPrivateProfileInt(S_GRID, K_SHOWFRAME, 1, m_sIniFile) <> 0)
-         'UpdateStatusGrid()
-         '' imposto tipo coordinate
-         'm_bCPlaneTypePos = True
-         'Scene1.SetGridCursorPos(m_bCPlaneTypePos)
-         '' modo di visualizzazione
-         'Dim nShowMode As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWMODE, SM.SHADING, m_sIniFile)
-         'If nShowMode = SM.WIREFRAME Then
-         '   btnWireFrame.Checked = True
-         'ElseIf nShowMode = SM.HIDDENLINE Then
-         '   btnHiddenLine.Checked = True
-         'Else
-         '   btnShading.Checked = True
-         'End If
-         '' visualizzazione direzione curve
-         'Dim nShowCurveDir As Integer = GetPrivateProfileInt(S_SCENE, K_CURVEDIR, 0, m_sIniFile)
-         'chkCurveDir.Checked = (nShowCurveDir <> 0)
-         '' visualizzazione avanzata dei triangoli costituenti le superfici
-         'Dim bShowTriaAdv As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1, m_sIniFile) <> 0)
-         'EgtSetShowTriaAdv(bShowTriaAdv)
-         '' ObjTree non selezionato
-         'm_nObjTreeOldId = GDB_ID.NULL
-         '' nascondo input box
-         'ResetInputBox()
          '' aggiungo voce per about box nel menù di sistema
          'Dim hSysMenu As IntPtr = GetSystemMenu(Handle, False)
          'If hSysMenu <> IntPtr.Zero Then