Imports EgtUILib

Public Class ExtremityVM
   Inherits SceneUserControlVM

#Region "CONSTRUCTOR"

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

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

      LoadParamList()
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Public Overrides Sub LoadParamList()
      ' Scegli quale estremità vincolare
      AddGenericParam(New _TextBlockParam(EGT_MESSAGE, EgtMsg(110047), ParamType.STR))
      Dim ExtremityOptionList As New List(Of ParamCmBx)({New ParamCmBx("Start"),
                                                         New ParamCmBx("End")})
      ' Estremità
      AddGenericParam(New _ComboBoxParam(EgtMsg(110046), ExtremityOptionList, 0, Visibility.Visible))
   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_ExtremityUC)
      SolidManagerM.ManageUndoRedo()
   End Sub

#End Region    ' Methods

End Class