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