diff options
Diffstat (limited to 'iwidgets/demos/optionmenu')
| -rw-r--r-- | iwidgets/demos/optionmenu | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/iwidgets/demos/optionmenu b/iwidgets/demos/optionmenu new file mode 100644 index 00000000000..d74a0bfb19c --- /dev/null +++ b/iwidgets/demos/optionmenu @@ -0,0 +1,12 @@ +# ---------------------------------------------------------------------- +# DEMO: optionmenu in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +iwidgets::optionmenu .cb -labeltext "Font:" -labelpos w -command { + puts "selected: [.cb get]" +} +pack .cb + +.cb insert end Ariel Courier Helvetica Knarly Lucida \ + Rumpus Symbol Times "Zapf Dingbats" |