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