wm title . "Spinint Example"
##=========================================================
## Create a couple of spinint iwidgets
##=========================================================
##
iwidgets::spinint .height \
-labeltext "Enter Your Height (cm): " \
-fixed 3 \
-width 4 \
-range {80 250} \
-wrap no
iwidgets::spinint .weight \
-labeltext "Enter Your Weight (kg): " \
-fixed 3 \
-width 4 \
-range {10 700} \
-step 5
pack .height .weight \
-padx 5 \
-pady 5
##
## Start at a common value
##
.height clear
.weight clear
.height insert 0 120
.weight insert 0 400
|