[PD-cvs] pd/src desire.tk,1.1.2.600.2.22,1.1.2.600.2.23
chunlee
chunlee at users.sourceforge.net
Tue Dec 5 23:00:36 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12438
Modified Files:
Tag: desiredata
desire.tk
Log Message:
removed more old calls to proc pd
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.22
retrieving revision 1.1.2.600.2.23
diff -C2 -d -r1.1.2.600.2.22 -r1.1.2.600.2.23
*** desire.tk 5 Dec 2006 18:45:17 -0000 1.1.2.600.2.22
--- desire.tk 5 Dec 2006 22:00:32 -0000 1.1.2.600.2.23
***************
*** 2361,2365 ****
$@history add [list $self ins $i [$o deconstruct]]
}
! pd .$self object_delete !$o
}
--- 2361,2365 ----
$@history add [list $self ins $i [$o deconstruct]]
}
! netsend [join [list .$self "object_delete" !$o]]
}
***************
*** 2881,2895 ****
set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]]
! pd .$self push
set paste(state) $self
foreach mess [pd_mess_split [$::clipboard value]] {
set type [lindex $mess 1]
switch $type {
! canvas {set in 1; pd $mess} "" {}
connect {
mset {from outlet to inlet} [lrange $mess 2 end]
set count [llength $@children]
set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! if {$in} {pd $mess} else {pd $mess2; incr @wire_count}
}
default {
--- 2881,2896 ----
set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]]
! #pd .$self push
! netsend [join [list .$self "push"]]
set paste(state) $self
foreach mess [pd_mess_split [$::clipboard value]] {
set type [lindex $mess 1]
switch $type {
! canvas {set in 1; netsend $mess} "" {}
connect {
mset {from outlet to inlet} [lrange $mess 2 end]
set count [llength $@children]
set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet]
! if {$in} {netsend $mess} else {netsend $mess2; incr @wire_count}
}
default {
***************
*** 2898,2902 ****
set mess2 [lreplace $mess 2 3 $x $y]
if {$in} {
! pd $mess
} else {
if {!$visible} {
--- 2899,2903 ----
set mess2 [lreplace $mess 2 3 $x $y]
if {$in} {
! netsend $mess [list $self new_object_callback]
} else {
if {!$visible} {
***************
*** 2907,2911 ****
set mess2 [lreplace $mess 2 3 $x2 $y2]
}
! pd [join $mess2]
incr @obj_count
}
--- 2908,2912 ----
set mess2 [lreplace $mess 2 3 $x2 $y2]
}
! netsend [join $mess2] [list $self new_object_callback]
incr @obj_count
}
***************
*** 2913,2917 ****
}
}
! pd #X pop 1
}
--- 2914,2918 ----
}
}
! netsend "#X pop 1" [list $self new_object_callback]
}
***************
*** 2995,3003 ****
set @keynav_tab_sel "wire"
$self selection_wire-= [lindex $@wires_pair [expr [lsearch $@wires_pair $wire]+1]]
! mset {from outlet to inlet} $wire; pd .$self disconnect $from $outlet $to $inlet
$@history add [list $self connect $wire]
}
def Canvas connect {wire} {
! mset {from outlet to inlet} $wire; pd .$self connect $from $outlet $to $inlet
$@history add [list $self disconnect $wire]
}
--- 2996,3006 ----
set @keynav_tab_sel "wire"
$self selection_wire-= [lindex $@wires_pair [expr [lsearch $@wires_pair $wire]+1]]
! mset {from outlet to inlet} $wire
! netsend [join [list .$self disconnect $from $outlet $to $inlet]]
$@history add [list $self connect $wire]
}
def Canvas connect {wire} {
! mset {from outlet to inlet} $wire
! netsend [join [list .$self connect $from $outlet $to $inlet]]
$@history add [list $self disconnect $wire]
}
More information about the Pd-cvs
mailing list