From 0bd63454e3e9a60937e0ab0568c84d21dfacb409 Mon Sep 17 00:00:00 2001 From: mescalinum Date: Sun, 18 Oct 2009 13:53:40 +0000 Subject: use tcl package system also for pdlib.tcl svn path=/trunk/externals/tclpd/; revision=12606 --- bitmap.tcl | 3 +-- dynreceive.tcl | 3 ++- dynroute.tcl | 3 ++- list_change.tcl | 3 ++- pdlib.tcl | 2 +- pkgIndex.tcl | 1 + slider2.tcl | 3 +-- 7 files changed, 10 insertions(+), 8 deletions(-) create mode 100644 pkgIndex.tcl diff --git a/bitmap.tcl b/bitmap.tcl index a415e14..1cbc766 100644 --- a/bitmap.tcl +++ b/bitmap.tcl @@ -1,6 +1,5 @@ package require Tclpd 0.2.1 - -source pdlib.tcl +package require TclpdLib 0.17 set ::script_path [file dirname [info script]] diff --git a/dynreceive.tcl b/dynreceive.tcl index e9c61b5..8a269f7 100644 --- a/dynreceive.tcl +++ b/dynreceive.tcl @@ -1,4 +1,5 @@ -source pdlib.tcl +package require Tclpd 0.2.1 +package require TclpdLib 0.17 pd::class dynreceive { constructor { diff --git a/dynroute.tcl b/dynroute.tcl index ef8553c..2309ac7 100644 --- a/dynroute.tcl +++ b/dynroute.tcl @@ -1,4 +1,5 @@ -source pdlib.tcl +package require Tclpd 0.2.1 +package require TclpdLib 0.17 # dynroute: dynamically route messages based on first element # non-matching arguments are sent to last inlet diff --git a/list_change.tcl b/list_change.tcl index 8e0838d..2c70937 100644 --- a/list_change.tcl +++ b/list_change.tcl @@ -1,4 +1,5 @@ -source pdlib.tcl +package require Tclpd 0.2.1 +package require TclpdLib 0.17 pd::class list_change { constructor { diff --git a/pdlib.tcl b/pdlib.tcl index 164aa09..b50479b 100644 --- a/pdlib.tcl +++ b/pdlib.tcl @@ -1,7 +1,7 @@ # TCL objectized library for PD api # by Federico Ferri - (C) 2007-2009 -package provide pdlib 0.1 +package provide TclpdLib 0.17 package require Tcl 8.5 diff --git a/pkgIndex.tcl b/pkgIndex.tcl new file mode 100644 index 0000000..f5e70f2 --- /dev/null +++ b/pkgIndex.tcl @@ -0,0 +1 @@ +package ifneeded TclpdLib 0.17 [list source [file join $DIR pdlib.tcl]] diff --git a/slider2.tcl b/slider2.tcl index b9d27ad..ff4678a 100644 --- a/slider2.tcl +++ b/slider2.tcl @@ -1,6 +1,5 @@ package require Tclpd 0.2.1 - -source pdlib.tcl +package require TclpdLib 0.17 set ::script_path [file dirname [info script]] -- cgit v1.2.1