The Hammer » VDF Splat

//TH-Header

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

// Copyright (c)  2013 Antwise Solutions

// All rights reserved.

//

// $FileName    : cDebuggerEngine

// $ProjectName : Splat ! Vdf Debugger

// $Authors     : Wil van Antwerpen

// $Created     : 12.14.2013  23:42

// $Type        : GPLv2

//

// Contents:

// Visual DataFlex COM proxy classes generated from vdfdbg.dll

// These have then been hand edited to support multiple versions in one

// executable.

// Otherwise we would have need an executable for each vdf version.

//

// An alternative approach would have been to use the create function and

// class name as variables, but then it would not have been possible to subclass

// the debugger engine.

//

// Please note that the ActiveX components are the property of Data Access

// Worldwide and that you will need to have a fully licensed copy of the

// development environment installed on your machine for this to work.

//

//

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

//TH-RevisionStart

//TH-RevisionEnd

Use FlexCom20.pkg

Define CS_SPLATFATALCAPTION for "Fatal VdfSplat Debug Error"

// WindowType property - Tells what kind of variables will be displayed in the window

Define OLEdbgVariableWindows for Integer

    Define OLEDBGVARIABLEWINDOW_LOCAL for 0

    Define OLEDBGVARIABLEWINDOW_GLOBAL for 1

// CLSID:

// IDebuggerEngine Interface

Class cComIDebuggerEngine is a Mixin

    // Starts debugging the specified program

    Procedure ComStartProgram String llcmdLine Variant llwebApp Variant llurl

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 3

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llcmdLine

        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llwebApp

        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llurl

        Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID

    End_Procedure

    // DF18.1 version of ComStartProgram, we use different name instead of overload as that technique

    // has been declared obsolete.

    //

    // Starts debugging the specified program

    Procedure ComStartProgram181 String llcmdLine Boolean llnoDebugHeap Variant llwebApp Variant llurl

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 4

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llcmdLine

        Send DefineParam to hDispatchDriver OLE_VT_BOOL llnoDebugHeap

        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llwebApp

        Send DefineParam to hDispatchDriver OLE_VT_VARIANT llurl

        Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID

    End_Procedure

    // Stops current debugging session

    Procedure ComStopProgram

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID

    End_Procedure

    // Resumes execution of the debuggee process

    Procedure ComContinue

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID

    End_Procedure

    // Steps into the next line of code

    Procedure ComStepInto

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID

    End_Procedure

    // Steps over the next line of code

    Procedure ComStepOver

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID

    End_Procedure

    // Steps out of the current function call

    Procedure ComStepOut

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID

    End_Procedure

    // Breaks execution

    Procedure ComPause

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID

    End_Procedure

    // Sets the specified breakpoint

    Function ComSetBreakPoint String llfile UInteger ByRef llline Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llline

        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Removes the specified breakpoint

    Function ComRemoveBreakPoint String llfile UInteger llline Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Send DefineParam to hDispatchDriver OLE_VT_UI4 llline

        Get InvokeComMethod of hDispatchDriver 9 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Selects the active callstack entry

    Procedure ComSelectActiveQueueLevel Integer llqueueLevel

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_I4 llqueueLevel

        Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID

    End_Procedure

    // Evaluates the specified expression

    Function ComEval String llexpr String ByRef llresult Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llexpr

        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_BSTR) llresult

        Get InvokeComMethod of hDispatchDriver 11 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Triggers event OnUpdateView

    Procedure ComUpdateViews

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 12 OLE_VT_VOID

    End_Procedure

    // Evaluates the specified expression asynchronously

    Procedure ComAsyncEval OLE_HANDLE llhWndListener Integer llexprID String llexpression

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 3

        Send DefineParam to hDispatchDriver OLE_VT_I4 llhWndListener

        Send DefineParam to hDispatchDriver OLE_VT_I4 llexprID

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llexpression

        Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID

    End_Procedure

    // Resumes execution up to the specified line

    Procedure ComRunToLine String llfile UInteger llline

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Send DefineParam to hDispatchDriver OLE_VT_UI4 llline

        Send InvokeComMethod to hDispatchDriver 14 OLE_VT_VOID

    End_Procedure

    // Returns the source line from the specified command number

    Function ComGetSourceLineFromCommand Integer llcmd Integer ByRef llline Returns String

        Handle hDispatchDriver

        String retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_I4 llcmd

        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I4) llline

        Get InvokeComMethod of hDispatchDriver 15 OLE_VT_BSTR to retVal

        Function_Return retVal

    End_Function

    // Returns array of all messages in program

    Function ComGetAllMessages Returns String[]

        Handle hDispatchDriver

        String[] retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 16 (OLE_VT_ARRAY ior OLE_VT_BSTR) to retVal

        Function_Return retVal

    End_Function

    // Returns whether the specified source file is part of the debuggee program

    Function ComIsValidSourceFile String llfile Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Get InvokeComMethod of hDispatchDriver 17 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Returns the instruction address of the specified source file and line number

    Function ComGetCommandFromSourceLine String llfile UInteger llline Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Send DefineParam to hDispatchDriver OLE_VT_UI4 llline

        Get InvokeComMethod of hDispatchDriver 18 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // Requests the runtime to reallocate the specified buffer

    Function ComReallocProgramBuffer Char ByRef llpData Integer llsize Returns Char

        Handle hDispatchDriver

        Char retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_I1) llpData

        Send DefineParam to hDispatchDriver OLE_VT_I4 llsize

        Get InvokeComMethod of hDispatchDriver 19 (OLE_VT_BYREF ior OLE_VT_I1) to retVal

        Function_Return retVal

    End_Function

    // Introduced in vdf14.1

    // Returns a list of attachable processes

    Function ComGetAttachableProcesses Returns UInteger[]

        Handle hDispatchDriver

        UInteger[] retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 20 (OLE_VT_ARRAY ior OLE_VT_UI4) to retVal

        Function_Return retVal

    End_Function

    // Introduced in vdf14.1

    // Attaches and starts debugging the specified process

    Procedure ComAttachProcess UInteger llpid

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_UI4 llpid

        Send InvokeComMethod to hDispatchDriver 21 OLE_VT_VOID

    End_Procedure

    // Introduced in vdf15.0

    // Sets the specified conditional breakpoint expression

    Function ComSetBreakPointCondition String llfile UInteger ByRef llline String llexpr Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 3

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_UI4) llline

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llexpr

        Get InvokeComMethod of hDispatchDriver 22 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Introduced in vdf15.0

    // Attempts to adjust the current instruction pointer to the specified file and line

    Function ComSetNextInstruction String llfile UInteger llline Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llfile

        Send DefineParam to hDispatchDriver OLE_VT_UI4 llline

        Get InvokeComMethod of hDispatchDriver 23 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

