From b559285b78bfa76533d25e77f3f61cab2427bb03 Mon Sep 17 00:00:00 2001 From: Andreas Rumpf Date: Sun, 28 Feb 2010 23:04:18 +0100 Subject: examples/lib use the new wrappers --- examples/tclex.nim | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples/tclex.nim') 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 { } """ -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") -- cgit 1.4.1-2-gfad0