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>