# ---------------------------------------------------------------------- | |
# DEMO: extfileselectionbox in [incr Widgets] | |
# ---------------------------------------------------------------------- | |
package require Iwidgets 4.0 | |
option add *textBackground seashell | |
iwidgets::extfileselectionbox .fsb -width 4i -height 4i | |
pack .fsb |