ActiveTcl User Guide

Table of Contents

gets::spinner pathName ?options? itk::Widget <- iwidgets::La- beledwidget <- iwidgets::Spinner

background borderWidth cursor exportSelection

foreground
highlightColor highlightThickness insertBackground insertBorderWidth insertOffTime insertOnTime insertWidth
justify
relief selectBackground selectBorderWidth selectForeground textVariable

See the options manual entry for details on the standard op-

tions.

show
state

See the entry manual entry for details on the associated op-

tions.
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 sticky

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 iwidgets::spinner command creates a spinner widget. The

spinner is comprised of an entryfield plus up and down arrow but- tons. Arrows may be drawn horizontally or vertically.

The iwidgets::spinner command creates a new Tcl command whose

name is pathName. This command may be used to invoke various op- erations on the widget. It has the following general form:

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

ods.
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 iwidgets::spinner command. pathName con*- figure ?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 path-

Name (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 iwidgets::spinner command. pathName down Derived classes may overload this method to specialize functionality. pathName up

Derived classes may overload this method to specialize function-

ality.

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

ner. See the canvas widget manual entry for details on the up- arrow component item.

package require Iwidgets 4.0
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] }

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