[PD-cvs] pd/src desire.tk,1.1.2.146,1.1.2.147

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
small fix for updating the wires when moving objects. 
next, deleting object with selrect


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.146
retrieving revision 1.1.2.147
diff -C2 -d -r1.1.2.146 -r1.1.2.147
*** desire.tk	23 Feb 2006 16:24:31 -0000	1.1.2.146
--- desire.tk	8 Apr 2006 14:06:51 -0000	1.1.2.147
***************
*** 1707,1711 ****
  	switch $type {
  	  object {
! 	     # handles the wire drawing
  	     mset {x1 y1 x2 y2} [$id bbox]
  	     set outs 0; set outs [$id noutlets]
--- 1707,1711 ----
  	switch $type {
  	  object {
! 	     # handles the dash wire drawing
  	     mset {x1 y1 x2 y2} [$id bbox]
  	     set outs 0; set outs [$id noutlets]
***************
*** 1950,1962 ****
      $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}}
- #	}
  }
  
--- 1950,1953 ----
***************
*** 2015,2022 ****
      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......
--- 2006,2014 ----
      set @port2 $inno
      set @canvas $canvas
!     #set _($@obj1:wires) $self
!     #set _($@obj2:wires) $self
!     # associate wires to its connected objects
!     lappend _($@obj1:wires) $self
!     lappend _($@obj2:wires) $self
      #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2"
      # no time to carry on for now......