Table of Contents
_________________________________________________________________
spinner - Create and manipulate a spinner widget
spinner pathName ?options?
itk::Widget <- Labeledwidget <- Spinner
background borderWidth cursor exportSelection
- foreground
- highlightColor highlightThicknessinsertBackground
- insertBorderWidth
- insertOffTime insertOnTimeinsertWidth
justify relief selectBackgroundselectBorderWidth
- selectForeground
- textVariable
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 command fixed focusCommand
- invalid
- textBackground textFont validate
width
See the "entryfield" widget manual entry for details on the
above inherited options.
- disabledForeground
- labelBitmap labelFontlabelImage
labelMargin labelPos labelText labelVariable
state
See the "labeledwidget" widget manual entry for details on
the above inherited options.
- Name:
- arrowOrient
- Class:
- Orient
- Command-Line Switch:
- -arroworient
Specifies placement of arrow buttons: horizontal or
vertical. The default is vertical.
- Name:
- decrement
- Class:
- Command
- Command-Line Switch:
- -decrement
Tcl command to be executed when down arrow is pressed.
- Name:
- increment
- Class:
- Command
- Command-Line Switch:
- -increment
Tcl command to be executed when up arrow is pressed.
- Name:
- repeatDelay
- Class:
- RepeatDelay
- Command-Line Switch:
- -repeatdelay
Specifies the initial delay in milliseconds before the
spinner repeat action on the arrow buttons engages.
The default is 300 milliseconds.
- Name:
- repeatInterval
- Class:
- RepeatInterval
- Command-Line Switch:
- -repeatinterval
Specifies the repeat delay in milliseconds between
selections of the arrow buttons. A repeatinterval of 0
disables button repeat. The default is 100 milliseconds.
_________________________________________________________________
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 get icursor index
insert scan selection 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.
pathName cget option
Returns the current value of the configuration option
given by option. Option may have any of the values
accepted by the spinner command.
pathName configure ?option? ?value option value ...?
Query or modify the configuration options of the
widget. If no option is specified, returns a list
describing all of the available options for pathName
(see Tk_ConfigureInfo for information on the format of
this list). If option is specified with no value, then
the command returns a list describing the one named
option (this list will be identical to the corresponding
sublist of the value returned if no option is
specified). If one or more option - value pairs are
specified, then the command modifies the given widget
option(s) to have the given value(s); in this case the
command returns an empty string. Option may have any
of the values accepted by the spinner command.
pathName down
Derived classes may overload this method to specialize
functionality.
pathName up
Derived classes may overload this method to specialize
functionality.
- Name:
- downarrow
- Class:
- Canvas
The downarrow component is the downward pointing button
of the spinner. See the "canvas" widget manual entry
for details on the downarrow component item.
- Name:
- uparrow
- Class:
- Canvas
The uparrow component is the upward pointing button of
the spinner. See the "canvas" widget manual entry for
details on the uparrow component item.
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>
10/18/95 - Added auto-repeat action to spinner arrow
buttons.
Sue Yockey
spinner, widget
Table of Contents