home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / Scrolled_Text.tcl < prev    next >
Text File  |  2003-04-15  |  526b  |  22 lines
  1. #
  2. # Example 30-1
  3. # A text widget and two scrollbars.
  4. #
  5.  
  6. proc Scrolled_Text { f args } {
  7.     frame $f
  8.     eval {text $f.text -wrap none \
  9.         -xscrollcommand [list $f.xscroll set] \
  10.         -yscrollcommand [list $f.yscroll set]} $args
  11.     scrollbar $f.xscroll -orient horizontal \
  12.         -command [list $f.text xview]
  13.     scrollbar $f.yscroll -orient vertical \
  14.         -command [list $f.text yview]
  15.     grid $f.text $f.yscroll -sticky news
  16.     grid $f.xscroll -sticky news
  17.     grid rowconfigure $f 0 -weight 1
  18.     grid columnconfigure $f 0 -weight 1
  19.     return $f.text
  20. }
  21.  
  22.