[PD-cvs] pd/src desire.tk,1.1.2.419,1.1.2.420

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
trivial commit for cosmetics and some ident correction


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.419
retrieving revision 1.1.2.420
diff -C2 -d -r1.1.2.419 -r1.1.2.420
*** desire.tk	29 Aug 2006 11:58:56 -0000	1.1.2.419
--- desire.tk	29 Aug 2006 14:21:11 -0000	1.1.2.420
***************
*** 536,539 ****
--- 536,540 ----
  set look(SelRect:rect) #ff12ff
  set look(Wire:fg) #888888
+ set look(Wire:dspfg) #890098
  set look(Wire:fg2) #ee0000
  set look(Wire:thick) 1
***************
*** 3019,3036 ****
  
  def Wire init {canvas from outlet to inlet} {
[...2922 lines suppressed...]
!     }
  }
  
--- 6239,6254 ----
  
  def Wire deconstruct {{selcanvas ""}} {
! 	global obj_index_sel
! 	# the selcanvas system could be abstracted out using an ObjectList such that
! 	#   Canvas<ObjectList and $selection class == ObjectList
! 	if {$selcanvas == ""} {
! 		list #X connect \
! 		    [$@canvas index $@obj1] $@port1 \
! 		    [$@canvas index $@obj2] $@port2
! 	} {
! 		list #X connect \
! 		    $obj_index_sel($@canvas:$@obj1) $@port1 \
! 		    $obj_index_sel($@canvas:$@obj2) $@port2
! 	}
  }