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

Modified Files: Tag: desiredata desire.tk Log Message: removed a couple of calls to old proc pd

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.18 retrieving revision 1.1.2.600.2.19 diff -C2 -d -r1.1.2.600.2.18 -r1.1.2.600.2.19 *** desire.tk 5 Dec 2006 12:12:29 -0000 1.1.2.600.2.18 --- desire.tk 5 Dec 2006 13:06:03 -0000 1.1.2.600.2.19 *************** *** 800,804 **** set file [lindex $ff [expr $ffl-1]] set dir [join [lrange $ff 0 [expr $ffl-2]] [file separator]] ! pd pd open $file $dir } } --- 800,805 ---- set file [lindex $ff [expr $ffl-1]] set dir [join [lrange $ff 0 [expr $ffl-2]] [file separator]] ! #pd pd open $file $dir ! netsend [join [list pd open $file $dir]] } } *************** *** 2199,2204 **** set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} - #pd .$@canvas text_setto !$self $l - #netsend [join [list .$@canvas text_setto !$self $l]] [list $self new_object_callback] netsend [join [list .$@canvas text_setto !$self $l]] $self changed --- 2200,2203 ---- *************** *** 2223,2228 **** $@canvas action= none after 100 $@canvas selection2= $obj2_idx - #puts " [lindex [$@canvas children] $obj2_idx]" - #$@canvas selection= [lindex [$@canvas children] $obj2_idx] } } --- 2222,2225 ---- *************** *** 6754,6758 **** def ServerPrefsDialog apply {} { set audio_props [$self audio_properties=?] ! pd pd audio-dialog $audio_props }

--- 6751,6756 ---- def ServerPrefsDialog apply {} { set audio_props [$self audio_properties=?] ! #pd pd audio-dialog $audio_props ! netsend [join [list "pd" "sudio-dialog" $audio_props]] }

*************** *** 6938,6943 ****

def ServerPrefsDialog init {} { ! pd pd audio-properties ! $self init_reverse_hash $self read --- 6936,6940 ----

def ServerPrefsDialog init {} { ! netsend "pd audio-properties" $self init_reverse_hash $self read