diff options
Diffstat (limited to 'itcl/iwidgets/demos/fileselectiondialog')
| -rw-r--r-- | itcl/iwidgets/demos/fileselectiondialog | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/itcl/iwidgets/demos/fileselectiondialog b/itcl/iwidgets/demos/fileselectiondialog new file mode 100644 index 00000000000..56d1650a6b4 --- /dev/null +++ b/itcl/iwidgets/demos/fileselectiondialog @@ -0,0 +1,15 @@ +# ---------------------------------------------------------------------- +# DEMO: fileselectiondialog in [incr Widgets] +# ---------------------------------------------------------------------- +package require Iwidgets 4.0 + +iwidgets::fileselectiondialog .fsd -modality application + +button .select -text "Files..." -command { + if {[.fsd activate]} { + puts "selected: [.fsd get]" + } else { + puts "" + } +} +pack .select -side left |