| background foreground insertBorderWidth justify selectForeground | borderWidth highlightColor insertOffTime relief textVariable | cursor highlightThickness insertOnTime selectBackground | exportSelection insertBackground insertWidth selectBorderWidth | 
See the "options" manual entry for details on the standard options.
| show | state | 
See the "entry" manual entry for details on the associated options.
| childSitePos invalid width | command textBackground | fixed textFont | focusCommand validate | 
See the "entryfield" widget manual entry for details on the above inherited options.
| disabledForeground labelMargin state | labelBitmap labelPos | labelFont labelText | labelImage labelVariable | 
See the "labeledwidget" widget manual entry for details on the above inherited options.
Name: arrowOrient Class: Orient Command-Line Switch: -arroworient
Name: decrement Class: Command Command-Line Switch: -decrement
Name: increment Class: Command Command-Line Switch: -increment
Name: repeatDelay Class: RepeatDelay Command-Line Switch: -repeatdelay
Name: repeatInterval Class: RepeatInterval Command-Line Switch: -repeatinterval
The spinner command creates a spinner widget. The spinner is comprised of an entryfield plus up and down arrow buttons. Arrows may be drawn horizontally or vertically.
The spinner command creates a new Tcl command whose name is pathName. This command may be used to invoke various operations on the widget. It has the following general form:
pathName option ?arg arg ...?Option and the args determine the exact behavior of the command. The following commands are possible for spinner widgets:
| delete insert | get scan | icursor selection | index xview | 
See the "entry" manual entry for details on the associated methods.
| childsite | clear | peek | 
See the "entryfield" manual entry for details on the associated methods.
Name: downarrow Class: Canvas
Name: uparrow Class: Canvas
 set months {January February March April May June July \\
                 August September October November December}
 proc blockInput {char} {
     return 0
 }
 proc spinMonth {step} {
     global months
     set index [expr [lsearch $months [.sm get]] + $step]
     if {$index < 0} {set index 11}
     if {$index > 11} {set index 0}
     .sm delete 0 end
     .sm insert 0 [lindex $months $index]
 }
 spinner .sm -labeltext "Month : " -width 10 -fixed 10 -validate blockInput \\
             -decrement {spinMonth -1} -increment {spinMonth 1}
 .sm insert 0 January
 pack .sm -padx 10 -pady 10
Ken Copeland <ken@hilco.com>