Imports EgtWPFLib5
Imports EgtUILib

Class Application

   Friend Shared m_UpdateLayerTree As Boolean

   ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException can be handled in this file.
   Protected Overrides Sub OnStartUp(e As System.Windows.StartupEventArgs)
      MyBase.OnStartup(e)
      ShutdownMode = System.Windows.ShutdownMode.OnMainWindowClose
      ' Creo la View principale
      Dim MainWndView As New MainWindowV
      MainWindow = MainWndView
      System.Windows.Forms.Integration.ElementHost.EnableModelessKeyboardInterop(Me.MainWindow)
      ' Creo il ViewModel principale
      Dim MainWndViewModel As New MainWindowVM
      ' Assegno il ViewModel alla View
      MainWndView.DataContext = MainWndViewModel
      ' Mostro la View principale
      MainWndView.Show()
   End Sub

#Region "Messages"

   ' Generic messages
   Friend Const MAINWINDOW_CONTENTRENDERED As String = "MainWindow_ContentRendered"
   Friend Const MAINWINDOW_ACTIVATED As String = "MainWindow_Activated"
   Friend Const MAINWINDOW_DEACTIVATED As String = "MainWindow_Deactivated"
   Friend Const CLOSEAPPLICATIONCOMMAND As String = "CloseApplicationCommand"
   Friend Const CLOSEAPPLICATION As String = "CloseApplication"
   Friend Const PROJECTPAGE_SELECTED As String = "ProjectPage_Selected"
   Friend Const PROJECTPAGE_DESELECTED As String = "ProjectPage_Deselected"
   Friend Const DRAWMODE_ISCHECKED As String = "DrawMode_IsChecked"
   Friend Const MACHININGMODE_ISCHECKED As String = "MachiningMode_IsChecked"
   Friend Const RESETSTATUS As String = "ResetStatus"
   Friend Const LOADOPERATIONLIST As String = "LoadOperationList"
   Friend Const UPDATEMAINWINDOWTITLE As String = "UpdateMainWindowTitle"
   Friend Const EMITTITLE As String = "EmitTitle"
   Friend Const SETMACHININGMODE As String = "SetMachiningMode"
   Friend Const SETDRAWMODE As String = "SetDrawMode"
   Friend Const DBPANELVISIBILITY As String = "DbPanelVisibility"

   ' ProjectPage messages
   Friend Const NOTIFYCURRPOS As String = "NotifyCurrPos"
   Friend Const NOTIFYINPUTTEXT As String = "NotifyInputText"
   Friend Const NOTIFYSTATUSOUTPUT As String = "NotifyStatusOutput"
   Friend Const NOTIFYSTATUSPROGRESS As String = "NotifyStatusProgress"
   Friend Const NOTIFYSTATUSSTOP As String = "NotifyStatusStop"
   Friend Const UPDATESTATUSGRID As String = "UpdateStatusGrid"
   Friend Const LOADGRIDDATA As String = "LoadGridData"
   Friend Const MMUNITSCHANGED As String = "MmUnitsChanged"
   Friend Const SETSCENESELMODE As String = "SetSceneSelMode"
   Friend Const SETSCENESELTYPE As String = "SetSceneSelType"
   Friend Const SETMOVEINDISPOSITION As String = "SetMoveInDisposition"

   ' ShowPanel messages
   Friend Const WIREFRAME As String = "Wireframe"
   Friend Const HIDDENLINE As String = "HiddenLine"
   Friend Const SHADING As String = "Shading"
   Friend Const SHOWMODESTATE As String = "ShowModeState"
   Friend Const SHOWCURVEDIR As String = "ShowCurveDir"

   ' InstrumentPanel messages
   Friend Const ANALYZE_ISCHECKED As String = "Analyze_IsChecked"
   Friend Const GETDISTANCE_ISCHECKED As String = "GetDistance_IsChecked"

   ' GridViewPanel messages
   Friend Const ZOOMIN As String = "ZoomIn"
   Friend Const ZOOMOUT As String = "ZoomOut"
   Friend Const ISOVIEWSW As String = "IsoViewSW"
   Friend Const ISOVIEWSE As String = "IsoViewSE"
   Friend Const ISOVIEWNE As String = "IsoViewNE"
   Friend Const ISOVIEWNW As String = "IsoViewNW"
   Friend Const VIEWTOCPLANE As String = "ViewToCPlane"
   Friend Const CPLANETOP As String = "CPlaneTop"
   Friend Const CPLANEFRONT As String = "CPlaneFront"
   Friend Const CPLANERIGHT As String = "CPlaneRight"
   Friend Const CPLANEBACK As String = "CPlaneBack"
   Friend Const CPLANELEFT As String = "CPlaneLeft"
   Friend Const CPLANEBOTTOM As String = "CPlaneBottom"
   Friend Const CPLANEVIEW As String = "CPlaneView"
   Friend Const CPLANEELEVATION As String = "CPlaneElevation"
   Friend Const CPLANEORIGIN As String = "CPlaneOrigin"
   Friend Const CPLANEROTATE As String = "CPlaneRotate"
   Friend Const CPLANE3P As String = "CPlane3P"
   Friend Const CPLANEPERPOBJ As String = "CPlanePerpObj"
   Friend Const CPLANEOBJ As String = "CPlaneObj"

   ' DrawPanel messages
   Friend Const POINT As String = "Point"
   Friend Const LINE2P As String = "Line2P"
   Friend Const LINEPDL As String = "LinePDL"
   Friend Const CIRCLE As String = "Circle"
   Friend Const ARCCSE As String = "ArcCSE"
   Friend Const ARC3P As String = "Arc3P"
   Friend Const ARCPDP As String = "ArcPDP"
   Friend Const FILLET As String = "Fillet"
   Friend Const RECTANGLE2P As String = "Rectangle2P"
   Friend Const POLYGON As String = "Polygon"
   Friend Const TEXT As String = "Text"
   Friend Const PLANE As String = "Plane"
   Friend Const EXTRUDE As String = "Extrude"
   Friend Const REVOLVE As String = "Revolve"
   Friend Const SCREW As String = "Screw"
   Friend Const RULED As String = "Ruled"
   Friend Const SWEPT As String = "Swept"
   Friend Const MERGESURF As String = "MergeSurf"
   Friend Const EXPLODESURF As String = "ExplodeSurf"
   Friend Const APPROXSURF As String = "ApproxSurf"
   Friend Const INVERTSURF As String = "InvertSurf"
   Friend Const DELETE As String = "Delete"
   Friend Const CHANGELAYER As String = "ChangeLayer"
   Friend Const CHANGECOLOR As String = "ChangeColor"
   Friend Const INVERTCURVE As String = "InvertCurve"
   Friend Const CHANGESTARTCURVE As String = "ChangeStartCurve"
   Friend Const EXTENDCURVE As String = "ExtendCurve"
   Friend Const BREAKCURVE As String = "BreakCurve"
   Friend Const JOINCURVE As String = "JoinCurve"
   Friend Const EXPLODECURVE As String = "ExplodeCurve"
   Friend Const SETCURVETH As String = "SetCurveTh"
   Friend Const MOVE As String = "Move"
   Friend Const ROTATE As String = "Rotate"
   Friend Const MIRROR As String = "Mirror"
   Friend Const SCALE As String = "Scale"
   Friend Const OFFSET As String = "Offset"

   ' Controller messages
   Friend Const SETLASTBOOLEAN As String = "SetLastBoolean"
   Friend Const SETLASTINTEGER As String = "SetLastInteger"
   Friend Const SHOW As String = "Show"
   Friend Const DONE As String = "Done"
   Friend Const EXECUTECOMMAND As String = "ExecuteCommand"
   Friend Const MANAGEMODIFIED As String = "ManageModified"
   Friend Const ALLOWWINDOWTOCLOSE As String = "AllowWindowToClose"

   ' DrawOptionPanel messages
   Friend Const PREPAREINPUTBOX As String = "PrepareInputBox"
   Friend Const SETINPUTBOXTEXT As String = "SetInputBoxText"
   Friend Const SETINPUTBOXCHECK As String = "SetInputBoxCheck"
   Friend Const CHANGEINPUTBOXCHECK As String = "ChangeInputBoxCheck"
   Friend Const ADDINPUTBOXCOMBO As String = "AddInputBoxCombo"
   Friend Const RESETINPUTBOX As String = "ResetInputBox"
   Friend Const LOADOBJTREE As String = "LoadObjTree"
   Friend Const UPDATEOBJINOBJTREE As String = "UpdateObjInObjTree"
   Friend Const UPDATEOBJINOBJTREENOMARK As String = "UpdateObjInObjTreeNoMark"
   Friend Const SELECTIDINOBJTREE As String = "SelectIdInObjTree"
   Friend Const SELECTIDINOBJTREENOMARK As String = "SelectIdInObjTreeNoMark"
   Friend Const CLEAROBJTREE As String = "ClearObjTree"
   Friend Const UPDATEOBJTREE As String = "UpdateObjTree"
   Friend Const UPDATEHEADERNAME As String = "UpdateHeaderName"
   Friend Const UPDATEHEADERCOLOR As String = "UpdateHeaderColor"
   Friend Const UPDATEOBJTREEOLDID As String = "UpdateObjTreeOldId"
   Friend Const DRAWOPTIONPANEL_CLOSING As String = "DrawOptionPanel_Closing"
   Friend Const UPDATEOBJDATAINOBJTREE As String = "UpdateObjDataInObjTree"
   Friend Const SETINFOBOX As String = "SetInfoBox"
   Friend Const RIGHTCLICKEDLAYERTREEITEM As String = "RightClickedLayerTreeItem"
   Friend Const ISRIGHTCLICKEDLAYERTREEITEM As String = "IsRightClickedLayerTreeItem"
   Friend Const SAVEOBJECT As String = "SaveObject"
   Friend Const SELECTEDOPERATION As String = "SelectedOperation"

   ' MachiningGroupPanel
   Friend Const INITIALIZEMACHGROUPS As String = "InitializeMachGroups"
   Friend Const MACHGROUPSISENABLED As String = "MachGroupsIsEnabled"
   Friend Const MACHGROUPSRESULT As String = "MachGroupsResult"

   ' MachiningOptionPanel
   Friend Const OPERATIONVIEWEXPANDERISENABLED As String = "OperationViewExpanderIsEnabled"
   Friend Const MACHININGTREEVIEWEXPANDERISENABLED As String = "MachiningTreeViewExpanderIsEnabled"
   Friend Const NEWMACHININGMODEISACTIVE As String = "NewMachiningModeIsActive"
   Friend Const SIMULATIONEXPANDER_GET_ISEXPANDED As String = "Get_SimulationExpander_IsExpanded"
   Friend Const ESTIMATIONEXPANDER_GET_ISEXPANDED As String = "Get_EstimationExpander_IsExpanded"
   Friend Const SIMULATIONEXPANDER_SET_ISEXPANDED As String = "Set_SimulationExpander_IsExpanded"
   Friend Const ESTIMATIONSEXPANDER_SET_ISEXPANDED As String = "Set_EstimationsExpander_IsExpanded"
   Friend Const SIMULATIONEXPANDER_UPDATE_CNCDATA As String = "SimulationExpander_Update_CncData"
   Friend Const CANCELOPERATIONCOMMAND As String = "CancelOperationCommand"
   Friend Const UPDATEOPERATIONMACHININGLIST As String = "UpdateOperationMachiningList"

   ' StatusBar messages
   Friend Const STATUSGRIDCOMMAND As String = "StatusGridCommand"
   Friend Const STATUSCURRPOSTYPECOMMAND As String = "StatusCurrPosTypeCommand"
   Friend Const STATUSCURRPOSTYPETEXT As String = "StatusCurrPosTypeText"
   Friend Const STATUSUNITSCOMMAND As String = "StatusUnitsCommand"
   Friend Const UPDATESTATUSUNITS As String = "UpdateStatusUnits"
   Friend Const STATUSSNAPPOINTTYPETEXT As String = "StatusSnapPointTypeText"
   Friend Const STATUSSNAPPOINTTYPEBACKGROUND As String = "StatusSnapPointTypeBackground"
   Friend Const LOADSELECTEDMACHINE As String = "LoadSelectedMachine"
   Friend Const LOADCURRENTMACHINE As String = "LoadCurrentMachine"
   Friend Const SAVECURRENTMACHINE As String = "SaveCurrentMachine"
   Friend Const UPDATECURRENTMACHINE As String = "UpdateCurrentMachine"

   ' TopCommandBar
   Friend Const OPENPROJECT As String = "OpenProject"
   Friend Const SAVEPROJECT As String = "SaveProject"
   Friend Const SAVEASPROJECT As String = "SaveAsProject"
   Friend Const INSERTPROJECT As String = "InsertProject"
   Friend Const IMPORTPROJECT As String = "ImportProject"
   Friend Const EXPORTPROJECT As String = "ExportProject"
   Friend Const PREEXECSCRIPT As String = "PreExecScript"
   Friend Const EXECSCRIPT As String = "ExecScript"
   Friend Const SETDRAWISENABLED As String = "SetDrawIsEnabled"

   ' Special
   ' Door
   Friend Const DOORSSCRIPT As String = "DoorsScript"
   Friend Const DMACHSCRIPT As String = "DMachScript"

   ' GunStock
   Friend Const GUNSTOCKNEW As String = "GunStockNew"
   Friend Const GUNSTOCKMODIF As String = "GunStockModif"

   Private Sub Application_DispatcherUnhandledException(ByVal sender As System.Object, ByVal e As System.Windows.Threading.DispatcherUnhandledExceptionEventArgs)
      MessageBox.Show(e.Exception.Message)
      e.Handled = True
   End Sub

#End Region

   Public Sub ManageUnhandledException(sender As Object, e As System.Windows.Threading.DispatcherUnhandledExceptionEventArgs) Handles Me.DispatcherUnhandledException
      EgtOutLog(e.Exception.ToString)
      m_UpdateLayerTree = True
      e.Handled = True
   End Sub

End Class