Imports EgtUILib

Public Class LengthVM
   Inherits SceneUserControlVM

#Region "CONSTRUCTOR"

   Public Sub New()
      MyBase.New()
      Title = EGT_ADDCONSTRAINT.ToUpper()

      DirectCast(Map.refSceneButtonVM.m_LengthUC, SceneUserControlV).Preview.Visibility = Visibility.Hidden
      DirectCast(Map.refSceneButtonVM.m_LengthUC, SceneUserControlV).Annulla.Visibility = Visibility.Hidden

      LoadParamList()
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Public Overrides Sub LoadParamList()
      ' Inserisci Lunghezza
      AddGenericParam(New _TextBlockParam(EGT_MESSAGE, EgtMsg(110045), ParamType.STR))
      ' Lunghezza
      AddGenericParam(New _TextBoxParam(EgtMsg(110044), 0, ParamType.DOUB, Visibility.Visible, True))
   End Sub

   Public Overrides Sub Conferma()
      LoadEditParametric()
      Close()
   End Sub

   Public Overrides Sub ShowPreview()
   End Sub

   Public Overrides Sub Annulla()
      Close()
   End Sub

   Private Sub Close()
      Map.refSceneButtonVM.RemoveUC(Map.refSceneButtonVM.m_LengthUC)
      SolidManagerM.ManageUndoRedo()
   End Sub

#End Region    ' Methods

End Class