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 8if {![info exists widgetDemo]} { 9 error "This script should be run from the \"widget\" demo." 10} 11 12set w .paned1 13catch {destroy $w} 14toplevel $w 15wm title $w "Horizontal Paned Window Demonstration" 16wm iconname $w "paned1" 17positionWindow $w 18 19label $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.)" 20pack $w.msg -side top 21 22frame $w.buttons 23pack $w.buttons -side bottom -fill x -pady 2m 24button $w.buttons.dismiss -text Dismiss -command "destroy $w" 25button $w.buttons.code -text "See Code" -command "showCode $w" 26pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 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