12 lines
411 B
Text
12 lines
411 B
Text
# ----------------------------------------------------------------------
|
|
# 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
|