wm title . "Extfileselectionbox Example"
##
## Supporting procedure
## to print the selection
## of the dir/file
##
proc print {type} {
if {[string match "file" $type]} {
puts [file tail [.efsb get]]
} else {
puts [[.efsb component dirs] getcurselection]
}
return
}; # end proc print
##=========================================================
## Create a Extfileselectionbox iwidget
##=========================================================
##
iwidgets::extfileselectionbox .efsb \
-mask "*.html" \
-directory "../" \
-fileslabel "HTML Files" \
-dirslabel "Iwidgets HTML Dir" \
-selectdircommand {print dir} \
-selectfilecommand {print file}
pack .efsb \
-fill both \
-expand true
|