NAME
spinner - Create and manipulate a spinner widget
SYNOPSIS
spinner pathName ?options?
INHERITANCE
itk::Widget <- Labeledwidget <- Spinner
STANDARD OPTIONS
background borderWidth cursor exportSelection
INHERITED OPTIONS
childSitePos command fixed focusCommand
labelBitmap labelFont labelImage labelMargin
DESCRIPTION
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.
METHODS
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:
ASSOCIATED METHODS
delete get icursor index insert scan selection xview
See the "entry" manual entry for details on the associated methods.
INHERITED METHODS
childsite clear peek
See the "entryfield" manual entry for details on the associated methods.
WIDGET-SPECIFIC 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.
EXAMPLE
option add *textBackground GhostWhite
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}
pack .sm -padx 10 -pady 10
ACKNOWLEDGEMENTS:
Ken Copeland <ken@hilco.com>
10/18/95 - Added auto-repeat action to spinner arrow buttons.
AUTHOR
Sue Yockey
KEYWORDS
spinner, widget