3.20  gauge%

Implements: control<%>

A gauge is a horizontal or vertical bar for displaying the output value of a bounded integer quantity. Each gauge has an adjustable range, and the gauge's current value is always between 0 and its range, inclusive. Use set-value to set the value of the gauge.

• (new gauge% (label _) (range _) (parent _) [(style _)] [(font _)] [(enabled _)] [(vert-margin _)] [(horiz-margin _)] [(min-width _)] [(min-height _)] [(stretchable-width _)] [(stretchable-height _)]) -> gauge% object
     label : string (up to 200 characters) or #f
   range : exact integer in [1, 10000]
     parent : frame%, dialog%, panel%, or pane% object
     style = '(horizontal) : list of symbols in '(horizontal vertical vertical-label horizontal-label deleted)
   font = normal-control-font : font% object
     enabled = #t : boolean
     vert-margin = 2 : exact integer in [0, 1000]
     horiz-margin = 2 : exact integer in [0, 1000]
     min-width = 0 : exact integer in [0, 10000]
     min-height = 0 : exact integer in [0, 10000]
     stretchable-width = #t for 'horizontal style, #f for 'vertical : boolean
     stretchable-height = #t for 'vertical style, #f for 'horizontal : boolean

  If label is a string, it is used as the gauge label; otherwise the gauge does not display a label.

  If an ampersand (``&'') occurs in label, it is specially parsed; under Windows and X, the character following an ampersand is underlined in the displayed control to indicate a keyboard mnemonic. (Under Mac OS X, mnemonic underlines are not shown.) The mnemonic is meaningless for a gauge (as far as on-traverse-char is concerned), but it is supported for consistency with other control types. A programmer may assign a meaning to the mnemonic, e.g., by overriding on-traverse-char.

  The range argument is an integer specifying the maximum value of the gauge (inclusive). The minimum gauge value is always 0.

  The style list must include either 'horizontal, specifying a horizontal gauge, or 'vertical, specifying a vertical gauge. If style includes 'vertical-label, then the gauge is created with a label above the control; if style does not include 'vertical-label (and optionally includes 'horizontal-label), then the label is created to the left of the gauge. If style includes 'deleted, then the gauge is created as hidden, and it does not affect its parent's geometry; the gauge can be made active later by calling parent's add-child method.

  The font argument determines the font for the control. For information about the enabled argument, see window<%>. For information about the horiz-margin and vert-margin arguments, see subarea<%>. For information about the min-width, min-height, stretchable-width, and stretchable-height arguments, see area<%>.

  
  

Methods
    get-range
    get-value
    set-range
    set-value

All Methods
    accept-drop-files from window<%>
    client->screen from window<%>
    command from control<%>
    enable from window<%>
    focus from window<%>
    get-client-size from window<%>
    get-cursor from window<%>
    get-font from control<%>
    get-graphical-min-size from area<%>
    get-handle from window<%>
    get-height from window<%>
    get-label from window<%>
    get-parent from area<%>
    get-plain-label from window<%>
    get-range from gauge%
    get-size from window<%>
    get-top-level-window from area<%>
    get-value from gauge%
    get-width from window<%>
    get-x from window<%>
    get-y from window<%>
    has-focus? from window<%>
    horiz-margin from subarea<%>
    is-enabled? from window<%>
    is-shown? from window<%>
    min-height from area<%>
    min-width from area<%>
    on-drop-file from window<%>
    on-focus from window<%>
    on-move from window<%>
    on-size from window<%>
    on-subwindow-char from window<%>
    on-subwindow-event from window<%>
    on-superwindow-enable from window<%>
    on-superwindow-show from window<%>
    popup-menu from window<%>
    refresh from window<%>
    screen->client from window<%>
    set-cursor from window<%>
    set-label from window<%>
    set-range from gauge%
    set-value from gauge%
    show from window<%>
    stretchable-height from area<%>
    stretchable-width from area<%>
    vert-margin from subarea<%>