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