diff options
Diffstat (limited to 'iwidgets/demos/extfileselectiondialog')
| -rw-r--r-- | iwidgets/demos/extfileselectiondialog | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/iwidgets/demos/extfileselectiondialog b/iwidgets/demos/extfileselectiondialog new file mode 100644 index 00000000000..8cac6c0b0a3 --- /dev/null +++ b/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 |