From ce21b83729a93a6c0c2f50446b2b0523eaad54bf Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Wed, 13 Mar 2019 07:39:28 +0000
Subject: [PATCH] EgtCAM5 : - gestito caso senza lingue o con lingua errata che
 impediva l'avvio del programma.

---
 .../RawPartOption/RawPartOptionV.xaml                | 12 ++++++------
 OptionsWindow/OptionModule.vb                        |  6 ++++++
 2 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/RawPartOption/RawPartOptionV.xaml b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/RawPartOption/RawPartOptionV.xaml
index d35a4e9..acaa68d 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/RawPartOption/RawPartOptionV.xaml
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/RawPartOption/RawPartOptionV.xaml
@@ -7,7 +7,7 @@
       <CheckBox Content="Move with Fixture" IsChecked="{Binding MoveWithFixture, Mode=TwoWay}"/>
       <UniformGrid Columns="2" Margin="0,5,0,0">
          <Button Content="New" Command="{Binding NewRawPartCommand}"/>
-         <Button Content="Remove" Command="{Binding RemoveRawPartCommand}"/>
+         <Button Content="Remove"/> <!--Command="{Binding RemoveRawPartCommand}"-->
       </UniformGrid>
       <Grid Visibility="{Binding RawPartParamVisibility, Mode=OneWay}">
          <Grid.RowDefinitions>
@@ -19,21 +19,21 @@
          </Grid.RowDefinitions>
          <UniformGrid Grid.Row="0" Columns="2">
             <TextBlock Text="{Binding LenghtMsg}"/>
-            <TextBox Text="{Binding Lenght}"/>
+            <TextBox/> <!--Text="{Binding Lenght}"-->
          </UniformGrid>
          <UniformGrid Grid.Row="1" Columns="2">
             <TextBlock Text="{Binding WidthMsg}"/>
-            <TextBox Text="{Binding Width}"/>
+            <TextBox/> <!--Text="{Binding Width}"-->
          </UniformGrid>
          <UniformGrid Grid.Row="2" Columns="2">
             <TextBlock Text="{Binding HeightMsg}"/>
-            <TextBox Text="{Binding Height}"/>
+            <TextBox/> <!--Text="{Binding Height}"-->
          </UniformGrid>
          <UniformGrid Grid.Row="3" Columns="2">
             <TextBlock Text="{Binding PositionMsg}"/>
-            <TextBox Text="{Binding Position}"/>
+            <TextBox/> <!--Text="{Binding Position}"-->
          </UniformGrid>
-         <Button Grid.Row="4" Content="Ok" Command="{Binding OkCommand}"/>
+         <Button Grid.Row="4" Content="Ok"/> <!--Command="{Binding OkCommand}"-->
       </Grid>
    </StackPanel>
    
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index a496cba..d3b3c67 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -52,7 +52,13 @@ Friend Module OptionModule
          nIndex += 1
          ReadLanguage = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
       End While
+      If nIndex = 1 Then
+         EgtOutLog("Error missing languages section in Config.ini")
+         MessageBox.Show( "Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         End
+      End If
       ' Inizializzo la lingua corrente
+      OptionModule.m_SelectedLanguage = OptionModule.m_LanguageList(0)
       Dim sMsgName As String = String.Empty
       GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgName)
       For Each Language In OptionModule.m_LanguageList