EgtDOORCreator 1.8e7 :

- alla chiusura del programma viene chiesto se veramente si vuole uscire dal programma;
- aggiornamento delle pagine html relative alla option page.

OptionsWindow/OptionsViewModel.vb

@@ -7,6 +7,7 @@ Public Class OptionsViewModel
 
    Dim m_rfMainWindowViewModel As MainWindowViewModel
    Dim m_rfCurrDoor As Door
+   ' serve per definire l'indirizzo per la guida (senza aggiungere l'estenzione!)
    Dim m_Chapter As String
 
    Public ReadOnly Property LanguageList As ObservableCollection(Of Language)
@@ -24,6 +25,7 @@ Public Class OptionsViewModel
             OptionModule.m_SelectedLanguage = value
             WritePrivateProfileString(S_GENERAL, K_MESSAGES, m_SelectedLanguage.Name)
          End If
+         m_Chapter = "language"
       End Set
    End Property
 
@@ -50,6 +52,7 @@ Public Class OptionsViewModel
             EgtSetUiUnits(OptionModule.m_bIsMmUnit)
             WritePrivateProfileString(S_SCENE, K_MMUNITS, If(OptionModule.m_bIsMmUnit, 1, 0).ToString)
          End If
+         m_Chapter = "unit_measure"
       End Set
    End Property
 
@@ -74,7 +77,7 @@ Public Class OptionsViewModel
                Case "Empty"
                   WritePrivateProfileString(S_LAUNCHERWINDOW, K_LAUNCHER, CStr(2))
             End Select
-
+            m_Chapter = "start_up"
          End If
       End Set
    End Property
@@ -108,7 +111,7 @@ Public Class OptionsViewModel
          Else
             Return
          End If
-         m_Chapter = "bevel_up.html"
+         m_Chapter = "bevel_up"
       End Set
    End Property
 
@@ -137,6 +140,7 @@ Public Class OptionsViewModel
          Else
             Return
          End If
+         m_Chapter = "bevel_down"
       End Set
    End Property
 
@@ -148,6 +152,7 @@ Public Class OptionsViewModel
       Set(value As String)
          OptionModule.m_Width = value
          DefaultWritePrivateProfileString(S_SIZE, K_WIDTH_INI, OptionModule.m_Width)
+         m_Chapter = "general"
       End Set
    End Property
 
@@ -767,9 +772,9 @@ Public Class OptionsViewModel
    Public Sub F1Guide()
       Dim rfGuideViewModel As New GuideViewModel
       If String.IsNullOrEmpty(m_Chapter) Then
-         GuideViewModel.m_AddressGuide = "2_6.html"
+         GuideViewModel.m_AddressGuide = "option_page"
       Else
-         GuideViewModel.m_AddressGuide = m_Chapter
+         GuideViewModel.m_AddressGuide = "OptionPage\" & m_Chapter
       End If
       m_rfMainWindowViewModel.ProjectManagerViewModel.Guide()
    End Sub