|
MakeInterpreterSafe Method
|
|
|
Applies To
|
BasicTcl Object, AdvancedTcl Object
|
|
Prototype
|
MakeInterpreterSafe(Interpreter As Long) As Long
|
|
Input
|
The "Interpreter" parameter, which must be a valid interpreter pointer.
|
|
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
|
None.
|
|
Description
|
This method is a wrapper around the Tcl_MakeSafe function.
The interpreter contained in the "Interpreter" parameter is made "safe".
|
|
Notes
|
Making an interpreter "safe" causes certain commands to be removed from the interpreter.
Please see the Tcl/Tk documentation for full details.
|
|
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 |