The Hammer » VDF Splat

    Set Size to 346 769

    Object oVerticalSplitterContainer is a cSplitterContainer

      Set pbSplitVertical to True

      Set piSplitterLocation to 559

      Object oLeftPanelSplitter is a cSplitterContainerChild

        Object oDebugSplitterContainer is a cSplitterContainer

          Set pbSplitVertical to False

          Set piSplitterLocation to 200

          Object oTopPanelSplitter is a cSplitterContainerChild

            Object oCodeMax is a cSplatCodeMax

              Set Size to 188 553

              Set Location to 6 6

              Set peAnchors to anAll

              Set phoEditor To Self

                Procedure OnCreate

                  Variant vImageList

                  Boolean bCreated

                  Handle  hoLanguage

                  Forward Send OnCreate

                  // ToDo: Set the ActiveX properties here...

                  Get ComImageList  To vImageList

                  //Set ComHImageList 0  // OLE_HANDLE value

                End_Procedure

              Embed_ActiveX_Resource

              6AMAAAgAAgAAAAAACAACAAAAAAAAAQEBAAAAAQEBAQAAAQAAAAAAAAAAAAAAAAHpAwAAAQEBAAEBAAEEAP//////////////////////////////////////////QwBv

              AHUAcgBpAGUAcgAgAE4AZQB3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAsAAAAAAAAA/////wAAAAAAAAABAAAACgAAAAEAAf//////

              ////AAAAAAABAAAAAQAAAE0uAAB2FwAA.

              End_Embed_ActiveX_Resource

            End_Object

          End_Object

          Object oBottomPanelSplitter Is a cSplitterContainerChild

            Object oDebug_TD is a TabDialog

              Set Size to 135 553

              Set Location to 4 6

              Set peAnchors to anAll

              Object oGlobalVariables_TP is a TabPage

                Set Label to "Global Variables"

                Object oGlobalVarContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoGlobalVarHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoGlobalVar

                    If (hoObject) Begin

                      Get phoGlobalVariables To hoGlobalVar

                      If (hoObject=hoGlobalVar) Begin

                        Set Size                     Of hoGlobalVar To 118 359

                        Set Location                 Of hoGlobalVar To 8 8

                        Set peAnchors                Of hoGlobalVar To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              Object oWatches_TP is a TabPage

                Set Label to "Watches"

                Object oWatchesContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoWatchesHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoWatches

                    If (hoObject) Begin

                      Get phoWatches To hoWatches

                      If (hoObject=hoWatches) Begin

                        Set Size                     Of hoWatches To 118 361

                        Set Location                 Of hoWatches To 9 6

                        Set peAnchors                Of hoWatches To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              Object oTrace_TP is a TabPage

                Set Label to "Trace"

                Object oTraceContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoTraceHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoTrace

                    If (hoObject) Begin

                      Get phoTrace To hoTrace

                      If (hoObject=hoTrace) Begin

                        Set Size                     Of hoTrace To 118 359

                        Set Location                 Of hoTrace To 9 6

                        Set Label                    Of hoTrace To "Trace"

                        Set peAnchors                Of hoTrace To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              //Object oDACTreelist_TP is a TabPage

              //  Set Label to "DACTreeList (not used)"

              //  // I do not think we are going to use this one.

              //  Object oComCDACTreeListCtl1 is a cComCDACTreeListCtl

              //    Set Size to 100 100

              //    Set Location to 10 35

              //

              //      Procedure OnCreate

              //          Forward Send OnCreate

              //          // ToDo: Set the ActiveX properties here...

              //      End_Procedure

              //

              //  End_Object

              //End_Object

              Object oTables_TP is a TabPage

                Set Label to "Tables"

                Object oTablesContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Set phoTablesHost To Self

                  Procedure CreateObjectCallback Handle hoObject

                    Handle hoTables

                    If (hoObject) Begin

                      Get phoTablesWindow To hoTables

                      If (hoObject=hoTables) Begin

                        Set Size                     Of hoTables To 118 363

                        Set Location                 Of hoTables To 7 6

                        Set peAnchors                Of hoTables To anAll

                      End

                    End

                  End_Procedure // CreateObjectCallback

                End_Object

              End_Object

              Object oBreakpoints_TP is a TabPage

                Set Label to "Breakpoints"

                Object oBreakPointsContainer is a Container3d

                  Set Size to 131 540

                  Set Location to 2 2

                  Set peAnchors to anAll

                  Set Border_Style to Border_StaticEdge

                  Object oBreakpointsGrid is a cCJGrid

                    Set Size to 112 382

                    Set Location to 6 10

                    Set peAnchors to anAll

                    Set pbReadOnly to True

                    Set phoBreakpointsGrid To Self

                    Object oBPContextMenu Is a cBreakPointsGridContextMenu

                    End_Object

                    Set phoContextMenu To oBPContextMenu

                    // Need to move to subclass for this technique, maybe later.

                    //Function CreateContextMenu Returns Handle

                    //  Handle hoMenu

                    //

                    //  Get Create (RefClass(cBreakPointsGridContextMenu)) To hoMenu

                    //  If (hoMenu) Begin

                    //    Set Name Of hoMenu To "oBPContextMenu"

                    //  End

                    //  Function_Return hoMenu

                    //End_Function

                    Object oEnabledColumn is a cCJGridColumn

                      Set piWidth to 57

                      Set psCaption to "Active"

                      Set pbCheckbox to True

                      Set pbResizable to False

                    End_Object

                    Object oLineColumn is a cCJGridColumn

                      Set piWidth to 85

                      Set psCaption to "Line"

                      Set peDataType to Mask_Numeric_Window

                      Set pbResizable to False

                    End_Object

                    Object oFileNameColumn is a cCJGridColumn

                      Set piWidth to 351

                      Set psCaption to "File"

                    End_Object

                    //

                    // Procedure ComSetCaretPos Integer llLine Integer llCol

                    //

                    // Procedure ComSelectLine Integer llLine Boolean llMakeVisible

                    Procedure LoadData

                      Handle  hoDataSource

                      Handle  hoDebug

                      Boolean bFound

                      Boolean bIsCreated

                      Integer iBreak

                      Integer iCount

                      Integer iRows

                      Integer iActive

                      Integer iLine

                      Integer iFile

                      tDataSourceRow[] TheData

                      tBreakPoints[] BP

                      Get phoDataSource to hoDataSource

                      Get phoDebugger   to hoDebug

                      // Get the datasource indexes of the various columns

                      Get piColumnId of oEnabledColumn  to iActive

                      Get piColumnId of oLineColumn     to iLine

                      Get piColumnId of oFileNameColumn to iFile

                      // Load all data into the datasource array

                      If (hoDebug) Begin

                        Get pBreakPoints of hoDebug To BP

                      End

                      Move (SizeOfArray(BP)) To iCount

                      For iBreak from 0 To (iCount-1)

                        // BP[iBreak].bHasCondition

                        // BP[iBreak].sExpression

                        //If (BP[iBreak].bEnabled) Move "Y" To TheData[iRows].sValue[iActive]

                        //Else Move "N" To TheData[iRows].sValue[iActive]

                        Move BP[iBreak].bEnabled  To TheData[iRows].sValue[iActive]

                        Move BP[iBreak].iLine     To TheData[iRows].sValue[iLine]

                        Move BP[iBreak].sFileName To TheData[iRows].sValue[iFile]

                        Increment iRows

                      Loop

                      Get IsComObjectCreated To bIsCreated

                      If (bIsCreated) Begin

                        // Initialize Grid with new data

                        Send InitializeData TheData

                        Send MovetoFirstRow

                      End

                    End_Procedure

                  End_Object

                  Object oButton3 is a Button

                    Set Size to 14 61

                    Set Location to 57 410

                    Set Label to "add breakpoint"

                    Set peAnchors to anTopRight

                    Procedure OnClick

                      Integer iLine

                      String  sFileName

                      Boolean bSuccess

                      Handle  hoDebugger

                      Handle  hoEditor

                      Get phoDebugger to hoDebugger

                      Get phoEditor   to hoEditor

                      If (hoDebugger<>0 and hoEditor<>0) Begin

                        Get psFileName    of hoEditor to sFileName

                        Get piCurrentLine of hoEditor to iLine

                        If (sFileName<>"" and iLine<>0) Begin

                          Get SetBreakPoint of hoDebugger sFileName (&iLine) to bSuccess

                          Send info_box ("Set breakpoint at line"*trim(iLine)*"success="*trim(bSuccess))

                          //Send ComSetMarginImages iLine 1

                        End

                      End

              // in codemax

              //    // turns on/off margin images for a specific line

              //    Procedure ComSetMarginImages Integer llLine UChar llImages

              //

              //    // sets the line margin images

              //    Procedure Set ComHImageList OLE_HANDLE value

              //

              //    // sets the line margin images

              //    Function ComHImageList Returns OLE_HANDLE

              //    // Returns the first line number with the specified margin images

              //    Function ComFindLineMatchingMarginImages Integer llStartLine UChar llImages Returns Integer

              // in debugger

              //    // Sets the specified breakpoint

              //    Function ComSetBreakPoint String llfile UInteger ByRef llline Returns Boolean

                    End_Procedure

                  End_Object

                End_Object

                Procedure DisplayTabDetails

                  Send LoadData of oBreakpointsGrid

                End_Procedure

              End_Object // TP

              Function Tab_Change Integer iToTab Integer ePointerMode Returns Integer

                Handle  hoToTab

                Integer iCurrentTab

                Integer iRetVal

                Get Current_Tab To iCurrentTab

                Forward Get Tab_Change iToTab ePointerMode To iRetVal

                If (iCurrentTab<>-1 and iRetval=0) Begin

                  Get Tab_Page_Id iToTab To hoToTab

                  If (hoToTab=oBreakPoints_TP) Begin

                    Send DisplayTabDetails of hoToTab

                  End

                End

                Function_Return iRetVal

              End_Function

            End_Object  // oDebug_TD

          End_Object // oDebugPanelSplitter

        End_Object // oSplitterContainer

      Object oRightPanelSplitter Is a cSplitterContainerChild

        Object oStackSplitterContainer is a cSplitterContainer

          Set pbSplitVertical to False

          Set piSplitterLocation to 140

          Object oStackTopPanelSplitter is a cSplitterContainerChild

              Set Size to 131 370

                    Set Location                 Of hoCallStack To 11 5

                    Set ComObjectColumnWidth     Of hoCallStack To 90

                    Set ComMessageColumnWidth    Of hoCallStack To 265

          Object oStackBottomPanelSplitter Is a cSplitterContainerChild

            Object oLocalVarContainer is a Container3d

              Set Size to 200 370

              Set Border_Style To Border_StaticEdge

                    Set Size                     Of hoLocalVar To 188 359

                    Set Location                 Of hoLocalVar To 11 5

                    Set Label_Justification_Mode Of hoLocalVar To JMode_Top

                    Set Label_Col_Offset         Of hoLocalVar To 0

                    Set Label                    Of hoLocalVar To "Local Variables"

        End_Object

      End_Object

    End_Object