home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 43_7.tcl < prev    next >
Text File  |  2003-04-15  |  615b  |  28 lines
  1. #
  2. # Example 43-7
  3. # Displaying the help text for an item.
  4. #
  5.  
  6. proc PrefItemHelp { x y text } {
  7.     catch {destroy .prefitemhelp}
  8.     if {$text == {}} {
  9.         return
  10.     }
  11.     set self [toplevel .prefitemhelp -class Itemhelp]
  12.     wm title $self "Item help" 
  13.     wm geometry $self +[expr $x+10]+[expr $y+10]
  14.     wm transient $self .pref
  15.     message $self.msg -text $text -aspect 1500
  16.     pack $self.msg
  17.     bind $self.msg <1> {PrefNukeItemHelp .prefitemhelp}
  18.     .pref.but.label configure -text \
  19.         "Click on pop-up or another label"
  20. }
  21. proc PrefNukeItemHelp { t } {
  22.     .pref.but.label configure -text \
  23.         "Click labels for info on each item"
  24.     destroy $t
  25. }
  26.  
  27.  
  28.