Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24476

Modified Files: Tag: devel_0_39 objective.tcl pre8.5.tcl Log Message: using "package" command

Index: pre8.5.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/pre8.5.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.3 diff -C2 -d -r1.1.2.2 -r1.1.2.3 *** pre8.5.tcl 18 Sep 2005 19:29:42 -0000 1.1.2.2 --- pre8.5.tcl 13 Jun 2006 06:24:32 -0000 1.1.2.3 *************** *** 1,2 **** --- 1,4 ---- + package provide pre8.5 8.4 + proc lremove {args} { array set opts {-all 0 pattern -exact}

Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.9 retrieving revision 1.1.2.10 diff -C2 -d -r1.1.2.9 -r1.1.2.10 *** objective.tcl 20 Apr 2006 01:46:32 -0000 1.1.2.9 --- objective.tcl 13 Jun 2006 06:24:32 -0000 1.1.2.10 *************** *** 13,17 **** # note, the toplevel class is called "thing".

! if {$tcl_version < 8.5} {source pre8.5.tcl} set nextid 0 set _(Class:_class) Class --- 13,19 ---- # note, the toplevel class is called "thing".

! package provide objective 0.0 ! ! if {$tcl_version < 8.5} {package require pre8.5} set nextid 0 set _(Class:_class) Class