home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 28_1.tcl < prev    next >
Text File  |  2003-04-16  |  992b  |  37 lines
  1. #
  2. # Example 28-1
  3. # A panedwindow with complex managed widgets.
  4. #
  5.  
  6. # Create the panedwindow to manage the entire display
  7.  
  8. panedwindow .p -orient vertical -showhandle 1
  9. pack .p -expand yes -fill both
  10.  
  11. # Create 2 labelframe widgets, each containing a
  12. # gridded text and scrollbar assembly.
  13.  
  14. foreach {w label} {code "Code:" notes "Notes:"} {
  15.     set f [labelframe .p.$w -text $label]
  16.     text $f.t -height 10 -width 40 \
  17.         -wrap none -font {courier 12} \
  18.         -xscrollcommand [list $f.xbar set] \
  19.         -yscrollcommand [list $f.ybar set]
  20.     scrollbar $f.xbar -orient horizontal \
  21.         -command [list $f.t xview]
  22.     scrollbar $f.ybar -orient vertical \
  23.         -command [list $f.t yview]
  24.  
  25.     grid $f.t -row 0 -column 0 -sticky news -padx 2 -pady 2
  26.     grid $f.ybar -row 0 -column 1 -sticky ns -padx 2 -pady 2
  27.     grid $f.xbar -row 1 -column 0 -sticky ew -padx 2 -pady 2
  28.     grid columnconfigure $f 0 -weight 1
  29.     grid rowconfigure $f 0 -weight 1
  30.  
  31.     # Add the frame assembly to the panedwindow
  32.  
  33.     .p add $f -minsize 1i -padx 4 -pady 6
  34. }
  35.  
  36.  
  37.