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