blob: 2957b910ddc7c756946a83ed113e18963c3fc98b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
# ----------------------------------------------------------------------
# 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"
|