[PD-cvs] pd/src desire.tk,1.1.2.527,1.1.2.528

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
slightly better tooptip placement


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.527
retrieving revision 1.1.2.528
diff -C2 -d -r1.1.2.527 -r1.1.2.528
*** desire.tk	25 Oct 2006 11:50:02 -0000	1.1.2.527
--- desire.tk	25 Oct 2006 12:07:38 -0000	1.1.2.528
***************
*** 3607,3611 ****
  	$c create rectangle [l+ [$c coords $p] $hilitebox] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
! 	if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip}
  	return $port
  }
--- 3607,3611 ----
  	$c create rectangle [l+ [$c coords $p] $hilitebox] -outline $outline -width 1 -tags ${p}b
  	switch $type {i {set tip "inlet $port"} o {set tip "outlet $port"}}
! 	if {[$self look tooltip]} {$@canvas show_tooltip $x $y $tip $type}
  	return $port
  }
***************
*** 5343,5347 ****
  set tooltip(text) ""
  
! def Canvas show_tooltip {x y text} {
  	global tooltip
  	if {$tooltip(visible) && [string compare $text $tooltip(text)]==0} {return}
--- 5343,5347 ----
  set tooltip(text) ""
  
! def Canvas show_tooltip {x y text type} {
  	global tooltip
  	if {$tooltip(visible) && [string compare $text $tooltip(text)]==0} {return}
***************
*** 5351,5354 ****
--- 5351,5355 ----
  	set c [$self widget]
  	mset {x y} [lmap * [list $x $y] $@zoom]
+ 	switch $type { i {set y [expr $y - 20]} o {set y [expr $y + 20]} }
  	$c create text $x $y -text $text -anchor w -tags tooltip_fg
  	mset {x1 y1 x2 y2} [$c bbox tooltip_fg]