diff options
| author | Andreas Rumpf <rumpf_a@web.de> | 2010-02-28 23:04:18 +0100 |
|---|---|---|
| committer | Andreas Rumpf <rumpf_a@web.de> | 2010-02-28 23:04:18 +0100 |
| commit | b559285b78bfa76533d25e77f3f61cab2427bb03 (patch) | |
| tree | f418f489f307f825a934cea878921f65c0114561 /examples/tclex.nim | |
| parent | ddb718548278290a1c25c1bbfba82bc5581457a7 (diff) | |
| download | Nim-b559285b78bfa76533d25e77f3f61cab2427bb03.tar.gz | |
examples/lib use the new wrappers
Diffstat (limited to 'examples/tclex.nim')
| -rwxr-xr-x | examples/tclex.nim | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/tclex.nim b/examples/tclex.nim index 6d6d45b8f..8abdb7d9c 100755 --- a/examples/tclex.nim +++ b/examples/tclex.nim @@ -14,12 +14,12 @@ bind .e <Return> { } """ -Tcl_FindExecutable(getApplicationFilename()) -var interp = Tcl_CreateInterp() +FindExecutable(getApplicationFilename()) +var interp = CreateInterp() if interp == nil: quit("cannot create TCL interpreter") -if Tcl_Init(interp) != TCL_OK: +if Init(interp) != TCL_OK: quit("cannot init interpreter") -if Tcl_Eval(interp, myScript) != TCL_OK: +if Eval(interp, myScript) != TCL_OK: quit("cannot execute script.tcl") |