[PD-cvs] pd/src desire.tk,1.1.2.151,1.1.2.152

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
forgot some typos... duh....


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.151
retrieving revision 1.1.2.152
diff -C2 -d -r1.1.2.151 -r1.1.2.152
*** desire.tk	12 Apr 2006 15:41:53 -0000	1.1.2.151
--- desire.tk	12 Apr 2006 16:11:14 -0000	1.1.2.152
***************
*** 1326,1330 ****
  	text $t -height 1 -width [expr [string length $@text]+1] -relief flat \
  		-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
! 		-font $font(str)
  	#text $t -height 1 -width $@textchars -relief flat \
  	#	-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
--- 1326,1330 ----
  	text $t -height 1 -width [expr [string length $@text]+1] -relief flat \
  		-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
! 		-font $font(str) -fg $look(objectfg)
  	#text $t -height 1 -width $@textchars -relief flat \
  	#	-bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\
***************
*** 1335,1339 ****
  	mset {cx cy} [$self xy]
  	.$@canvas.c create window [expr $cx+2] [expr $cy+2] \
! 		-window $t -anchor nw -tags "${self}text $self"
  	#$self draw
  	$t configure -pady 0 -padx 1
--- 1335,1339 ----
  	mset {cx cy} [$self xy]
  	.$@canvas.c create window [expr $cx+2] [expr $cy+2] \
! 		-window $t -anchor nw -tags "${self}text $self" 
  	#$self draw
  	$t configure -pady 0 -padx 1
***************
*** 2117,2121 ****
  	set p $self$type$port
  	set outline [switch $type {i {concat $look(outletfg)} o {concat $look(inletfg)}}]
! 	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b -fill
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
  	$@canvas show_tooltip $x $y $tip
--- 2117,2121 ----
  	set p $self$type$port
  	set outline [switch $type {i {concat $look(outletfg)} o {concat $look(inletfg)}}]
! 	$c create rectangle [l+ [$c coords $p] {-4 -4 +4 +4}] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
  	$@canvas show_tooltip $x $y $tip