The Hammer » VDF Splat

//TH-Header

//*****************************************************************************************

// Copyright (c)  2013 Antwise Solutions

// All rights reserved.

//

// $FileName    : cDebugCJMenuItemClasses.pkg

// $ProjectName : Vdf Splat Debugger

// $Authors     : Wil van Antwerpen

// $Created     : 12.15.2013  02:28

// $Type        : GPLv2

//

// Contents:

//

//*****************************************************************************************

//TH-RevisionStart

//TH-RevisionEnd

Use cCJCommandBarSystem.pkg

Use LanguageText.pkg

// Sub-class for all Date entry menu items

{ OverrideProperty=psCategory InitialValue=C_$CategoryDEO}

{ OverrideProperty=pbActiveUpdate InitialValue=True }

{ ClassType=Abstract }

Class cCJDebugMenuItem is a cCJMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCategory to C_$CategoryDEO

        Set pbActiveUpdate to True

    End_Procedure

    // This just redirects to cCJCommandBarsSystem object

    // returns information about the Focus object. If it returns True its a DEO. If a DEO the

    // server, hasRecord, changed and hasindex info will all be returned by ref.

    // If false, these are all unchanged.

    Function DEOInformation Handle ByRef hoServer Boolean ByRef bHasRecord Boolean ByRef bChanged Boolean ByRef bHasIndex Returns Boolean

        Handle hoCommandBars

        Boolean bISDeo

        Get CommandBarSystemObject to hoCommandBars // must exist or a programming bug

        //Get DEOInformation of hoCommandBars (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDEO

        MOve true to bISDeo

        Function_Return bISDeo

    End_Function

End_Class

// use by all navigate DEOs.

{ OverrideProperty=psCategory InitialValue=C_$CategoryNavigate}

{ ClassType=Abstract }

Class cCJDebugNavigateMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCategory to C_$CategoryNavigate

    End_Procedure

    Function IsEnabled Returns Boolean

        Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex

        Handle hoServer

        //

        //Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo

        move true to bisdeo

        Function_Return (bIsDEO)

    End_Function

End_Class

//{ OverrideProperty=psCaption InitialValue=C_$CaptionClear }

//{ OverrideProperty=psToolTip InitialValue=C_$ToolTipClear }

//{ OverrideProperty=psDescription InitialValue=C_$DescClear }

//{ OverrideProperty=psImage InitialValue="ActionClear.ico" }

//{ OverrideProperty=psShortcut InitialValue="F5" }

//

//Class cCJClearMenuItem is a cCJDeoMenuItem

//

//    Procedure Construct_Object

//        Forward Send Construct_Object

//        Set psCaption   to C_$CaptionClear

//        Set psToolTip to C_$ToolTipClear

//        Set psDescription to C_$DescClear

//        Set psImage to "ActionClear.ico"

//        Set psShortcut to "F5"

//    End_Procedure

//

//

//    Procedure OnExecute Variant vCommandBarControl

//        Send Request_Clear of (focus(Self))

//    End_Procedure

//

//    Function IsEnabled Returns Boolean

//        Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex

//        Handle hoServer

//        Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo

//        Function_Return (bIsDEO and hoServer and (bChanged or bHasRecord))

//    End_Function

//

//End_Class

//{ OverrideProperty=psCaption InitialValue=C_$CaptionSave}

//{ OverrideProperty=psToolTip InitialValue=C_$ToolTipSave}

//{ OverrideProperty=psDescription InitialValue=C_$DescSave }

//{ OverrideProperty=psImage InitialValue="ActionSaveRecord.ico" }

//{ OverrideProperty=psShortcut InitialValue="F2" }

//

//Class cCJSaveMenuItem is a cCJDeoMenuItem

//

//    Procedure Construct_Object

//        Forward Send Construct_Object

//        Set psCaption   to C_$CaptionSave

//        Set psToolTip to C_$ToolTipSave

//        Set psDescription to C_$DescSave

//        Set psImage to "ActionSaveRecord.ico"

//        Set psShortcut to "F2"

//    End_Procedure

//

//

//    Procedure OnExecute Variant vCommandBarControl

