DOC HOME SITE MAP MAN PAGES GNU INFO SEARCH
 

VxSpinButton(VTCL)


VxSpinButton -- create a SpinButton, return widget name of enclosing form widget

Syntax

VxSpinButton widget width lower underCB upper overCB \
increment default userCB position upOp dnOP

Description

Creates a SpinButton called widget, which consists of a text field and two buttons which increase and decrease the numeric value in the text field within upper and lower bounds.

Arguments

All arguments to VxSpinButton except upOp and dnOp are mandatory. Arguments may be specified as blank strings, and must appear in this order:

widget
The name of the SpinButton widget.

width
The width, in columns, of the text component of the SpinButton.

lower
The lower boundary value.

underCB
A callback for when the value goes below the lower bound. If set to "``'', the package automatically wraps the value around to the upper value.

upper
The upper boundary value.

overCB
A callback for when the value goes over the upper bound. If set to ``'', the package automatically wraps the value around to the lower value.

increment
Sets how much the value increases or decreases each time the button is pressed.

default
The initial default value.

userCB
A callback which validates the value of the text component of the SpinButton. Specify ``'' for no callback.

position
A list containing any geometry arguments for the SpinButton.

upOp
Optional operation to perform on increment when the ``up'' button is pressed (+ if not present).

dnOp
Optional operation to perform on increment when the ``down'' button is pressed (- if not present).

Globals


SBlower
array of lower boundary values, indexed by widget.

SBupper
array of upper boundary values, indexed by widget.

Returns

The name of the enclosing form widget (the name of the SpinButton widget).

Examples

   proc CreateSpin {form} {
   	set spin [VxSpinButton spin 15 0 "" 100 "" 2 50 "" "" + -]
   

# widget name = spin # width = 15 # lower bound = 0 # lower callback = blank ("") # upper bound = 100 # upper callback = blank ("") # increment = 2 # default value = 50 # user callback = blank ("") # position = blank ("") # up operation = + (default, may be omitted) # down operation = - (default, may be omitted) }

set app [VtOpen Spin]

set mainform [VtFormDialog $app.form -title "Spin button example"]

CreateSpin $mainform

VtShow $mainform VtMainLoop

Notes

The component widgets names are attached to the spinbutton name returned (given a SpinButton name in $sb):
© 2003 Caldera International, Inc. All rights reserved.
SCO OpenServer Release 5.0.7 -- 11 February 2003