[PD-cvs] pd/src desire.tk,1.1.2.600.2.126,1.1.2.600.2.127

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
removed proc pd


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.126
retrieving revision 1.1.2.600.2.127
diff -C2 -d -r1.1.2.600.2.126 -r1.1.2.600.2.127
*** desire.tk	20 Dec 2006 03:59:19 -0000	1.1.2.600.2.126
--- desire.tk	20 Dec 2006 05:05:48 -0000	1.1.2.600.2.127
***************
*** 46,53 ****
  catch {package require Tclx}
  if {[catch {source profile_dd.tcl}]} {error_dump}
! 
! if {[file exists debug.tcl]} {
! 	source debug.tcl
! }
  
  proc which {file} {
--- 46,50 ----
  catch {package require Tclx}
  if {[catch {source profile_dd.tcl}]} {error_dump}
! if {[file exists debug.tcl]} {source debug.tcl}
  
  proc which {file} {
***************
*** 247,260 ****
  }
  
- proc pd {args} {
- 	if {[info level] > 1} {
- 		set level [info level -1]
- 	} else {
- 		set level toplevel
- 	}
- 	puts "[VTyellow]warning: proc pd is obsolete (called from $level).[VTgrey]"
- 	netsend $args
- }
- 
  # you pass the 2nd argument if and only if the message creates an object (or pretends to).
  # this happens with #N canvas, and those methods of #X:
--- 244,247 ----
***************
*** 618,622 ****
  }].tcl
  
! proc localedir {x} {file join [file dirname [file dirname $argh0]] lib/pd/bin/$x}
  if {[file exists $langfile]} {
  	#source -encoding utf-8 $langfile
--- 605,609 ----
  }].tcl
  
! proc localedir {x} {file join [file dirname [file dirname $::argh0]] lib/pd/bin/$x}
  if {[file exists $langfile]} {
  	#source -encoding utf-8 $langfile