diff options
| author | pspjuth <peter.spjuth@gmail.com> | 2001-09-26 21:36:19 (GMT) |
|---|---|---|
| committer | pspjuth <peter.spjuth@gmail.com> | 2001-09-26 21:36:19 (GMT) |
| commit | 071818f331706f06d0498f1f9d5f4e9121395daf (patch) | |
| tree | 20c06e6412fd77d17f1141ae292692607300a6da /library/demos/widget | |
| parent | 05383a493ead1b30256c79a19782ecdbfa74522a (diff) | |
| download | tk-071818f331706f06d0498f1f9d5f4e9121395daf.zip tk-071818f331706f06d0498f1f9d5f4e9121395daf.tar.gz tk-071818f331706f06d0498f1f9d5f4e9121395daf.tar.bz2 | |
Added labelframe widget. TIP#18.
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/library/demos/widget b/library/demos/widget index f01da90..7d0d662 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.2 1998/09/14 18:23:30 stanton Exp $ +# RCS: @(#) $Id: widget,v 1.3 2001/09/26 21:36:19 pspjuth Exp $ eval destroy [winfo child .] wm title . "Widget Demonstration" @@ -210,6 +210,12 @@ This application provides a front end for several short scripts that demonstrate {demo demo-menubu} .t insert end " \n " {demospace} +.t insert end \n {} "Labelframes" title +.t insert end " \n " {demospace} +.t insert end "1. Labelframe." \ + {demo demo-labelframe} +.t insert end " \n " {demospace} + .t insert end \n {} "Common Dialogs" title .t insert end " \n " {demospace} .t insert end "1. Message boxes." {demo demo-msgbox} |