End_Class

// CLSID:

// _IDebuggerEngineEvents Interface

Class cCom_IDebuggerEngineEvents is a Mixin

    // Occurs after program has been successfully initialized

    { MethodType=Event }

    Procedure OnComProgramInit

    End_Procedure

    // Occurs after the program exits

    { MethodType=Event }

    Procedure OnComProgramExit

    End_Procedure

    // Occurs if there is an error starting the program

    { MethodType=Event }

    Procedure OnComProgramStartupError String llerrorMessage

    End_Procedure

    // Occurs if there is an error initializing the program

    { MethodType=Event }

    Procedure OnComProgramInitError String llerrorMessage

    End_Procedure

    // Occurs when the program execution is paused

    { MethodType=Event }

    Procedure OnComProgramPaused String llfile UInteger llline Boolean lllimitedBreakMode

    End_Procedure

    // Occurs when the program execution resumes

    { MethodType=Event }

    Procedure OnComProgramContinue

    End_Procedure

    // Occurs after a change requiring views to be refreshed

    { MethodType=Event }

    Procedure OnComUpdateView String llfile UInteger llline

    End_Procedure

    // Occurs when a new message is executed

    { MethodType=Event }

    Procedure OnComNewMessage Integer llbSteppin

    End_Procedure

    // Occurs if an unhandled program exception is detected

    { MethodType=Event }

    Procedure OnComUnhandledProgramException String lldescription

    End_Procedure

    // Occurs if there is an incoming request for another web app session. You can abandon the current session and switch to the new session or deny the new session and continue debugging the current session

    { MethodType=Event }

    Procedure OnComAcceptWebAppSession Boolean ByRef llacceptNewSession

    End_Procedure

    // Occurs if there is a fatal web app error

    { MethodType=Event }

    Procedure OnComWebAppError String lldescription

    End_Procedure

    // Occurs when a new webapp event log entry is added

    { MethodType=Event }

    Procedure OnComWebAppLog Integer lleventId String lltext

    End_Procedure

    // Introduced in vdf15.0

    // Occurs if there was an error evaluating a conditional breakpoint

    { MethodType=Event }

    Procedure OnComBreakPointError String lltext

    End_Procedure

    { Visibility=Private }

    Procedure RegisterComEvents

        Integer iRuntimeVersion

        Get piRuntimeVersion To iRuntimeVersion

        Send RegisterComEvent 1 msg_OnComProgramInit

        Send RegisterComEvent 2 msg_OnComProgramExit

        Send RegisterComEvent 3 msg_OnComProgramStartupError

        Send RegisterComEvent 4 msg_OnComProgramInitError

        Send RegisterComEvent 5 msg_OnComProgramPaused

        Send RegisterComEvent 6 msg_OnComProgramContinue

        Send RegisterComEvent 7 msg_OnComUpdateView

        Send RegisterComEvent 8 msg_OnComNewMessage

        Send RegisterComEvent 9 msg_OnComUnhandledProgramException

        Send RegisterComEvent 10 msg_OnComAcceptWebAppSession

        Send RegisterComEvent 11 msg_OnComWebAppError

        Send RegisterComEvent 12 msg_OnComWebAppLog

        If (iRuntimeVersion >= 150) Begin

          Send RegisterComEvent 13 msg_OnComBreakPointError

        End

    End_Procedure

End_Class

// CoClass

// ProgID: VDFDebugger.DebuggerEngine.xx.yy

// CLSID:

// DebuggerEngine Class

