[PD-cvs] pd/src desire.tk,1.1.2.600.2.315,1.1.2.600.2.316
chunlee
chunlee at users.sourceforge.net
Wed Aug 8 07:03:25 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10710
Modified Files:
Tag: desiredata
desire.tk
Log Message:
fix wire delete
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.315
retrieving revision 1.1.2.600.2.316
diff -C2 -d -r1.1.2.600.2.315 -r1.1.2.600.2.316
*** desire.tk 7 Aug 2007 20:24:29 -0000 1.1.2.600.2.315
--- desire.tk 8 Aug 2007 05:03:20 -0000 1.1.2.600.2.316
***************
*** 2374,2377 ****
--- 2374,2378 ----
}
+ #this don't make sense when multiple window, and should be re implemeneted somehow
def Macro calc_size {} {
set x1 66666; set x2 0
***************
*** 2392,2396 ****
set cx2 [$c canvasx $cwidth]; set cy2 [$c canvasy $cheight]
mset {x1 y1 x2 y2} [$self calc_size]
- puts "[winfo pointerxy $c]"
}
--- 2393,2396 ----
***************
*** 2807,2811 ****
def Canvas wires {} {return $@wires}
- def Canvas wires-= {wire} {$@wires remove $wire}
def Canvas delete_selection {} {
--- 2807,2810 ----
***************
*** 3773,3777 ****
def Canvas wire_idx {connects} {
set wire ""; set idx 0
! foreach x $@wires {
if {[string compare [join $connects] [join [$x connects]]] == 0} {
set wire $x
--- 3772,3776 ----
def Canvas wire_idx {connects} {
set wire ""; set idx 0
! foreach x [$@wires values] {
if {[string compare [join $connects] [join [$x connects]]] == 0} {
set wire $x
***************
*** 3999,4002 ****
--- 3998,4002 ----
set from_idx [[$@canvas objects] search $@from]
set to_idx [[$@canvas objects] search $@to]
+ puts "from :: $@from || to :: $@to"
if {$from_idx >= 0 && $to_idx >= 0 && $@from != $@to} {
$@canvas connect [list $from_idx $@outlet $to_idx $@inlet]
***************
*** 5059,5063 ****
$@from delete_wire $self
$@to delete_wire $self
- $@canvas wires-= $self
super
}
--- 5059,5062 ----
More information about the Pd-cvs
mailing list