The Hammer » VDF Splat

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="run_exc.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 "term_restart.ico"

        //Set psImageDisabled To "run_excd.ico"

        Set piShortcutKey   To xtpKey_Ctrl VK_F5

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

       Send doStopDebug

       Send doStartDebug

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bStarted

      Get HasProgramStarted To bStarted

      Function_Return bStarted

    End_Function

End_Class // cCJRestartDebugMenuItem