//        Send Request_save of (focus(Self))

//    End_Procedure

//

//    Function IsEnabled Returns Boolean

//        Boolean bIsDEO bHasRecord bChanged bEnabled bHasIndex

//        Handle hoServer

//        Get DEOInformation (&hoServer) (&bHasRecord) (&bChanged) (&bHasIndex) to bIsDeo

//        Function_Return (bIsDEO and hoServer and bChanged)

//    End_Function

//

//End_Class

Define CS_CaptionStartDebug For "Start debug"

Define CS_TooltipStartDebug For "Start debug"

Define CS_DescStartDebug    For "Start debug"

{ OverrideProperty=psCaption InitialValue=CS_CaptionStartDebug}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipStartDebug}

{ OverrideProperty=psDescription InitialValue=CS_DescStartDebug}

{ OverrideProperty=psImage InitialValue="run_exc.ico" }

Class cCJStartDebugMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionStartDebug

        Set psToolTip       To CS_ToolTipStartDebug

        Set psDescription   To CS_DescStartDebug

        Set psImage         To "run_exc.ico"

        //Set psImageDisabled To "run_excd.ico"

        Set piShortcutKey   To xtpKey_None VK_F5

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

       Send doDebugRun

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bStarted

      Get HasProgramStarted To bStarted

      Function_Return (bStarted=false)

    End_Function

End_Class // cCJStartDebugMenuItem

Define CS_CaptionStopDebug For "Stop debug"

Define CS_TooltipStopDebug For "Stop debug"

Define CS_DescStopDebug    For "Stop debug"

{ OverrideProperty=psCaption InitialValue=CS_CaptionStopDebug}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipStopDebug}

{ OverrideProperty=psDescription InitialValue=CS_DescStopDebug}

{ OverrideProperty=psImage InitialValue="terminate_co.ico" }

Class cCJStopDebugMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionStopDebug

        Set psToolTip       To CS_ToolTipStopDebug

        Set psDescription   To CS_DescStopDebug

        Set psImage         To "terminate_co.ico"

        //Set psImageDisabled To "terminate_cod.ico"

        Set piShortcutKey   To xtpKey_Shift VK_F5

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

       Send doStopDebug

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bStarted

      Get HasProgramStarted To bStarted

      Function_Return bStarted

    End_Function

End_Class // cCJStopDebugMenuItem

Define CS_CaptionRestartDebug For "Restart debug"

Define CS_TooltipRestartDebug For "Restart debug"

Define CS_DescRestartDebug    For "Restart debug"

{ OverrideProperty=psCaption InitialValue=CS_CaptionRestartDebug}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipRestartDebug}

{ OverrideProperty=psDescription InitialValue=CS_DescRestartDebug}

{ OverrideProperty=psImage InitialValue="restart_co.ico" }

Class cCJRestartDebugMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionRestartDebug

        Set psToolTip       To CS_ToolTipRestartDebug

        Set psDescription   To CS_DescRestartDebug

        Set psImage         To "restart_co.ico"

        //Set psImageDisabled To "run_excd.ico"

        Set piShortcutKey   To xtpKey_Ctrl VK_F5

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

       Send doRestartDebug

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bStarted

      Get HasProgramStarted To bStarted

      Function_Return bStarted

    End_Function

End_Class // cCJRestartDebugMenuItem

Define CS_CaptionDebugPause For "Debug Pause"

Define CS_TooltipDebugPause For "Debug Pause"

Define CS_DescDebugPause    For "Debug Pause"

{ OverrideProperty=psCaption InitialValue=CS_CaptionDebugPause}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipDebugPause}

{ OverrideProperty=psDescription InitialValue=CS_DescDebugPause}

{ OverrideProperty=psImage InitialValue="suspend_co.ico" }

Class cCJDebugPauseMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionDebugPause

        Set psToolTip       To CS_ToolTipDebugPause

        Set psDescription   To CS_DescDebugPause

        Set psImage         To "suspend_co.ico"

        //Set psImageDisabled To "suspend_cod.ico"

        Set piShortcutKey   To xtpKey_None VK_F3

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

       Send doDebugPause

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bStarted

      Boolean bPaused

      Get HasProgramStarted To bStarted

      Get HasProgramPaused  To bPaused

      Function_Return (bStarted and bPaused=false)

    End_Function

