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"