Class cComCDebuggerEngine is a cComAutomationObject

    Import_Class_Protocol cComIDebuggerEngine

    Import_Class_Protocol cCom_IDebuggerEngineEvents

    Procedure Construct_Object

        Property Integer piRuntimeVersion      0

        Send Construct_Runtime_Object

        Forward Send Construct_Object

        Set peAutoCreate to acNoAutoCreate

    End_Procedure

    Procedure Construct_Runtime_Object

      Integer iRuntimeVersion

      Send DetermineRuntimeVersion

      Get piRuntimeVersion To iRuntimeVersion

      If (iRuntimeVersion>0) Begin

        Case Begin

          Case (iRuntimeVersion=121)

            Set psProgID  to "{5D1787AA-8784-44C1-9DC9-23691B555BC5}"

            Set psEventId to "{095A09B6-44D2-47A7-831D-FAC23B90E647}"

            Case Break

          Case (iRuntimeVersion=140)

            Set psProgID  to "{C42F9C95-1C4D-4B82-AC23-E2987C133C89}"

            Set psEventId to "{BACC0261-865D-4461-A4D0-DD1DAAD76DCF}"

            Case Break

          Case (iRuntimeVersion=141)

            Set psProgID  to "{D4E8A085-6BCB-401E-8935-53B0BC3DE1F7}"

            Set psEventId to "{42057C20-ACDD-437A-B2F7-0A5022F1D907}"

            Case Break

          Case (iRuntimeVersion=150)

            Set psProgID  to "{B05C6BA2-22E1-4F33-9CC0-1FCF4238C150}"

            Set psEventId to "{BF31B3B2-D914-4E62-9D37-23723833FF8A}"

            Case Break

          Case (iRuntimeVersion=151)

            Set psProgID  to "{D0F02260-D707-4DD7-940E-C35EB389D16B}"

            Set psEventId to "{9590FEB3-ABD2-4763-AFDB-A218196A9C6F}"

            Case Break

          Case (iRuntimeVersion=160)

            Set psProgID  to "{B7ED76CF-D6F8-4528-8275-2F3F792E008B}"

            Set psEventId to "{0EBB5A76-0143-45A7-884E-0E252A11795E}"

            Case Break

          Case (iRuntimeVersion=161)

            Set psProgID  to "{5B894619-D007-4A25-9786-FE0CD2C414BA}"

            Set psEventId to "{264BB78F-E976-4BD6-A217-8D10D2AF718D}"

            Case Break

          Case (iRuntimeVersion=170)

            Set psProgID  to "{06CDD06C-BDCC-4EC7-AC76-6D05677E2B18}"

            Set psEventId to "{6B877F88-533E-451A-867F-DC19C4384288}"

            Case Break

          Case (iRuntimeVersion=171)

            Set psProgID  to "{EC61BA89-1E93-4218-84CD-BF60813C296D}"

            Set psEventId to "{3E68B693-41EF-4DBB-AF45-0593F5396501}"

            Case Break

          Case (iRuntimeVersion=180)

            Set psProgID  to "{BA11DE00-6B72-40D4-AC0D-E5FFAAF0B8CC}"

            Set psEventId to "{216D2FA6-C7EF-4A89-87BA-8AB5E2D71000}"

            Case Break

          Case (iRuntimeVersion=181)

            Set psProgID  to "{171F96C0-5821-4944-A9AD-A181370171B5}"

            Set psEventId to "{BB17ACB2-A5A0-49EE-AFDE-D47A13D0F8DA}"

            Case Break

          Case (iRuntimeVersion=182)

            Set psProgID  to "{2F6ADD84-7CE0-46B3-B3DA-681CC5A95A83}"

            Set psEventId to "{56C51041-E9CB-4A2D-8FFF-31B0676B2292}"

            Case Break

          Case (iRuntimeVersion=190)

            Set psProgID  to "{B947F0F4-13FF-499B-854E-BDE229EF6B0C}"

            Set psEventId to "{CD4D543E-6821-4F48-BB51-7180EA842021}"

            Case Break

          Case Else

            Send Stop_Box ("The debug component for VDF"*trim(iRuntimeVersion)*"has not yet been defined.") CS_SPLATFATALCAPTION

            Abort

        Case End

      End

      Else Begin

        Send Stop_Box "Could not determine runtime version of passed application." CS_SPLATFATALCAPTION

        Abort

      End

    End_Procedure // Construct_Runtime_Object

    Procedure DetermineRuntimeVersion

    End_Procedure // DetermineRuntimeVersion

End_Class

// CLSID:

// ICallStack Interface

Class cComICallStack is a Mixin

    // property MessageColumnWidth

    { MethodType=Property DesignTime=False }

    Function ComMessageColumnWidth Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property MessageColumnWidth

    { MethodType=Property DesignTime=False }

    Procedure Set ComMessageColumnWidth Integer value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value

    End_Procedure

    // property ObjectColumnWidth

    { MethodType=Property DesignTime=False }

    Function ComObjectColumnWidth Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property ObjectColumnWidth

    { MethodType=Property DesignTime=False }

    Procedure Set ComObjectColumnWidth Integer value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value

    End_Procedure

End_Class

// CLSID:

// _ICallStackEvents Interface

Class cCom_ICallStackEvents is a Mixin

    { Visibility=Private }

    Procedure RegisterComEvents

    End_Procedure

End_Class

// CoClass

// ProgID: VDFDebugger.CallStack.xx.yy

// CLSID:

// CallStack Class

Class cComCCallStack is a cComActiveXControl

    Import_Class_Protocol cComICallStack

    Import_Class_Protocol cCom_ICallStackEvents

    Procedure Construct_Object

        Property Integer piRuntimeVersion      0

        Send Construct_Runtime_Object

        Forward Send Construct_Object

        Set peAutoCreate to acDeferredAutoCreate

    End_Procedure

    Procedure Construct_Runtime_Object

      Integer iRuntimeVersion

      Send DetermineRuntimeVersion

      Get piRuntimeVersion To iRuntimeVersion

      If (iRuntimeVersion>0) Begin

        Case Begin

          Case (iRuntimeVersion=121)

            Set psProgID  to "{A03ABC66-F7B4-431D-97BC-50A14EDF6801}"

            Set psEventId to "{69F6877B-5D55-4B53-B800-31F8D70A5865}"

            Case Break

          Case (iRuntimeVersion=140)

            Set psProgID  to "{6DF90F7D-B29C-4753-9D5A-22E1F68D8AAB}"

            Set psEventId to "{A1BCC09D-F31D-4210-8061-B9F15300E981}"

            Case Break

          Case (iRuntimeVersion=141)

            Set psProgID  to "{23158C9C-11D0-4235-A17A-E45BDD3D7B5B}"

            Set psEventId to "{3D452939-8654-4D7E-A153-080155DD13BF}"

            Case Break

          Case (iRuntimeVersion=150)

            Set psProgID  to "{316ACE93-D566-4D98-A1DE-8C5B8D049C5F}"

            Set psEventId to "{B952BFAC-39CE-4FF5-B3A5-96E7964DBEAF}"

            Case Break

          Case (iRuntimeVersion=151)

            Set psProgID  to "{27A64009-1EA1-4D8A-9CDF-397E2623A789}"

            Set psEventId to "{711066C1-D52F-4182-8CD6-273501AE411A}"

            Case Break

          Case (iRuntimeVersion=160)

            Set psProgID  to "{A24F04F5-18D2-4D8D-B47C-53BCA01CDFC2}"

            Set psEventId to "{4B9989B2-3EC1-4388-95CD-D1C7129179B6}"

            Case Break

          Case (iRuntimeVersion=161)

            Set psProgID  to "{085F69A7-64C9-4AD8-85AF-3ACD5D7223AC}"

            Set psEventId to "{CD23CF24-8977-4501-B46E-CE3D2E351EFE}"

            Case Break

          Case (iRuntimeVersion=170)

            Set psProgID  to "{0FCE23F5-C38D-456F-9B7A-7DD0CCF0BAA3}"

            Set psEventId to "{55801305-66DE-4D00-B08D-144214A11217}"

            Case Break

          Case (iRuntimeVersion=171)

            Set psProgID  to "{84421400-9D1E-4BCF-8FE3-B7A2BB7DF429}"

            Set psEventId to "{D0B6752E-0D47-43E4-A437-9C56C77B03DA}"

            Case Break

          Case (iRuntimeVersion=180)

            Set psProgID  to "{66B11369-FA28-4344-BAA2-F595500C2B4E}"

            Set psEventId to "{46832FCB-926C-4B33-A0F7-F3F109D432A0}"

            Case Break

          Case (iRuntimeVersion=181)

            Set psProgID  to "{F29634D8-9A2A-4A9B-8DBA-C68949A25DAF}"

            Set psEventId to "{DC45918E-F658-4D97-BC84-77314530643B}"

            Case Break

          Case (iRuntimeVersion=182)

            Set psProgID  to "{9C6ACD13-4F6F-4D36-8D04-8AC916983087}"

            Set psEventId to "{40A518EF-465F-47A3-86AF-F3D9E62BA493}"

            Case Break

          Case (iRuntimeVersion=190)

            Set psProgID  to "{E2568C04-384E-47CF-BC94-0EFA5E2F982B}"

            Set psEventId to "{690FA63D-01B7-439E-89F7-69656C52656E}"

            Case Break

          Case Else

            Send Stop_Box ("The callstack component for VDF"*trim(iRuntimeVersion)*"has not yet been defined.") CS_SPLATFATALCAPTION

            Abort

        Case End

      End

      Else Begin

        Send Stop_Box "Could not determine runtime version of passed application for callstack." CS_SPLATFATALCAPTION

        Abort

      End

    End_Procedure // Construct_Runtime_Object

    Procedure DetermineRuntimeVersion

    End_Procedure // DetermineRuntimeVersion

