From 391659ab8b58230e86ce4aaf23d90ebb2d44e7d2 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Wed, 16 Sep 2009 09:34:42 +0000
Subject: add tcl package logic

svn path=/trunk/externals/tclpd/; revision=12365
---
 bitmap.tcl    | 2 ++
 tcl_setup.cxx | 1 +
 vslider2.tcl  | 2 ++
 3 files changed, 5 insertions(+)

diff --git a/bitmap.tcl b/bitmap.tcl
index 5641da6..a415e14 100644
--- a/bitmap.tcl
+++ b/bitmap.tcl
@@ -1,3 +1,5 @@
+package require Tclpd 0.2.1
+
 source pdlib.tcl
 
 set ::script_path [file dirname [info script]]
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);
diff --git a/vslider2.tcl b/vslider2.tcl
index 1414ef4..0119c01 100644
--- a/vslider2.tcl
+++ b/vslider2.tcl
@@ -1,3 +1,5 @@
+package require Tclpd 0.2.1
+
 source pdlib.tcl
 
 set ::script_path [file dirname [info script]]
-- 
cgit v1.2.1