Back to Table of Contents
UpdateLinkedVariable Method
Applies To
AdvancedTcl Object
Prototype
UpdateLinkedVariable(Interpreter As Long, VariableName As String, Flags As Long, Reserved As Long) As Long
Input
The "Interpreter" parameter, which must be a valid interpreter pointer. The "VariableName" parameter, which contains the name of the variable to update. The "Flags" parameter, which is reserved for future use and must be zero. The "Reserved" parameter, which is reserved for future use and must be zero.
Output
None.
Returns
Undefined.
COM Results
S_OK: Success.
E_INVALIDARG: Either a NULL pointer was passed or the "Interpreter" parameter is invalid.
Side Effects
The Tcl variable is updated immediately.
Description
This method is a wrapper around the Tcl_UpdateLinkedVar function.
Notes
None.
Example
Private Sub Command1_Click()
    Dim poTcl As TclBridge.AdvancedTcl
    Dim plInterpreter As Long
    Dim plData As Long
    Dim psOutput As String

    Set poTcl = New TclBridge.AdvancedTcl

    Call poTcl.CreateInterpreter(plInterpreter)

    Call poTcl.LinkVariable(plInterpreter, "TestVariable", TCLBVariableLinkTypes.TCL_LINK_INT, VarPtr(plData), 0&, 0&)

    plData = 1234&
    Call poTcl.UpdateLinkedVariable(plInterpreter, "TestVariable", 0&, 0&)

    psOutput = vbNullString
    Call poTcl.GetVariable(plInterpreter, "TestVariable", psOutput, 0&, 0&)

    MsgBox "The variable = " & psOutput, vbInformation, App.Title

    Call poTcl.UnlinkVariable(plInterpreter, "TestVariable", 0&, 0&)

    Call poTcl.DeleteInterpreter(plInterpreter)

    Set poTcl = Nothing
End Sub