blob: c405a027a8b33c74c07823dc8c899363069b50cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
# ----------------------------------------------------------------------
# DEMO: checkbox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
iwidgets::checkbox .cb -labeltext Styles
.cb add bold -text Bold
.cb add italic -text Italic
.cb add underline -text Underline
.cb select underline
pack .cb -padx 10 -pady 10 -fill both -expand yes
|