# ---------------------------------------------------------------------- | |
# 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 |