[PD-cvs] pd/src desire.tk,1.1.2.129,1.1.2.130

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
wire updates now


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.129
retrieving revision 1.1.2.130
diff -C2 -d -r1.1.2.129 -r1.1.2.130
*** desire.tk	26 Nov 2005 19:17:28 -0000	1.1.2.129
--- desire.tk	1 Dec 2005 16:56:44 -0000	1.1.2.130
***************
*** 1925,1929 ****
  
  def* box init {args} {
! super
  }
  
--- 1925,1931 ----
  
  def* box init {args} {
!     super
!     set @wires {}
! 
  }
  
***************
*** 1945,1960 ****
  }
  
! def box draw_wires {} {
! 	for {set x 0} {$x<$@ninlets} {incr x} {
! 		set v $self:i:$x
! 		if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}}
! 	}
! 	for {set x 0} {$x<$@noutlets} {incr x} {
! 		set v $self:o:$x
! 		if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}}
! 	}
  }
  
! def box move {dx dy} {
  	super $dx $dy
  	$self draw_wires
--- 1947,1969 ----
  }
  
! def* box draw_wires {} {
! 	
!     puts "wires:$@wires"
!     
!     foreach wire $@wires {
!     $wire draw
!     }
! 
! #	for {set x 0} {$x<$@ninlets} {incr x} {
! #		set v $self:i:$x
! #		if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}}
! #	}
! #	for {set x 0} {$x<$@noutlets} {incr x} {
! #		set v $self:o:$x
! #		if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}}
! #	}
  }
  
! def* box move {dx dy} {
  	super $dx $dy
  	$self draw_wires
***************
*** 2011,2014 ****
--- 2020,2028 ----
      set @port1 $outno
      set @port2 $inno
+     set @canvas $canvas
+     #set _($@obj1:wires) [list $from $outno $to $inno]
+     #set _($@obj2:wires) [list $from $outno $to $inno]
+     set _($@obj1:wires) $self
+     set _($@obj2:wires) $self
      #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2"
      # no time to carry on for now......
***************
*** 2032,2037 ****
  	if {$arrowsize < 5} {set arrow none} {set arrow last}
  	set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]]
! 	$self item "" line $xys -width $thick -smooth yes \
  		-arrow $arrow -arrowshape $arrowshape -fill $look(wirefg)
  }
  
--- 2046,2062 ----
  	if {$arrowsize < 5} {set arrow none} {set arrow last}
  	set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]]
! 	$self item WIRE line $xys -width $thick -smooth yes \
  		-arrow $arrow -arrowshape $arrowshape -fill $look(wirefg)
+ 	
+ 	#puts ".......tags: [.$@canvas.c gettags $self]"	
+ 	#if {[llength [.$@canvas.c gettags $self]] != 0} {
+ 		#$canvas coords $self $xys
+ 		#$canvas itemconfigure -arrow $arrow -arrowshape $arrowshape
+ 	#} {
+ 		#$canvas create line $xys -tags $self -width $thick \
+ 		#	-arrow $arrow -arrowshape $arrowshape -fill $look(wirefg)
+ 	#	$self item WIRE line $xys -width $thick -smooth yes \
+ 	#	-arrow $arrow -arrowshape $arrowshape -fill $look(wirefg)
+ 	#}
  }