# SpinButton

proc changedSpin {} {
    puts stdout "spin spun"
}

xtAppInitialize -class Program

xmSpinBox .spin managed

# -values {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec} \

xmTextField .spin.text managed \
    -values {Jan Feb} \
    -numValues 2 \
    -spinBoxChildType string \
    -editable false

.spin.text valueChangedCallback changedSpin

. realizeWidget

. mainLoop
