1 files changed, 18 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/demos/optionmenu b/itcl/iwidgets3.0.0/demos/optionmenu
new file mode 100755
index 00000000000..3c17f34a6c0
--- /dev/null
+++ b/itcl/iwidgets3.0.0/demos/optionmenu
@@ -0,0 +1,18 @@
+#!/bin/sh
+# ----------------------------------------------------------------------
+#  DEMO: optionmenu in [incr Widgets]
+# ----------------------------------------------------------------------
+#\
+exec itkwish "$0" ${1+"$@"}
+package require Iwidgets 3.0
+
+# itkwish interprets the rest...
+# ----------------------------------------------------------------------
+
+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"