wm title . "Fileselectiondialog Example"
##=========================================================
## Create a Fileselectiondialog iwidget
##=========================================================
##
iwidgets::fileselectiondialog .fsd \
-mask "*.html" \
-directory "../" \
-fileslabel "HTML Files" \
-dirslabel "Iwidgets HTML Dir" \
-modality application
wm title .fsd "Fileselectiondialog Example"
##
## Display the widget, and if Ok is clicked,
## then print out the selection
##
if [.fsd activate] {
puts [.fsd get]
}
|