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

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

diff --git a/itcl/iwidgets/demos/extfileselectiondialog b/itcl/iwidgets/demos/extfileselectiondialog
new file mode 100644 (file)
index 0000000..8cac6c0
--- /dev/null
+++ b/itcl/iwidgets/demos/extfileselectiondialog
@@ -0,0 +1,15 @@
+# ----------------------------------------------------------------------
+#  DEMO: extfileselectiondialog in [incr Widgets]
+# ----------------------------------------------------------------------
+package require Iwidgets 4.0
+
+iwidgets::extfileselectiondialog .efsd -modality application
+
+button .select -text "Files..." -command {
+    if {[.efsd activate]} {
+        puts "selected: [.efsd get]"
+    } else {
+        puts ""
+    }
+}
+pack .select -side left