End_Class

// CLSID: {149B7FCC-117B-4407-AC2B-67338349D701}

// IMessageTrace Interface

Class cComIMessageTrace is a Mixin

    // property bTraceOn - controles if tracing is turned on or off

    { MethodType=Property DesignTime=False }

    Function ComBTraceOn Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property bTraceOn - controles if tracing is turned on or off

    { MethodType=Property DesignTime=False }

    Procedure Set ComBTraceOn Integer value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value

    End_Procedure

    // method LoadFilters - provide array of message names that are supposed to be filtered

    Procedure ComLoadFilters String[] llsaFilters

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver (OLE_VT_ARRAY ior OLE_VT_BSTR) llsaFilters

        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID

    End_Procedure

    // method ClearFilters - dont apply any filters

    Procedure ComClearFilters

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID

    End_Procedure

    // property sLogFileName - name of the file where traced messages will be stored

    { MethodType=Property DesignTime=False }

    Function ComSLogFileName Returns String

        Handle hDispatchDriver

        String retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BSTR to retVal

        Function_Return retVal

    End_Function

    // property sLogFileName - name of the file where traced messages will be stored

    { MethodType=Property DesignTime=False }

    Procedure Set ComSLogFileName String value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Set ComProperty of hDispatchDriver 4 OLE_VT_BSTR to value

    End_Procedure

    // method ClearTrace - clears tree. It works only when tracing is currently off

    Procedure ComClearTrace

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID

    End_Procedure

    // method AddFilter - add one message to filter array

    Procedure ComAddFilter String llsFilter

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llsFilter

        Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID

    End_Procedure

    // Introduced in vdf14.0

    // method SaveTracer - Saves content of a tree. Parameter controles if children of unexpanded nodes should be processed too

    Procedure ComSaveTracer Integer llbAsIs

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_I4 llbAsIs

        Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID

    End_Procedure

End_Class

// CLSID: {768B3472-A53F-4969-A250-4AB0756FDB5F}

// _IMessageTraceEvents Interface

Class cCom_IMessageTraceEvents is a Mixin

    // method OnMessageClicked - fired when user clicked node in a message trace tree

    { MethodType=Event }

    Procedure OnComMessageClicked UInteger llcommandNo

    End_Procedure

    // method OnAddMsg2Filter  - when user selected context menu for the add 2 filter message option

    { MethodType=Event }

    Procedure OnComAddMsg2Filter String llsMessageName

    End_Procedure

    // method OnFilterOptions - fired when user wants to bring dialog for defining message filters

    { MethodType=Event }

    Procedure OnComFilterOptions

    End_Procedure

    // Introduced in vdf14.0

    // method OnContextMenu - fired when user right clicked to bring up context menu

    { MethodType=Event }

    Procedure OnComContextMenu String llsMessageName UInteger llpoint

    End_Procedure

    { Visibility=Private }

    Procedure RegisterComEvents

        Integer iRuntimeVersion

        Get piRuntimeVersion To iRuntimeVersion

        Send RegisterComEvent 1 msg_OnComMessageClicked

        Send RegisterComEvent 2 msg_OnComAddMsg2Filter

        Send RegisterComEvent 3 msg_OnComFilterOptions

        If (iRuntimeVersion >= 140) Begin

          Send RegisterComEvent 4 msg_OnComContextMenu

        End

    End_Procedure

End_Class

// CoClass

// ProgID: vdfdbg.MessageTrace.12.1

// CLSID: {BDC0465B-AA4A-460B-81FC-1D080CAF697B}

// MessageTrace Class { CLSID="{BDC0465B-AA4A-460B-81FC-1D080CAF697B}" }

