From f2def4d859c6c78d2bc1ca5585ce80f894a4ae82 Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Sun, 10 Jul 2016 13:35:23 +0000 Subject: [PATCH] EgtCAM5 : - Migliorie varie. --- MachiningsDbPage/MachiningsDbViewModel.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/MachiningsDbPage/MachiningsDbViewModel.vb b/MachiningsDbPage/MachiningsDbViewModel.vb index e999f16..238c437 100644 --- a/MachiningsDbPage/MachiningsDbViewModel.vb +++ b/MachiningsDbPage/MachiningsDbViewModel.vb @@ -27,8 +27,8 @@ Namespace EgtCAM5 Set(value As Machine) If value IsNot m_SelectedMachine Then m_SelectedMachine = value - 'EgtSetCurrentContext(IniFile.m_ProjectSceneContext) - EgtSetCurrMachine(m_SelectedMachine.Name) + EgtSetCurrentContext(IniFile.m_ProjectSceneContext) + Dim x = EgtSetCurrMachine(m_SelectedMachine.Name) IniFile.m_sDbsCurrMachIniFilePath = m_SelectedMachine.MachineDirPath & "\" & m_SelectedMachine.Name & ".ini" 'IniFile.m_sTdbCurrMachToolsDirPath = m_SelectedMachine.MachineDirPath & "\Tools" m_MachiningsList.Clear()