home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 31_3.tcl < prev    next >
Text File  |  2003-04-15  |  626b  |  25 lines
  1. #
  2. # Example 31-3
  3. # Listbox with optional scrollbars.
  4. #
  5.  
  6. proc Scrolled_Listbox { f args } {
  7.     frame $f
  8.     listbox $f.list \
  9.         -xscrollcommand [list Scroll_Set $f.xscroll \
  10.             [list grid $f.xscroll -row 1 -column 0 -sticky we]] \
  11.         -yscrollcommand [list Scroll_Set $f.yscroll \
  12.             [list grid $f.yscroll -row 0 -column 1 -sticky ns]]
  13.     eval {$f.list configure} $args
  14.     scrollbar $f.xscroll -orient horizontal \
  15.         -command [list $f.list xview]
  16.     scrollbar $f.yscroll -orient vertical \
  17.         -command [list $f.list yview]
  18.     grid $f.list -sticky news
  19.     grid rowconfigure $f 0 -weight 1
  20.     grid columnconfigure $f 0 -weight 1
  21.     return $f.list
  22. }
  23.  
  24.  
  25.