Class cComCMessageTrace is a cComActiveXControl

    Import_Class_Protocol cComIMessageTrace

    Import_Class_Protocol cCom_IMessageTraceEvents

    Procedure Construct_Object

        Property Integer piRuntimeVersion      0

        Send Construct_Runtime_Object

        Forward Send Construct_Object

        Set peAutoCreate to acDeferredAutoCreate

    End_Procedure

    Procedure Construct_Runtime_Object

      Integer iRuntimeVersion

      Send DetermineRuntimeVersion

      Get piRuntimeVersion To iRuntimeVersion

      If (iRuntimeVersion>0) Begin

        Case Begin

          Case (iRuntimeVersion=121)

            Set psProgID  to "{BDC0465B-AA4A-460B-81FC-1D080CAF697B}"

            Set psEventId to "{768B3472-A53F-4969-A250-4AB0756FDB5F}"

            Case Break

          Case (iRuntimeVersion=140)

            Set psProgID  to "{59CD8C8A-AF59-4F30-A4AC-7F70EACBDBD3}"

            Set psEventId to "{FC3691BE-70F8-4858-AD54-752B836B0864}"

            Case Break

          Case (iRuntimeVersion=141)

            Set psProgID  to "{F145CCCD-379A-42F1-B87B-3549E63A29BE}"

            Set psEventId to "{4E40C6A3-2221-4548-8CBE-95572863C91A}"

            Case Break

          Case (iRuntimeVersion=150)

            Set psProgID  to "{A485BFAE-42C9-4CEC-93BC-4C5B697588C0}"

            Set psEventId to "{DC4E3B27-ACB9-4C09-9F55-971235949335}"

            Case Break

          Case (iRuntimeVersion=151)

            Set psProgID  to "{990C4CA5-8F9E-4F8B-8CCB-036C1DF45B0E}"

            Set psEventId to "{A1E70110-2B34-4E2B-8499-CECB0A6C1034}"

            Case Break

          Case (iRuntimeVersion=160)

            Set psProgID  to "{70EEB655-0A2D-4817-B494-05090CC2EB38}"

            Set psEventId to "{F8207FD8-C7DD-4F04-B5FA-4EDF6F050045}"

            Case Break

          Case (iRuntimeVersion=161)

            Set psProgID  to "{B44EF827-949F-4B18-8AA9-09333D8C6795}"

            Set psEventId to "{83B6388A-4171-4DAF-84C7-AED86BAF1FDD}"

            Case Break

          Case (iRuntimeVersion=170)

            Set psProgID  to "{CA71995D-FBBD-4B2C-AB22-D4F930F38A73}"

            Set psEventId to "{13DAD475-F098-4998-9458-5D55409E2FF3}"

            Case Break

          Case (iRuntimeVersion=171)

            Set psProgID  to "{96D1BE93-C668-4ED2-A019-C8A8038BBC6F}"

            Set psEventId to "{FEC2001F-C38C-4B82-B50A-27DF170E80F5}"

            Case Break

          Case (iRuntimeVersion=180)

            Set psProgID  to "{E1ECE87A-2D84-4992-810B-FE774EC06821}"

            Set psEventId to "{2FDB7CED-1C53-4777-915F-57AAE38D9448}"

            Case Break

          Case (iRuntimeVersion=181)

            Set psProgID  to "{4EE6A8B2-B87A-45D5-864A-1DB75DC3E256}"

            Set psEventId to "{B7123F3C-6795-4B9B-9FEB-32E444B92841}"

            Case Break

          Case (iRuntimeVersion=182)

            Set psProgID  to "{3D6DC1D2-F6D1-4720-9B04-562A4849FF4B}"

            Set psEventId to "{F356E55F-B70A-4C5D-BDAB-1FD06C22D58D}"

            Case Break

          Case (iRuntimeVersion=190)

            Set psProgID  to "{2763EF43-1793-4737-B732-27D983821342}"

            Set psEventId to "{0E4DFEAB-36A9-4C67-BD0F-82D1D50ABA11}"

            Case Break

          Case Else

            Send Stop_Box ("The message trace component for VDF"*trim(iRuntimeVersion)*"has not yet been defined.") CS_SPLATFATALCAPTION

            Abort

        Case End

      End

      Else Begin

        Send Stop_Box "Could not determine runtime version of passed application for message trace." CS_SPLATFATALCAPTION

        Abort

      End

    End_Procedure // Construct_Runtime_Object

    Procedure DetermineRuntimeVersion

    End_Procedure // DetermineRuntimeVersion

End_Class

// CLSID: {ED3CE9E1-32A8-4BE6-82E4-054939FD335A}

// ITablesWindow Interface

Class cComITablesWindow is a Mixin

    // property ColumnWidth

    { MethodType=Property DesignTime=False }

    Function ComColumnWidth Integer lllColumnIndex Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColumnIndex

        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property ColumnWidth

    { MethodType=Property DesignTime=False }

    Procedure Set ComColumnWidth Integer lllColumnIndex Integer value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColumnIndex

        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value

    End_Procedure

    // Introduced in DF18.1

    // method CopyDataValueToClipboard

    Procedure ComCopyDataValueToClipboard

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID

    End_Procedure

End_Class

// CLSID: {118331A8-61E6-4F82-B802-F19E42D63762}

// _ITablesWindowEvents Interface

Class cCom_ITablesWindowEvents is a Mixin

    // method OnCmdAddWatch - fired when user selects add to watch from popup menu

    { MethodType=Event }

    Procedure OnComCmdAddWatch String llsExpression

    End_Procedure

    // Introduced in vdf14.0

    // method OnContextMenu - fired when user right clicked to bring up context menu

    { MethodType=Event }

    Procedure OnComContextMenu String llsMessageName UInteger llpoint

    End_Procedure

    { Visibility=Private }

    Procedure RegisterComEvents

        Integer iRuntimeVersion

        Get piRuntimeVersion To iRuntimeVersion

        Send RegisterComEvent 1 msg_OnComCmdAddWatch

        If (iRuntimeVersion >= 140) Begin

          Send RegisterComEvent 2 msg_OnComContextMenu

        End

    End_Procedure

End_Class

// CoClass

// ProgID: vdfdbg.TablesWindow.cc.aa

// CLSID:

// TablesWindow Class

