You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
457 B
15 lines
457 B
# ---------------------------------------------------------------------- |
|
# 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
|
|
|