[PD-cvs] pd/src desire.tk,1.1.2.600.2.65,1.1.2.600.2.66
Mathieu Bouchard
matju at users.sourceforge.net
Tue Dec 12 21:27:03 CET 2006
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
More information about the Pd-cvs
mailing list