|
IsInterpreterSafe Method
|
|
|
Applies To
|
BasicTcl Object, AdvancedTcl Object
|
|
Prototype
|
IsInterpreterSafe(Interpreter As Long) As Long
|
|
Input
|
The "Interpreter" parameter, which must be a valid interpreter pointer.
|
|
Output
|
None.
|
|
Returns
|
Non-zero if the interpreter contained in the "Interpreter" parameter is "safe", zero otherwise.
|
|
COM Results
|
S_OK: Success.
E_INVALIDARG: Either a NULL pointer was passed or the "Interpreter" parameter is invalid. |
|
Side Effects
|
None.
|
|
Description
|
This method is a wrapper around the Tcl_IsSafe function.
The interpreter is checked to see if it is "safe".
|
|
Notes
|
None.
|
|
Example
|
Private Sub Command1_Click()
Dim poTcl As TclBridge.BasicTcl Dim plInterpreter As Long Set poTcl = New TclBridge.BasicTcl Call poTcl.CreateInterpreter(plInterpreter) MsgBox "Safe = " & poTcl.IsInterpreterSafe(plInterpreter), vbInformation, App.Title Call poTcl.MakeInterpreterSafe(plInterpreter) MsgBox "Safe = " & poTcl.IsInterpreterSafe(plInterpreter), vbInformation, App.Title Call poTcl.DeleteInterpreter(plInterpreter) Set poTcl = Nothing End Sub |