diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-16 09:34:42 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-16 09:34:42 +0000 |
commit | 391659ab8b58230e86ce4aaf23d90ebb2d44e7d2 (patch) | |
tree | 72f099fa15e29116a723f1cc5f9eadc1761535c6 /tcl_setup.cxx | |
parent | 722a70135e8878c6145f06d7899be8551db059ad (diff) |
add tcl package logic
svn path=/trunk/externals/tclpd/; revision=12365
Diffstat (limited to 'tcl_setup.cxx')
-rw-r--r-- | tcl_setup.cxx | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tcl_setup.cxx b/tcl_setup.cxx index a1c66bb..93ba404 100644 --- a/tcl_setup.cxx +++ b/tcl_setup.cxx @@ -39,6 +39,7 @@ void tclpd_setup(void) { Tcl_SetVar(tcl_for_pd, "DIR", dirresult, 0); Tcl_Eval(tcl_for_pd, "set auto_path [linsert $auto_path $DIR]"); + Tcl_Eval(tcl_for_pd, "package provide Tclpd " TCLPD_VERSION); if(Tcl_Eval(tcl_for_pd, "source $DIR/tcl.tcl") == TCL_OK) { post("Tcl loader: loaded %s/tcl.tcl", dirresult); |