1### 2# 3# Tooltips 4# 5 6set useLocalTklib [catch {package require tooltip 1.4.6}] 7if {$useLocalTklib} { 8 source [file nativename [file join $::scidTclDir "utils/tklib_tooltip.tcl"]] 9} 10 11namespace eval ::utils::tooltip { 12 global ::utils::tooltip::font 13 14 if {![info exists font]} { 15 set font TkDefaultFont 16 } 17 18 # Undocumented tooltip variable that allows users to extend / override 19 # label creation options. 20 set tooltip::labelOpts [list -highlightthickness 0 -relief solid -bd 1 \ 21 -background lightyellow -fg black -font $font] 22 23 proc Set {button msg} { 24 tooltip::tooltip $button $msg 25 } 26 27 proc SetTag {text_widget msg tag} { 28 tooltip::tooltip $text_widget -tag $tag $msg 29 } 30} 31