End_Class

Define CS_CaptionDebugContinue For "Debug Continue"

Define CS_TooltipDebugContinue For "Debug Continue"

Define CS_DescDebugContinue    For "Debug Continue"

{ OverrideProperty=psCaption InitialValue=CS_CaptionDebugContinue}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipDebugContinue}

{ OverrideProperty=psDescription InitialValue=CS_DescDebugContinue}

{ OverrideProperty=psImage InitialValue="resume_co.ico" }

Class cCJDebugContinueMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionDebugContinue

        Set psToolTip       To CS_ToolTipDebugContinue

        Set psDescription   To CS_DescDebugContinue

        Set psImage         To "resume_co.ico"

        //Set psImageDisabled To "resume_cod.ico"

        Set piShortcutKey   To xtpKey_None VK_F5

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

       Send doDebugContinue

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bPaused

      Get HasProgramPaused To bPaused

      Function_Return bPaused

    End_Function

End_Class // cCJDebugContinueMenuItem

Define CS_CaptionStepOver   For "Step Over"

Define CS_TooltipStepOver   For "Step Over"

Define CS_DescStepOver      For "Step Over"

{ OverrideProperty=psCaption InitialValue=CS_CaptionStepOver}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipStepOver}

{ OverrideProperty=psDescription InitialValue=CS_DescStepOver }

{ OverrideProperty=psImage InitialValue="stepover_co.ico" }

Class cCJStepOverMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionStepOver

        Set psToolTip       To CS_ToolTipStepOver

        Set psDescription   To CS_DescStepOver

        Set psImage         To "stepover_co.ico"

        //Set psImageDisabled To "stepover_cod.ico"

        Set piShortcutKey   To xtpKey_None VK_F10

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doDebugStepOver

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bPaused

      Get HasProgramPaused To bPaused

      Function_Return bPaused

    End_Function

End_Class

Define CS_CaptionStepInto   For "Step Into"

Define CS_TooltipStepInto   For "Step Into"

Define CS_DescStepInto      For "Step Into"

{ OverrideProperty=psCaption InitialValue=CS_CaptionStepInto}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipStepInto}

{ OverrideProperty=psDescription InitialValue=CS_DescStepInto }

{ OverrideProperty=psImage InitialValue="stepinto_co.ico" }

Class cCJStepIntoMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionStepInto

        Set psToolTip       To CS_ToolTipStepInto

        Set psDescription   To CS_DescStepInto

        Set psImage         To "stepinto_co.ico"

        //Set psImageDisabled To "stepinto_cod.ico"

        Set piShortcutKey   To xtpKey_None VK_F11

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doDebugStepInto

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bPaused

      Get HasProgramPaused To bPaused

      Function_Return bPaused

    End_Function

End_Class // cCJStepIntoMenuItem

Define CS_CaptionStepOut   For "Step Out"

Define CS_TooltipStepOut   For "Step Out"

Define CS_DescStepOut      For "Step Out"

{ OverrideProperty=psCaption InitialValue=CS_CaptionStepOut}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipStepOut}

{ OverrideProperty=psDescription InitialValue=CS_DescStepOut }

{ OverrideProperty=psImage InitialValue="stepreturn_co.ico" }

Class cCJStepOutMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionStepOut

        Set psToolTip       To CS_ToolTipStepOut

        Set psDescription   To CS_DescStepOut

        Set psImage         To "stepreturn_co.ico"

        //Set psImageDisabled To "stepreturn_cod.ico"

        Set piShortcutKey   To xtpKey_None VK_F12

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doDebugStepOut

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bPaused

      Get HasProgramPaused To bPaused

      Function_Return bPaused

    End_Function

End_Class // cCJStepOutMenuItem

Define CS_CaptionAddBreakpoint   For "Add Breakpoint"

Define CS_TooltipAddBreakpoint   For "Add Breakpoint"

