diff options
Diffstat (limited to 'itcl/iwidgets/demos/combobox')
| -rw-r--r-- | itcl/iwidgets/demos/combobox | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/combobox b/itcl/iwidgets/demos/combobox new file mode 100644 index 00000000000..32a20227b0d --- /dev/null +++ b/itcl/iwidgets/demos/combobox @@ -0,0 +1,16 @@ +# ---------------------------------------------------------------------- +# DEMO: combobox in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +option add *textBackground seashell + +iwidgets::combobox .cb -labeltext "Font:" -labelpos w -selectioncommand { + puts "selected: [.cb getcurselection]" +} + +.cb insert list end Ariel Courier Helvetica Knarly Lucida \ + Rumpus Symbol Times "Zapf Dingbats" + +.cb selection set Times +pack .cb |