Imports EgtUILib

Public Class SaveNameWD

   ' Riferimento alla MainWindow
   Private m_MainWindow As MainWindow = Application.Current.MainWindow

   Sub New(Owner As Window)
      Me.Owner = Owner
      InitializeComponent()
   End Sub

   Private Sub SaveNameWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
      Me.Top = Owner.Top + Owner.Height / 2 - Me.Height / 2
      Me.Left = Owner.Left + Owner.Width / 2 - Me.Width / 2
      SaveNameTxbl.Text = "Nome del progetto da salvare"
   End Sub

   Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
      ' Eseguo salvataggio
      m_MainWindow.m_CurrentProjectPageUC.SaveNameProject()
      m_MainWindow.m_CurrentProjectPageUC.SaveProject()
      EgtDraw()
   End Sub

End Class