You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
1.3 KiB
Tcl
35 lines
1.3 KiB
Tcl
15 years ago
|
# paned1.tcl --
|
||
|
|
#
|
||
|
|
# This demonstration script creates a toplevel window containing
|
||
|
|
# a paned window that separates two windows horizontally.
|
||
|
|
#
|
||
|
|
# RCS: @(#) $Id: paned1.tcl,v 1.3 2003/01/21 20:24:47 hunt Exp $
|
||
|
|
|
||
|
|
if {![info exists widgetDemo]} {
|
||
|
|
error "This script should be run from the \"widget\" demo."
|
||
|
|
}
|
||
|
|
|
||
|
|
set w .paned1
|
||
|
|
catch {destroy $w}
|
||
|
|
toplevel $w
|
||
|
|
wm title $w "Horizontal Paned Window Demonstration"
|
||
|
|
wm iconname $w "paned1"
|
||
|
|
positionWindow $w
|
||
|
|
|
||
|
|
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.)"
|
||
|
|
pack $w.msg -side top
|
||
|
|
|
||
|
|
frame $w.buttons
|
||
|
|
pack $w.buttons -side bottom -fill x -pady 2m
|
||
|
|
button $w.buttons.dismiss -text Dismiss -command "destroy $w"
|
||
|
|
button $w.buttons.code -text "See Code" -command "showCode $w"
|
||
|
|
pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
|
||
|
|
|
||
|
|
panedwindow $w.pane
|
||
|
|
pack $w.pane -side top -expand yes -fill both -pady 2 -padx 2m
|
||
|
|
|
||
|
|
label $w.pane.left -text "This is the\nleft side" -bg yellow
|
||
|
|
label $w.pane.right -text "This is the\nright side" -bg cyan
|
||
|
|
|
||
|
|
$w.pane add $w.pane.left $w.pane.right
|