diff options
author | Keith Seitz <keiths@redhat.com> | 2002-09-24 23:50:31 +0000 |
---|---|---|
committer | Keith Seitz <keiths@redhat.com> | 2002-09-24 23:50:31 +0000 |
commit | 43375e54d64ecea0b356c82d72b29fd95dd54cc9 (patch) | |
tree | 7582d7bb623964e848d993dde740802e40a748b0 /iwidgets/demos/labeledwidget | |
parent | 5a88d945c95d8c15e31bf74fc9850b8c01fdeaec (diff) | |
download | gdb-43375e54d64ecea0b356c82d72b29fd95dd54cc9.tar.gz |
import iwidgets 4.0.1tcltk840-20020924-branchpoint
Diffstat (limited to 'iwidgets/demos/labeledwidget')
-rw-r--r-- | iwidgets/demos/labeledwidget | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/iwidgets/demos/labeledwidget b/iwidgets/demos/labeledwidget new file mode 100644 index 00000000000..2c6cb9d6d0d --- /dev/null +++ b/iwidgets/demos/labeledwidget @@ -0,0 +1,23 @@ +# ---------------------------------------------------------------------- +# DEMO: labeledwidget in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +. configure -background white + +iwidgets::labeledwidget .lw -labeltext "Label Text:" +pack .lw -padx 4 -pady 4 + +set win [.lw childsite] +label $win.ex -text "(put your widgets here)" \ + -background black -foreground white \ + -width 30 -height 3 +pack $win.ex -expand yes -fill both -padx 4 -pady 4 + +iwidgets::optionmenu .pos -labeltext "Position:" -command { + .lw configure -labelpos [.pos get] +} +pack .pos -padx 4 -pady 4 + +.pos insert end e n ne nw s se sw w +.pos select w |