home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 37_1.tcl < prev    next >
Text File  |  2003-04-16  |  685b  |  29 lines
  1. #
  2. # Example 37-1
  3. # A large scrolling canvas.
  4. #
  5.  
  6. proc Scrolled_Canvas { c args } {
  7.     frame $c
  8.     eval {canvas $c.canvas \
  9.         -xscrollcommand [list $c.xscroll set] \
  10.         -yscrollcommand [list $c.yscroll set] \
  11.         -highlightthickness 0 \
  12.         -borderwidth 0} $args
  13.     scrollbar $c.xscroll -orient horizontal \
  14.         -command [list $c.canvas xview]
  15.     scrollbar $c.yscroll -orient vertical \
  16.         -command [list $c.canvas yview]
  17.     grid $c.canvas $c.yscroll -sticky news
  18.     grid $c.xscroll -sticky ew
  19.     grid rowconfigure $c 0 -weight 1
  20.     grid columnconfigure $c 0 -weight 1
  21.     return $c.canvas
  22. }
  23. Scrolled_Canvas .c -width 300 -height 200 \
  24.     -scrollregion {0 0 1000 400}
  25. #=> .c.canvas
  26. pack .c -fill both -expand true
  27.  
  28.  
  29.