[PD-cvs] pd/src desire.tk,1.1.2.31,1.1.2.32

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15739

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed wire drawing code (was my fault)


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.31
retrieving revision 1.1.2.32
diff -C2 -d -r1.1.2.31 -r1.1.2.32
*** desire.tk	6 Sep 2005 03:32:00 -0000	1.1.2.31
--- desire.tk	6 Sep 2005 03:54:53 -0000	1.1.2.32
***************
*** 535,540 ****
  		puts "d = $d"
  		wire_update $wire_id $d;
! 		wire_draw2 $wire_id $canvas.c;
! 		
  		}	
  		}
--- 535,539 ----
  		puts "d = $d"
  		wire_update $wire_id $d;
! 		wire_draw2 $wire_id $canvas.c
  		}	
  		}
***************
*** 2297,2302 ****
  def wire draw2 {canvas} {
  	puts "wire_draw2:: $self $canvas"
! 	set bbox1 [$canvas bbox $@obj1o$@port1]
! 	set bbox2 [$canvas bbox $@obj2i$@port2]
  	if {[llength $bbox1] < 4} {puts stderr "wire_draw2: crap ($@obj1 outlet)"; return}
  	if {[llength $bbox2] < 4} {puts stderr "wire_draw2: crap ($@obj2 inlet)";  return}
--- 2296,2301 ----
  def wire draw2 {canvas} {
  	puts "wire_draw2:: $self $canvas"
! 	set bbox1 [$canvas bbox [join [list "$@obj1" o "$@port1"] ""]]
! 	set bbox2 [$canvas bbox [join [list "$@obj2" i "$@port2"] ""]]
  	if {[llength $bbox1] < 4} {puts stderr "wire_draw2: crap ($@obj1 outlet)"; return}
  	if {[llength $bbox2] < 4} {puts stderr "wire_draw2: crap ($@obj2 inlet)";  return}