diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-02-22 14:07:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-02-22 14:07:01 (GMT) |
| commit | 55fc45d3848765ca195aa690d8eeb9711f2ecc19 (patch) | |
| tree | 51165ecdb3b3461eb8dcb9f1c5552063119464fb /library/demos/widget | |
| parent | fceafda7d034e62bd12688c6f2a85c3dc32c67cc (diff) | |
| download | tk-55fc45d3848765ca195aa690d8eeb9711f2ecc19.zip tk-55fc45d3848765ca195aa690d8eeb9711f2ecc19.tar.gz tk-55fc45d3848765ca195aa690d8eeb9711f2ecc19.tar.bz2 | |
Fixed panedwindow binding bugs and added demos for it too.
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/library/demos/widget b/library/demos/widget index 3b547b7..d8549c7 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.6 2001/11/30 11:25:41 dkf Exp $ +# RCS: @(#) $Id: widget,v 1.7 2002/02/22 14:07:01 dkf Exp $ eval destroy [winfo child .] wm title . "Widget Demonstration" @@ -199,8 +199,12 @@ addDemoSection "Canvases" { cscroll "A simple scrollable canvas" } addDemoSection "Scales" { - vscale "Vertical scale" hscale "Horizontal scale" + vscale "Vertical scale" +} +addDemoSection "Paned Windows" { + paned1 "Horizontal paned window" + paned2 "Vertical paned window" } addDemoSection "Menus" { menu "Menus and cascades (sub-menus)" @@ -381,7 +385,7 @@ Copyright (c) 1996-1997 Sun Microsystems, Inc. Copyright (c) 1997-2000 Ajuba Solutions, Inc. -Copyright (c) 2001 Donal K. Fellows" +Copyright (c) 2001-2002 Donal K. Fellows" } # Local Variables: |