|
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>