Class cComCTablesWindow is a cComActiveXControl

    Import_Class_Protocol cComITablesWindow

    Import_Class_Protocol cCom_ITablesWindowEvents

    Procedure Construct_Object

        Property Integer piRuntimeVersion      0

        Send Construct_Runtime_Object

        Forward Send Construct_Object

        Set peAutoCreate to acDeferredAutoCreate

    End_Procedure

    Procedure Construct_Runtime_Object

      Integer iRuntimeVersion

      Send DetermineRuntimeVersion

      Get piRuntimeVersion To iRuntimeVersion

      If (iRuntimeVersion>0) Begin

        Case Begin

          Case (iRuntimeVersion=121)

            Set psProgID  to "{35C803D2-2899-4F13-9456-5C7F5848FBCF}"

            Set psEventId to "{118331A8-61E6-4F82-B802-F19E42D63762}"

            Case Break

          Case (iRuntimeVersion=140)

            Set psProgID  to "{91CA7649-43B0-4F3E-92B3-BADD8A884447}"

            Set psEventId to "{F288F96A-8923-4E8F-B5CC-0AB160053C07}"

            Case Break

          Case (iRuntimeVersion=141)

            Set psProgID  to "{CA06A82B-74EA-40B8-A5A4-69E8A2CA3764}"

            Set psEventId to "{CAD0B222-D2C6-4F4C-A592-04DCC9D30D0D}"

            Case Break

          Case (iRuntimeVersion=150)

            Set psProgID  to "{07E109DA-BF00-41FF-9D21-96360E0608E4}"

            Set psEventId to "{58078986-055B-4901-AFF0-B55BEFA4B008}"

            Case Break

          Case (iRuntimeVersion=151)

            Set psProgID  to "{9450B22B-01C2-4AE2-95DC-A8AF3FD979A1}"

            Set psEventId to "{4DC20661-26A4-4AC2-9908-BB2A13E002D3}"

            Case Break

          Case (iRuntimeVersion=160)

            Set psProgID  to "{4CFBF226-218B-4AE9-8874-CBE5506D3EA5}"

            Set psEventId to "{7C238927-0A96-46B9-B9F9-A8824B9E93E3}"

            Case Break

          Case (iRuntimeVersion=161)

            Set psProgID  to "{77D5AA47-2305-42D2-A726-5973D4B394C6}"

            Set psEventId to "{17B95A0E-4AA1-4C8A-8E0E-9DE56B1C9E17}"

            Case Break

          Case (iRuntimeVersion=170)

            Set psProgID  to "{E41C20AC-C9F0-4BB0-8612-FBB0AC620781}"

            Set psEventId to "{F47F3B85-A94A-4510-950E-AD4B5F25C4B9}"

            Case Break

          Case (iRuntimeVersion=171)

            Set psProgID  to "{F92169DF-8131-4FF6-B247-FAD053B3460E}"

            Set psEventId to "{9C300088-C7E3-40F0-BF54-65DDFC1A81B5}"

            Case Break

          Case (iRuntimeVersion=180)

            Set psProgID  to "{A2D34452-84FF-4F22-9215-3F9D9660EAD1}"

            Set psEventId to "{CD7F9D4A-09B6-4FD1-8B52-A331489257F4}"

            Case Break

          Case (iRuntimeVersion=181)

            Set psProgID  to "{8DD5EC8B-C787-4B99-A2F7-F35C66A5422F}"

            Set psEventId to "{29E04458-C4CB-4B04-BBAE-38452B0039E2}"

            Case Break

          Case (iRuntimeVersion=182)

            Set psProgID  to "{05AA305A-1698-47A5-8A61-0DFB349813BF}"

            Set psEventId to "{503A436C-8E9D-454D-8351-8A811CEE6A5C}"

            Case Break

          Case (iRuntimeVersion=190)

            Set psProgID  to "{7B990C47-0CC6-4F4B-A6C4-1A4644E3804E}"

            Set psEventId to "{BCDD8AEC-97C6-4705-9FD3-40CD3274B4EE}"

            Case Break

          Case Else

            Send Stop_Box ("The debug tables component for VDF"*trim(iRuntimeVersion)*"has not yet been defined.") CS_SPLATFATALCAPTION

            Abort

        Case End

      End

      Else Begin

        Send Stop_Box "Could not determine runtime version of passed application for debug tables." CS_SPLATFATALCAPTION

        Abort

      End

    End_Procedure // Construct_Runtime_Object

    Procedure DetermineRuntimeVersion

    End_Procedure // DetermineRuntimeVersion

End_Class

// CLSID: {340DCA34-E155-45F4-96A5-25A10E191919}

// IVariablesWindow Interface

Class cComIVariablesWindow is a Mixin

    // property WindowType (set 0 for local variables, and 1 for globals)

    { MethodType=Property DesignTime=False }

    Function ComWindowType Returns OLEdbgVariableWindows

        Handle hDispatchDriver

        OLEdbgVariableWindows retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property WindowType (set 0 for local variables, and 1 for globals)

    { MethodType=Property DesignTime=False }

    Procedure Set ComWindowType OLEdbgVariableWindows value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Set ComProperty of hDispatchDriver 1 OLE_VT_I4 to value

    End_Procedure

    // property ColumnWidth

    { MethodType=Property DesignTime=False }

    Function ComColumnWidth Integer lllColumnIndex Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColumnIndex

        Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property ColumnWidth

    { MethodType=Property DesignTime=False }

    Procedure Set ComColumnWidth Integer lllColumnIndex Integer value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColumnIndex

        Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value

    End_Procedure

    // Introduced in vdf15.0

    // method ToggleSelectionViewAsObject

    Procedure ComToggleSelectionViewAsObject

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID

    End_Procedure

    // Introduced in vdf15.0

    // method CanToggleSelectionViewAsObject

    Function ComCanToggleSelectionViewAsObject Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Introduced in vdf15.0

    // method IsSelectionViewAsObject

    Function ComIsSelectionViewAsObject Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Introduced in DF18.1

    // method CopyDataValueToClipboard

    Procedure ComCopyDataValueToClipboard

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID

    End_Procedure

    // Introduced in DF18.1

    // method CanCopyDataValue

    Function ComCanCopyDataValue Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

End_Class

// CLSID: {E1CA1311-93EA-4A32-AD25-B623F09BA771}

// _IVariablesWindowEvents Interface

Class cCom_IVariablesWindowEvents is a Mixin

    // method OnCmdAddWatch - fired when user selects add to watch from popup menu

    { MethodType=Event }

    Procedure OnComCmdAddWatch String llsExpression

    End_Procedure

    // Introduced in vdf14.0

    // method OnContextMenu - fired when user right clicked to bring up context menu

    { MethodType=Event }

    Procedure OnComContextMenu String llsMessageName UInteger llpoint

    End_Procedure

    { Visibility=Private }

    Procedure RegisterComEvents

        Integer iRuntimeVersion

        Get piRuntimeVersion To iRuntimeVersion

        Send RegisterComEvent 1 msg_OnComCmdAddWatch

        If (iRuntimeVersion >= 140) Begin

          Send RegisterComEvent 2 msg_OnComContextMenu

        End

    End_Procedure

End_Class

// CoClass

// ProgID: vdfdbg.VariablesWindow.xx.yy

