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