Class: UpDownButton

• Inheritance
• Description
• Related information
• Instance protocol
  • accessing-behavior
  • accessing-channels
  • accessing-color & font
  • accessing-components
  • accessing-look
  • change & update
  • event handling
  • focus handling
  • initialization
• Examples

Inheritance:

   Object
   |
   +--GraphicsMedium
      |
      +--DisplaySurface
         |
         +--SimpleView
            |
            +--View
               |
               +--UpDownButton

Package:

stx:libwidg2

Category:

Views-Interactors

Version:

rev: 1.23 date: 2017/11/28 18:27:33

user: cg

file: UpDownButton.st directory: libwidg2

module: stx stc-classLibrary: libwidg2

Author:

Claus Gittinger

Description:

an up/down button - simply two buttons in one view.
This is also called SpinButton.

Related information:

    ArrowButton
    ComboUpDownView

Instance protocol:

 downAction: aBlock

set the down-action

 enabled

(comment from inherited method)
views are enabled by default

 enabled: aBoolean

(comment from inherited method)
this is the basic machanism to enable/disable a view.
empty in this class; may be redefined by subclasses

 upAction: aBlock

set the up-action

 backgroundChannel

return a valueHolder for the background color

 backgroundChannel: aValueHolder

set a valueHolder for the background color

 enableChannel

return a valueHolder for the enabled-state

 enableChannel: aValueHolder

set a valueHolder for the enabled-state

 foregroundChannel

return a valueHolder for the foreground color

 foregroundChannel: aValueHolder

set a valueHolder for the foreground color

 model: aModel

(comment from inherited method)
Set the model.
Here, if I am my own menuPerformer/menuHolder,
set the menuHolder and menuPerformer to the model.
This is a compatibility kludge,
since typically, ST-80 code expects the model to provide a menu
and perform it. If the model does not support a menu message,
it will be forwarded to the view.
Those apps which want the view to provide the (default) menu have to reset
this by sending #menuHolder: message (again)

 backgroundColor

return the backgroundColor

 backgroundColor: aColor

set the backgroundColor

 foregroundColor

return the foregroundColor

 foregroundColor: aColor

set the foregroundColor

 viewBackground: aColor

 downButton

return the downButton

 upButton

return the upButton

 orientation

return the orientation (a symbol)

 orientation: aSymbol

set the orientation (#horizontal or #vertical)

 sizeChanged: how

 changeDown: aValue

down button was pressed, send to my model

 changeUp: aValue

up button was pressed, send to my model

 keyPress: aKey x: x y: y

simulate a buttonPress/release

 showFocus: explicit

display myself as having-focus

 initialize

 initializeButtonDimensions

 initializeButtonForms

 initializeButtons

ArrowButton upIn:self

Examples:

     |top ud|

     top := StandardSystemView new.
     top extent:(300 @ 200).

     ud := UpDownButton in:top.
     ud origin:(10 @ 10).

     ud upAction:[Transcript showCR:'up'].
     ud downAction:[Transcript showCR:'down'].
     top open.

     |top ud|

     top := StandardSystemView new.
     top extent:(300 @ 200).

     ud := UpDownButton in:top.
     ud origin:(10 @ 10).
     ud model:[:arg| Transcript showCR:arg].
     top open.

     |top ud|

     top := StandardSystemView new.
     top extent:(300 @ 200).

     ud := UpDownButton in:top.
     ud orientation:#horizontal.
     ud origin:(10 @ 10).

     ud upAction:[Transcript showCR:'up'].
     ud downAction:[Transcript showCR:'down'].
     top open.