Class: UpDownButton

• Inheritance
• Description
• 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.26 date: 2023/07/06 14:35:46

user: cg

file: UpDownButton.st directory: libwidg2

module: stx stc-classLibrary: libwidg2

Description:

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

copyright
COPYRIGHT (c) 1997 eXept Software AG
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

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; redefined by many 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

(comment from inherited method)
set the viewBackground to something, a color, image or form.
If it's a color and we run on a color display, also set shadow and light
colors - this means, that a red view will get light-red and dark-red
edges.

 downButton

return the downButton

 upButton

return the upButton

 orientation

return the orientation (a symbol)

 orientation: aSymbol

set the orientation (#horizontal or #vertical)

 sizeChanged: how from: oldExtentOrNil

my view has changed its size

 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

(comment from inherited method)
must be called if redefined

 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.