Smalltalk/X Webserver

Documentation of class 'HorizontalScale':

Class: HorizontalScale

Inheritance
Description
Instance protocol
- accessing
- drawing
Examples

Inheritance:

   Object
   |
   +--GraphicsContext
      |
      +--DeviceGraphicsContext
         |
         +--GraphicsMedium
            |
            +--DisplaySurface
               |
               +--SimpleView
                  |
                  +--HorizontalScale

Package:: stx:libwidg2

Category:: Views-Interactors

Version:: rev: ? date: ? ?; user: ?; file: ? directory: libwidg2; module: stx stc-classLibrary: libwidg2

Description:

like a slider, but with a range (i.e. may be different from 0..100)
and displaying the current value.

Instance protocol:

accessing

range: anInterval
scrollAction: aBlock

drawing

redraw

|top s1 s2| top := StandardSystemView new. top extent:200@200. s1 := HorizontalScale origin:0.0 @ 0.0 in:top. s1 extent:1.0 @ 50. s2 := HorizontalScale origin:0.0 @ 0.5 in:top. s2 extent:1.0 @ 50. s2 range:(-50 to:50). top open