[PD-cvs] pd/src desire.tk,1.1.2.75,1.1.2.76

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
oops


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.75
retrieving revision 1.1.2.76
diff -C2 -d -r1.1.2.75 -r1.1.2.76
*** desire.tk	23 Sep 2005 12:05:33 -0000	1.1.2.75
--- desire.tk	23 Sep 2005 12:12:27 -0000	1.1.2.76
***************
*** 1259,1263 ****
  	set @cx [expr $@cx+$dx]
  	set @cy [expr $@cy+$dy]
! 	#.x$@canvas.c move $self $dx $dy
  	$self draw $_($self:canvas)
  	for {set x 0} {$x<$@ninlets} {incr x} {
--- 1259,1263 ----
  	set @cx [expr $@cx+$dx]
  	set @cy [expr $@cy+$dy]
! 	#.x$@canvas.c move $self $dx $dy; return
  	$self draw $_($self:canvas)
  	for {set x 0} {$x<$@ninlets} {incr x} {
***************
*** 1281,1288 ****
  	set port [expr int(($x-$@cx)*$ports/$@xs)]
  	set port [expr int(($x-$@cx)*$ports/$@xs)]
! 	set p ${self}${type}${port}b
  	#if {![llength $@wire_from]} {}
! 	set outline [switch $type {i {list $look(outletfg)} o {list $look(inletfg)}]
! 	$c create rectangle [l+ [$c coords ${self}i${port}] {-4 -4 +4 +4}] -outline $outline -width 1 -tags $p
  	return $port
  
--- 1281,1288 ----
  	set port [expr int(($x-$@cx)*$ports/$@xs)]
  	set port [expr int(($x-$@cx)*$ports/$@xs)]
! 	set p ${self}${type}${port}
  	#if {![llength $@wire_from]} {}
! 	set outline [switch $type {i {list $look(outletfg)} o {list $look(inletfg)}}]
! 	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
  	return $port