home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tk8.4 / demos / paned1.tcl < prev    next >
Text File  |  2002-02-22  |  1KB  |  35 lines
  1. # paned1.tcl --
  2. #
  3. # This demonstration script creates a toplevel window containing
  4. # a paned window that separates two windows horizontally.
  5. #
  6. # RCS: @(#) $Id: paned1.tcl,v 1.1 2002/02/22 14:07:01 dkf Exp $
  7.  
  8. if {![info exists widgetDemo]} {
  9.     error "This script should be run from the \"widget\" demo."
  10. }
  11.  
  12. set w .paned1
  13. catch {destroy $w}
  14. toplevel $w
  15. wm title $w "Horizontal Paned Window Demonstration"
  16. wm iconname $w "paned1"
  17. positionWindow $w
  18.  
  19. label $w.msg -font $font -wraplength 4i -justify left -text "The sash between the two coloured windows below can be used to divide the area between them.  Use the left mouse button to resize without redrawing by just moving the sash, and use the middle mouse button to resize opaquely (always redrawing the windows in each position.)"
  20. pack $w.msg -side top
  21.  
  22. frame $w.buttons
  23. pack $w.buttons -side bottom -fill x -pady 2m
  24. button $w.buttons.dismiss -text Dismiss -command "destroy $w"
  25. button $w.buttons.code -text "See Code" -command "showCode $w"
  26. pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
  27.  
  28. panedwindow $w.pane
  29. pack $w.pane -side top -expand yes -fill both -pady 2 -padx 2m
  30.  
  31. label $w.pane.left  -text "This is the\nleft side"  -bg yellow
  32. label $w.pane.right -text "This is the\nright side" -bg cyan
  33.  
  34. $w.pane add $w.pane.left $w.pane.right
  35.