spinbox .tag -values {Mo Di Mi Do Fr Sa So} \
    -textvariable tag -wrap true

spinbox .wert -from 0 -to 100 -increment 2
    -command "wert %W %s %d" 

proc wert {widget wert dir} {
    puts stdout "widget $widget: $wert, $dir"
}

grid .tag -sticky ew
grid .wert

wm title . "Spinbox"