[PD-cvs] pd/src desire.tk,1.1.2.234,1.1.2.235

[Mathieu Bouchard]

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