diff options
Diffstat (limited to 'tix/tests/general/pane.tcl')
-rw-r--r-- | tix/tests/general/pane.tcl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tix/tests/general/pane.tcl b/tix/tests/general/pane.tcl new file mode 100644 index 00000000000..918386794ce --- /dev/null +++ b/tix/tests/general/pane.tcl @@ -0,0 +1,29 @@ +# pane.tcl -- +# +# Test the PanedWindow widget. +# +# Copyright (c) 1996, Expert Interface Technologies +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# + +proc About {} { + return "Test the PanedWindow widget." +} + +proc Test {} { + TestBlock pane-1.1 {tixPanedWindow -expand} { + tixPanedWindow .p -orient horizontal + pack .p -expand yes -fill both + set p1 [.p add pane1 -expand 0.3] + set p2 [.p add pane2 -expand 1] + set p3 [.p add pane3 -size 20] + .p config -width 300 -height 200 + update + .p config -width 500 + update + .p config -width 200 + update + } +} |