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

Modified Files: Tag: devel_0_39 desire.tk Log Message: using "package" command and "auto_path" variable

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.234 retrieving revision 1.1.2.235 diff -C2 -d -r1.1.2.234 -r1.1.2.235 *** desire.tk 12 Jun 2006 20:31:57 -0000 1.1.2.234 --- desire.tk 13 Jun 2006 06:26:00 -0000 1.1.2.235 *************** *** 14,26 **** #-----------------------------------------------------------------------------------#

set argh0 [file normalize [file join [pwd] $argv0]] ! set our_tcl_dir [file join [file dirname [file dirname $argh0]] lib/pd/bin]

! if {[catch {source objective.tcl}]} { ! puts "error loading objective.tcl: errorcode=$errorCode" ! puts "errorInfo=$errorInfo" ! puts "looking for objective.tcl in $our_tcl_dir" ! source $our_tcl_dir/objective.tcl ! }

#-----------------------------------------------------------------------------------# --- 14,25 ---- #-----------------------------------------------------------------------------------#

+ # this command rebuilds the package index: echo pkg_mkIndex . | tclsh + set argh0 [file normalize [file join [pwd] $argv0]] ! set auto_path [concat . \ ! [list [file join [file dirname [file dirname $argh0]] lib/pd/bin]] \ ! $auto_path]

! package require objective

#-----------------------------------------------------------------------------------# *************** *** 330,334 **** proc say_category {text} {}

! set cmdline(server) [list [file join [file dirname $argh0] pd]] set cmdline(rcfilename) ~/.pdrc set cmdline(ddrcfilename) ~/.ddrc --- 329,333 ---- proc say_category {text} {}

! set cmdline(server) [list [file join [file dirname $argh0] ../bin/pd]] set cmdline(rcfilename) ~/.pdrc set cmdline(ddrcfilename) ~/.ddrc