LabelNumber is an Itcl widget for displaying a label, a number and buttons to increment and decrement the number.
set w [LabelNumber .ln \ -text "Test label:" \ -value 42 \ -labelwidth 20 \ -labelfont -Adobe-Helvetica-Bold-R-Normal--*-140-*-*-*-*-*-* \ -valuefont 8x13 \ -relief sunken \ -borderwidth 3 \ -command puts \ -orient horizontal] pack $w -fill x -expand 1
See LabelNumber(n) for more details.
Please send questions or comments to abrighto@eso.org.
Copyright © 1998 ESO - European Southern Observatory