// CLSID:

// VariablesWindow Class

Class cComCVariablesWindow is a cComActiveXControl

    Import_Class_Protocol cComIVariablesWindow

    Import_Class_Protocol cCom_IVariablesWindowEvents

    Procedure Construct_Object

        Property Integer piRuntimeVersion      0

        Send Construct_Runtime_Object

        Forward Send Construct_Object

        Set peAutoCreate to acDeferredAutoCreate

    End_Procedure

    Procedure Construct_Runtime_Object

      Integer iRuntimeVersion

      Send DetermineRuntimeVersion

      Get piRuntimeVersion To iRuntimeVersion

      If (iRuntimeVersion>0) Begin

        Case Begin

          Case (iRuntimeVersion=121)

            Set psProgID  to "{3DCB562D-47E1-4630-B494-DAA84D173F51}"

            Set psEventId to "{E1CA1311-93EA-4A32-AD25-B623F09BA771}"

            Case Break

          Case (iRuntimeVersion=140)

            Set psProgID  to "{FC62D35A-D0A9-4BE2-9C7B-699892657275}"

            Set psEventId to "{64752F65-F0EA-4E39-A934-A826B94483A5}"

            Case Break

          Case (iRuntimeVersion=141)

            Set psProgID  to "{BEB2FE78-D0E8-4406-A92B-E410638288AD}"

            Set psEventId to "{913F4BDD-10DE-4923-8945-030CA5B48649}"

            Case Break

          Case (iRuntimeVersion=150)

            Set psProgID  to "{7099EAFD-4230-4C37-B547-D9E03EE8BDF6}"

            Set psEventId to "{A61BC600-3025-4E33-A263-A34AA2C68249}"

            Case Break

          Case (iRuntimeVersion=151)

            Set psProgID  to "{4E23F1D7-28AE-4F8C-8ADE-BFA168603003}"

            Set psEventId to "{9BA3385E-3382-45DE-9879-855F01A0E0C9}"

            Case Break

          Case (iRuntimeVersion=160)

            Set psProgID  to "{3B742EEF-8870-47F7-A817-D5C4CFFC8471}"

            Set psEventId to "{EB553338-E564-4F1B-B2DA-67A4BA97720B}"

            Case Break

          Case (iRuntimeVersion=161)

            Set psProgID  to "{6C7A06AA-4148-4558-A298-20B0FFB9FD42}"

            Set psEventId to "{521D95D0-2FE8-4014-9995-C43A019EE325}"

            Case Break

          Case (iRuntimeVersion=170)

            Set psProgID  to "{398EA7A3-D404-4372-8CE4-0CEE44AE5255}"

            Set psEventId to "{5A43E915-F93D-48FE-9CD1-37BEF6514865}"

            Case Break

          Case (iRuntimeVersion=171)

            Set psProgID  to "{4816B313-5B85-4F96-AAD8-2F8EB26D6CE9}"

            Set psEventId to "{CD510572-332A-4145-A1BF-8A77F18C107C}"

            Case Break

          Case (iRuntimeVersion=180)

            Set psProgID  to "{800A71A1-412D-4082-B1C9-856E32C4FE01}"

            Set psEventId to "{7B1BDF69-C17A-483D-8787-9F05972561C5}"

            Case Break

          Case (iRuntimeVersion=181)

            Set psProgID  to "{4F68B1B0-80E0-40D4-A429-7576B48D32FC}"

            Set psEventId to "{BCD531B3-8927-49E0-A386-1096D12BC170}"

            Case Break

          Case (iRuntimeVersion=182)

            Set psProgID  to "{69E32690-0291-48EF-856C-51896F8E146F}"

            Set psEventId to "{2EDDE32A-4CD1-4BE9-A875-99DDAB2A1009}"

            Case Break

          Case (iRuntimeVersion=190)

            Set psProgID  to "{CF2149B0-36B1-4BFB-BB3D-7A5889F793FE}"

            Set psEventId to "{73DFB990-71DC-4727-A113-06BA73F4DE7E}"

            Case Break

          Case Else

            Send Stop_Box ("The debug variables component for VDF"*trim(iRuntimeVersion)*"has not yet been defined.") CS_SPLATFATALCAPTION

            Abort

        Case End

      End

      Else Begin

        Send Stop_Box "Could not determine runtime version of passed application for debug variables." CS_SPLATFATALCAPTION

        Abort

      End

    End_Procedure // Construct_Runtime_Object

    Procedure DetermineRuntimeVersion

    End_Procedure // DetermineRuntimeVersion

End_Class

// CLSID: {5FF4AD31-3606-4009-80BA-9C7A9E959538}

// IWatches Interface

Class cComIWatches is a Mixin

    // method LoadWatches - Loads expressions in the grid

    Procedure ComLoadWatches String[] llsaExpressions

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver (OLE_VT_ARRAY ior OLE_VT_BSTR) llsaExpressions

        Send InvokeComMethod to hDispatchDriver 1 OLE_VT_VOID

    End_Procedure

    // method GetWatches - Get Array of expressions currently displayed

    Function ComGetWatches Returns String[]

        Handle hDispatchDriver

        String[] retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 2 (OLE_VT_ARRAY ior OLE_VT_BSTR) to retVal

        Function_Return retVal

    End_Function

    // method ClearWatches - Remove all watches from window

    Procedure ComClearWatches

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID

    End_Procedure

    // method AddWatch

    Procedure ComAddWatch String llsWatch

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_BSTR llsWatch

        Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID

    End_Procedure

    // property ColumnWidth

    { MethodType=Property DesignTime=False }

    Function ComColumnWidth Integer lllColumnIndex Returns Integer

        Handle hDispatchDriver

        Integer retVal

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 1

        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColumnIndex

        Get InvokeComMethod of hDispatchDriver 5 OLE_VT_I4 to retVal

        Function_Return retVal

    End_Function

    // property ColumnWidth

    { MethodType=Property DesignTime=False }

    Procedure Set ComColumnWidth Integer lllColumnIndex Integer value

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send PrepareParams to hDispatchDriver 2

        Send DefineParam to hDispatchDriver OLE_VT_I4 lllColumnIndex

        Set ComProperty of hDispatchDriver 5 OLE_VT_I4 to value

    End_Procedure

    // Introduced in vdf15.0

    // method ToggleSelectionViewAsObject

    Procedure ComToggleSelectionViewAsObject

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID

    End_Procedure

    // Introduced in vdf15.0

    // method CanToggleSelectionViewAsObject

    Function ComCanToggleSelectionViewAsObject Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Introduced in vdf15.0

    // method IsSelectionViewAsObject

    Function ComIsSelectionViewAsObject Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

    // Introduced in DF18.1

    // method CopyDataValueToClipboard

    Procedure ComCopyDataValueToClipboard

        Handle hDispatchDriver

        Get phDispatchDriver to hDispatchDriver

        Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID

    End_Procedure

    // Introduced in DF18.1

    // method CanCopyDataValue

    Function ComCanCopyDataValue Returns Boolean

        Handle hDispatchDriver

        Boolean retVal

        Get phDispatchDriver to hDispatchDriver

        Get InvokeComMethod of hDispatchDriver 10 OLE_VT_BOOL to retVal

        Function_Return retVal

    End_Function

