blob: 32a20227b0ded3f82e3fd7f701520cb149c61ab2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# ----------------------------------------------------------------------
# DEMO: combobox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
option add *textBackground seashell
iwidgets::combobox .cb -labeltext "Font:" -labelpos w -selectioncommand {
puts "selected: [.cb getcurselection]"
}
.cb insert list end Ariel Courier Helvetica Knarly Lucida \
Rumpus Symbol Times "Zapf Dingbats"
.cb selection set Times
pack .cb
|