Enable to track git://github.com/monaka/binutils.git

[pf3gnuchains/pf3gnuchains3x.git] / itcl / iwidgets / demos / optionmenu

diff --git a/itcl/iwidgets/demos/optionmenu b/itcl/iwidgets/demos/optionmenu
new file mode 100644 (file)
index 0000000..d74a0bf
--- /dev/null
+++ b/itcl/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"