[PD-cvs] pd/src desire.tk,1.1.2.10,1.1.2.11
chunlee
chunlee at users.sourceforge.net
Tue Aug 23 05:49:32 CEST 2005
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11891
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
use _($self:selection) to figure out _($self:selection_wire) isntead of
using regexp
next: update wires after resizing obj
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.10
retrieving revision 1.1.2.11
diff -C2 -d -r1.1.2.10 -r1.1.2.11
*** desire.tk 21 Aug 2005 18:57:08 -0000 1.1.2.10
--- desire.tk 23 Aug 2005 03:49:29 -0000 1.1.2.11
***************
*** 1531,1534 ****
--- 1531,1535 ----
puts "self:selection --> $_($self:selection)"
+
foreach obj $_($self:selection) {
puts "${obj}BASE :: $canvas"
***************
*** 1807,1814 ****
# if {[regexp {^l([a-f0-9]{6,8})} [$canvas gettags $tag] id]}
! if {[regexp {^l([a-f0-9]{6,8})} $tag wire_id]} {
!
! lappend wires $wire_id
! }
}
--- 1808,1816 ----
# if {[regexp {^l([a-f0-9]{6,8})} [$canvas gettags $tag] id]}
!
! #if {[regexp {^l([a-f0-9]{6,8})} $tag wire_id]} {
! #
! # lappend wires $wire_id
! #}
}
***************
*** 1824,1837 ****
}
! foreach wire $wires {
! set i [lsearch $_($self:selection_wire) $wire]
! if {$i<0} {lappend _($self:selection_wire) $wire}
! }
! #set _($self:selection_wire) $wires
- puts "self:selection --> $_($self:selection)"
- puts "self:wire_selection --> $_($self:selection_wire)"
foreach obj $_($self:selection) {
#puts "${obj}BASE :: $canvas"
--- 1826,1917 ----
}
! #foreach wire $wires {
! # set i [lsearch $_($self:selection_wire) $wire]
! # if {$i<0} {lappend _($self:selection_wire) $wire}
! #}
! set _($self:selection_wire) $wires
!
+ #crap
+ #
+ #set inlet_flag 0
+ #set outlet_flag 1
+ #
+ #foreach obj $_($self:selection) {
+ #
+ # foreach port $_($obj:inlets) {
+ #
+ # if {[info exists _($from:$outlet_flag:$outlet_number)]}
+ #
+ # }
+ #
+ #
+ #}
+
+ #----handles the wire----
+
+ #set _($self:inlets) $ins
+ #set _($self:outlets) $outs
+
+ foreach obj $_($self:selection) {
+
+ for {set x 0} {$x<$_($obj:inlets)} {incr x} {
+
+ #if {[info exists]}
+ puts "check -> $obj"
+ if {[info exists _($obj:0:$x)]} {
+
+ puts "wires at inlet $x to select --> $_($obj:0:$x)"
+ #wire_update $_()
+ #wire_update:: l80f8ea8 81168ae 1 81168af 0 0
+
+
+
+ foreach wire_id $_($obj:0:$x) {
+
+ #wire_update $wire_id $_($wire_id)
+ #wire_draw2 $wire_id $canvas
+
+
+ set i [lsearch $_($self:selection_wire) $wire_id]
+ if {$i<0} {lappend _($self:selection_wire) $wire_id}
+
+ }
+
+
+ }
+
+ }
+
+
+ for {set x 0} {$x<$_($obj:outlets)} {incr x} {
+
+ if {[info exists _($obj:1:$x)]} {
+
+ puts "wires at outlet $x to update --> $_($obj:1:$x)"
+
+ foreach wire_id $_($obj:1:$x) {
+
+ #wire_update $wire_id $_($wire_id)
+ #wire_draw2 $wire_id $canvas
+
+
+ set i [lsearch $_($self:selection_wire) $wire_id]
+ if {$i<0} {lappend _($self:selection_wire) $wire_id}
+
+
+ }
+
+ }
+
+ }
+
+ }
+
+ puts "self:selection --> $_($self:selection)"
+ puts "self:wire_selection --> $_($self:selection_wire)"
+
foreach obj $_($self:selection) {
#puts "${obj}BASE :: $canvas"
More information about the Pd-cvs
mailing list