pd/src desire.tk,1.1.2.600.2.315,1.1.2.600.2.316 - Pd-cvs

8 Aug 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 ----