The Hammer » VDF Splat

    Procedure doOpenProgram

      Boolean bOpen

      Handle  hoDialog

      String  sApplication

      Move (oOpenProgramDialog(Self)) To hoDialog

      Get Show_Dialog of hoDialog to bOpen

      If bOpen Begin

        Get File_Name of hoDialog To sApplication

        Send DoSetCaptionLabel Of (oVdfDbg(oClientArea(Self))) sApplication

        Set psApplication of ghoApplication To sApplication

      End

      Else Send Info_Box "You did not choose a file, nothing to debug."

    End_Procedure

      String  sApplication

        Send doOpenProgram

        Get psApplication of ghoApplication To sApplication

        // Oh still no app? Nothing to debug then

          If (IsComObjectCreated(hoDebug)) Begin

            Send ReleaseComObject of hoDebug

          End

                Object oOpenProgramButton Is a cCJOpenProgramMenuItem

            Set psTitle To "Debugging Toolbar"

            Object oOpenProgramButton Is a cCJOpenProgramMenuItem

            End_Object

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

        Set psImage         To "brkp_obj_red.ico"

Define CS_CaptionOpenProgram   For "Open Program"

Define CS_TooltipOpenProgram   For "Open executable file"

Define CS_DescOpenProgram      For "Open executable file"

{ OverrideProperty=psCaption InitialValue=CS_CaptionOpenProgram}

{ OverrideProperty=psToolTip InitialValue=CS_ToolTipOpenProgram}

{ OverrideProperty=psDescription InitialValue=CS_DescOpenProgram }

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

Class cCJOpenProgramMenuItem is a cCJDebugMenuItem

    Procedure Construct_Object

        Forward Send Construct_Object

        Set psCaption       To CS_CaptionOpenProgram

        Set psToolTip       To CS_ToolTipOpenProgram

        Set psDescription   To CS_DescOpenProgram

        Set psImage         To "workset.ico"

    End_Procedure

    Procedure OnExecute Variant vCommandBarControl

        Send doOpenProgram

    End_Procedure

    Function IsEnabled Returns Boolean

      Boolean bStarted

      Get HasProgramStarted To bStarted

      Function_Return (bStarted=false)

    End_Function

End_Class

  //

  // Checks the breakpoint array to see if it has any breakpoints

  // for the filename passed and returns them as line numbers if they

  // do.

  //

  Function ListBreakPointsForFile String sFile Returns UInteger[]

    Integer iPos

    Integer iBreak

    Integer iCount

    UInteger iLine

    UInteger[] Lines

    tBreakPoints[] BP

    Move -1 To iPos

    Move (ResizeArray(Lines,0)) To Lines

    Get pBreakPoints To BP

    Move (Lowercase(sFile)) To sFile

    Move (SizeOfArray(BP)) To iCount

    For iBreak from 0 To (iCount-1)

      If (lowercase(BP[iBreak].sFileName)=sFile and BP[iBreak].bEnabled=True) Begin

        Move BP[iBreak].iLine to Lines[SizeOfArray(Lines)]

      End

    Loop

    Function_Return Lines

  End_Function

Define ICO_Inst_ptr_top for $CI01 // instruction pointer top icon

Define ICO_Brkp_obj     for $CI04 // breakpoint object icon

    Get AddImage "inst_ptr_top_green.ico" To iVoid // bit 2

    Get AddImage "brkp_obj_red.ico" To iVoid // bit 3

  Procedure DisplayBreakPoints UInteger[] BreakPoints

    Integer  iItem

    Integer  iCount

    UInteger iLine

    Move (SizeOfArray(BreakPoints)) To iCount

    For iItem From 0 To (iCount-1)

      Move BreakPoints[iItem] To iLine

      Send ComSetMarginImages (iLine-1) ICO_Brkp_obj // 4

    Loop

  End_Procedure

    Handle  hoDebugger

    String  sLanguage

    UInteger[] BreakPoints

    Get phoDebugger To hoDebugger

    If (hoDebugger) Begin

      Get ListBreakPointsForFile Of hoDebugger sFileName To BreakPoints

      Send DisplayBreakPoints BreakPoints

    End

    Move false To bScrollup

    // not optimal, but wait on codemax retirement for optimizing this

    //If (psFileName(Self)<>sFileName) Begin

      Send doOpenSourceFile sFileName

    //End