diff options
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 |