blob: 56d1650a6b4a488d1127308d535bdab4209a3956 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
|
