iwidgets::spinner(1) | [incr Widgets] | iwidgets::spinner(1) |
iwidgets::spinner - Create and manipulate a spinner widget
iwidgets::spinner pathName ?options?
itk::Widget <- iwidgets::Labeledwidget <- 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 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 labelFont labelImage 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
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 iwidgets::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 iwidgets::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.
Name: downarrow Class: Canvas
Name: uparrow Class: Canvas
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>
Sue Yockey
spinner, widget
Tk |