iwidgets::extfileselectionbox tcl tk

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