# ----------------------------------------------------------------------
#  DEMO: selectionbox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0

option add *textBackground seashell

iwidgets::selectionbox .sb -selectionlabel "Font:" -height 2i
pack .sb

.sb insert items end Ariel Courier Helvetica Knarly Lucida \
    Rumpus Symbol Times "Zapf Dingbats"