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$
7
8if {![info exists widgetDemo]} {
9    error "This script should be run from the \"widget\" demo."
10}
11
12package require Tk
13
14set w .paned1
15catch {destroy $w}
16toplevel $w
17wm title $w "Horizontal Paned Window Demonstration"
18wm iconname $w "paned1"
19positionWindow $w
20
21label $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.)"
22pack $w.msg -side top
23
24## See Code / Dismiss buttons
25set btns [addSeeDismiss $w.buttons $w]
26pack $btns -side bottom -fill x
27
28panedwindow $w.pane
29pack $w.pane -side top -expand yes -fill both -pady 2 -padx 2m
30
31label $w.pane.left  -text "This is the\nleft side"  -bg yellow
32label $w.pane.right -text "This is the\nright side" -bg cyan
33
34$w.pane add $w.pane.left $w.pane.right
35