Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15674
Modified Files: Tag: desiredata desire.tk Log Message: removed some superfluous evals and changed more proc pd to netsend
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.65 retrieving revision 1.1.2.600.2.66 diff -C2 -d -r1.1.2.600.2.65 -r1.1.2.600.2.66 *** desire.tk 12 Dec 2006 18:32:32 -0000 1.1.2.600.2.65 --- desire.tk 12 Dec 2006 20:26:57 -0000 1.1.2.600.2.66 *************** *** 923,927 **** $e select from 0 $e select adjust end ! bind $e <KeyPress-Return> {pd $send_textvar; after 50 {destroy .sendpanel}} focus $e } --- 923,927 ---- $e select from 0 $e select adjust end ! bind $e <KeyPress-Return> {netsend $send_textvar; after 50 {destroy .sendpanel}} focus $e } *************** *** 1361,1366 **** def Client about {} {AboutDialog new} def Client class_browser {} {Browser new_as browser browser 0 0 ""} ! def Client audio_on {} {pd pd dsp 1} ! def Client audio_off {} {pd pd dsp 0} def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard} def Client history_view {} {global history; HistoryDialog new $history} --- 1361,1366 ---- def Client about {} {AboutDialog new} def Client class_browser {} {Browser new_as browser browser 0 0 ""} ! def Client audio_on {} {netsend [list pd dsp 1]} ! def Client audio_off {} {netsend [list pd dsp 0]} def Client clipboard_view {} {global clipboard; ClipboardDialog new $clipboard} def Client history_view {} {global history; HistoryDialog new $history} *************** *** 2431,2435 **** # for undo; calls the server def Canvas ins {i constructor} { ! eval [concat [list pd .$self object_insert $i] $constructor] $@history add [list $self del $i] } --- 2431,2435 ---- # for undo; calls the server def Canvas ins {i constructor} { ! netsend [concat [list .$self object_insert $i] $constructor] $@history add [list $self del $i] } *************** *** 2458,2462 **** if {$find == -1} {# new wire!!! lappend @wires_pair [list $outobj $outport $inobj $inport] ! set new_wire [eval [list Wire_new $self $outobj $outport $inobj $inport]] lappend @wires_pair $new_wire lappend wires $new_wire --- 2458,2462 ---- if {$find == -1} {# new wire!!! lappend @wires_pair [list $outobj $outport $inobj $inport] ! set new_wire [Wire_new $self $outobj $outport $inobj $inport] lappend @wires_pair $new_wire lappend wires $new_wire *************** *** 4586,4590 **** set tosend {} foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v} ! eval [concat [list netsend [concat [list .$self reload] $props]]] }
--- 4586,4590 ---- set tosend {} foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v} ! netsend [concat [list .$self reload] $props] }
*************** *** 5757,5761 **** def ClassBrowser info {listbox} { set class [$self current_class] ! if {$class != ""} {pd pd update-class-info $class $self info_callback} }
--- 5757,5761 ---- def ClassBrowser info {listbox} { set class [$self current_class] ! if {$class != ""} {netsend [list pd update-class-info $class $self info_callback]} }
*************** *** 6075,6080 **** set v $_($self:$item) ;# bug in objtcl set item_lower [string tolower $item] ! #eval "entry $f.$item_lower -textvariable $_($self:$item) -width 15" ! eval "entry $f.$item_lower -width 15" $f.$item_lower insert 0 $v pack $f.$item_lower -side left --- 6075,6079 ---- set v $_($self:$item) ;# bug in objtcl set item_lower [string tolower $item] ! entry $f.$item_lower -width 15 $f.$item_lower insert 0 $v pack $f.$item_lower -side left