Define CS_DescAddBreakpoint      For "Add Breakpoint"

{ OverrideProperty=psCaption InitialValue=CS_CaptionAddBreakpoint}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipAddBreakpoint}

{ OverrideProperty=psDescription InitialValue=CS_DescAddBreakpoint }

{ OverrideProperty=psImage InitialValue="brkp_obj.ico" }

Class cCJAddBreakpointMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionAddBreakpoint

        Set psToolTip       To CS_ToolTipAddBreakpoint

        Set psDescription   To CS_DescAddBreakpoint

        Set psImage         To "brkp_obj.ico"

        //Set psImageDisabled To "brkpd_obj.ico"

        Set piShortcutKey   To xtpKey_None VK_F9

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doSetBreakPoint

    End_Procedure

    Function IsEnabled Returns Boolean

      Handle hoDebugger

      Get phoDebugger to hoDebugger

      Function_Return (hoDebugger<>0)

    End_Function

End_Class // cCJAddBreakpointMenuItem

Define CS_CaptionRemoveBreakpoint   For "Remove Breakpoint"

Define CS_TooltipRemoveBreakpoint   For "Remove Breakpoint"

Define CS_DescRemoveBreakpoint      For "Remove Breakpoint"

{ OverrideProperty=psCaption InitialValue=CS_CaptionRemoveBreakpoint}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipRemoveBreakpoint}

{ OverrideProperty=psDescription InitialValue=CS_DescRemoveBreakpoint }

{ OverrideProperty=psImage InitialValue="skip_brkp.ico" }

Class cCJRemoveBreakpointMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionRemoveBreakpoint

        Set psToolTip       To CS_ToolTipRemoveBreakpoint

        Set psDescription   To CS_DescRemoveBreakpoint

        Set psImage         To "skip_brkp.ico"

        //Set psImageDisabled To "brkpd_obj.ico"

        //Set piShortcutKey   To xtpKey_None VK_F9

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doRemoveBreakPoint

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bHasBreakPoints

      Get HasBreakpoints To bHasBreakPoints

      Function_Return bHasBreakpoints

    End_Function

End_Class // cCJRemoveBreakpointMenuItem

Define CS_CaptionImportBreakpoints   For "Import Breakpoints"

Define CS_TooltipImportBreakpoints   For "Import Breakpoints"

Define CS_DescImportBreakpoints      For "Import Breakpoints"

{ OverrideProperty=psCaption InitialValue=CS_CaptionImportBreakpoints}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipImportBreakpoints}

{ OverrideProperty=psDescription InitialValue=CS_DescImportBreakpoints }

{ OverrideProperty=psImage InitialValue="import_brkpts.ico" }

Class cCJImportBreakpointsMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionImportBreakpoints

        Set psToolTip       To CS_ToolTipImportBreakpoints

        Set psDescription   To CS_DescImportBreakpoints

        Set psImage         To "import_brkpts.ico"

        //Set psImageDisabled To "brkpd_obj.ico"

        //Set piShortcutKey   To xtpKey_None VK_F9

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        //Send doDebugStepOut

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bPaused

      Get HasProgramPaused To bPaused

      Function_Return bPaused

    End_Function

End_Class // cCJImportBreakpointsMenuItem

Define CS_CaptionOpenFile   For "Open file"

Define CS_TooltipOpenFile   For "Open Source file"

Define CS_DescOpenFile      For "Open Source file"

{ OverrideProperty=psCaption InitialValue=CS_CaptionOpenFile}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipOpenFile}

{ OverrideProperty=psDescription InitialValue=CS_DescOpenFile }

{ OverrideProperty=psImage InitialValue="ActionOpen.ico" }

Class cCJOpenFileMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionOpenFile

        Set psToolTip       To CS_ToolTipOpenFile

        Set psDescription   To CS_DescOpenFile

        Set psImage         To "ActionOpen.ico"

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doOpenFile

    End_Procedure

    Function IsEnabled Returns Boolean

      Handle hoDebugger

      Get phoDebugger to hoDebugger

      Function_Return (hoDebugger<>0)

    End_Function

End_Class // cCJOpenFileMenuItem