End_Class

// Introduced in vdf14.0

// CLSID:

// _IWatchesEvents Interface

Class cCom_IWatchesEvents is a Mixin

    // method OnContextMenu - fired when user right clicked to bring up context menu

    { MethodType=Event }

    Procedure OnComContextMenu UInteger llpoint

    End_Procedure

    { Visibility=Private }

    Procedure RegisterComEvents

        Integer iRuntimeVersion

        Get piRuntimeVersion To iRuntimeVersion

        If (iRuntimeVersion>140) Begin

          Send RegisterComEvent 1 msg_OnComContextMenu

        End

    End_Procedure

End_Class

// CoClass

// ProgID: vdfdbg.Watches.xx.yy

// CLSID:

// Watches Class

Class cComCWatches is a cComActiveXControl

    Import_Class_Protocol cComIWatches

    Import_Class_Protocol cCom_IWatchesEvents

    Procedure Construct_Object

        Property Integer piRuntimeVersion      0

        Send Construct_Runtime_Object

        Forward Send Construct_Object

        Set peAutoCreate to acDeferredAutoCreate

    End_Procedure

    Procedure Construct_Runtime_Object

      Integer iRuntimeVersion

      Send DetermineRuntimeVersion

      Get piRuntimeVersion To iRuntimeVersion

      If (iRuntimeVersion>0) Begin

        Case Begin

          Case (iRuntimeVersion=121)

            Set psProgID  to "{DAAF28FD-83C9-43C0-9EFF-B31718B8F969}"

            Case Break

          Case (iRuntimeVersion=140)

            Set psProgID  to "{705C8088-C38D-42B8-97B0-0B884CC18258}"

            Set psEventId to "{0FB06DC9-1F4F-4407-9357-A2F8F06089C1}"

            Case Break

          Case (iRuntimeVersion=141)

            Set psProgID  to "{21326EB8-BCE8-4E4D-AC46-5C0C4AA18DC9}"

            Set psEventId to "{937D4E5E-010E-4ADF-B9D5-7300ACFE0778}"

            Case Break

          Case (iRuntimeVersion=150)

            Set psProgID  to "{8C287ADF-6CB4-4821-8C32-2CA94B7D97D0}"

            Set psEventId to "{0BD0A0F8-34CF-404A-8D16-C7CEE9A0C76C}"

            Case Break

          Case (iRuntimeVersion=151)

            Set psProgID  to "{D74F2668-22A8-4382-A225-04E4A42179A7}"

            Set psEventId to "{1D49C1B8-AF08-4002-871D-9FCDC27413C9}"

            Case Break

          Case (iRuntimeVersion=160)

            Set psProgID  to "{F281D305-1446-49FE-8739-130495F45AE8}"

            Set psEventId to "{007FECE4-446E-4215-B05D-F566EA6994D0}"

            Case Break

          Case (iRuntimeVersion=161)

            Set psProgID  to "{D01A01B0-1A06-4CDE-9BEF-CD11C5754AAF}"

            Set psEventId to "{7D00FCBF-0577-4E70-B51C-380B9AEAF5C0}"

            Case Break

          Case (iRuntimeVersion=170)

            Set psProgID  to "{EC46FECC-1D70-4DC7-8DA0-96DEF69F0FE3}"

            Set psEventId to "{27179A78-7816-4DCD-9936-4AF0F9710A79}"

            Case Break

          Case (iRuntimeVersion=171)

            Set psProgID  to "{7E95BA97-4CEA-4FCC-A78F-C53A2FE3BD41}"

            Set psEventId to "{BD2C9BF6-FE93-4F49-92A1-011CA97A7515}"

            Case Break

          Case (iRuntimeVersion=180)

            Set psProgID  to "{EB60D95E-BFF7-40B4-9D3B-2817F69279DA}"

            Set psEventId to "{BE25D8E7-F995-474F-B5F2-09288BB2EC32}"

            Case Break

          Case (iRuntimeVersion=181)

            Set psProgID  to "{9AA2081A-1F94-4AEC-9F96-9CAA7087075F}"

            Set psEventId to "{F09A8A1A-2272-45C7-BFB8-BFE057CAED48}"

            Case Break

          Case (iRuntimeVersion=182)

            Set psProgID  to "{2A91AF25-76B1-4150-8EDF-7387AB6B6CC1}"

            Set psEventId to "{09413F3F-2C0A-4323-854E-288EBA8D2FEC}"

            Case Break

          Case (iRuntimeVersion=190)

            Set psProgID  to "{6F370750-2AF0-4847-A519-4BE1C36B2558}"

            Set psEventId to "{E5968354-0AF3-40B4-B102-07B0F55781D0}"

            Case Break

          Case Else

            Send Stop_Box ("The debug watches component for VDF"*trim(iRuntimeVersion)*"has not yet been defined.") CS_SPLATFATALCAPTION

            Abort

        Case End

      End

      Else Begin

        Send Stop_Box "Could not determine runtime version of passed application for debug watches." CS_SPLATFATALCAPTION

        Abort

      End

    End_Procedure // Construct_Runtime_Object

    Procedure DetermineRuntimeVersion

    End_Procedure // DetermineRuntimeVersion

End_Class