[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