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]