Class: ColorBulletIndicator

• Inheritance
• Description
• Related information
• Class protocol
  • class initialization
• Instance protocol
  • accessing
  • change & update
  • initialization
  • menu
  • private
  • queries
• Examples

Inheritance:

   Object
   |
   +--GraphicsMedium
      |
      +--DisplaySurface
         |
         +--SimpleView
            |
            +--View
               |
               +--ImageView
                  |
                  +--ColorBulletIndicator

Package:

stx:libwidg3

Category:

Views-Misc

Version:

rev: 1.12 date: 2018/11/10 07:45:20

user: cg

file: ColorBulletIndicator.st directory: libwidg3

module: stx stc-classLibrary: libwidg3

Author:

Claus Gittinger (ps@joshua)

Description:

Shows a colored bullet (like a led lamp).
Xlates symbolic image names like #red/#green/#blue into a corresponding
bullet image.



[instance variables:]

[class variables:]

Related information:

Class protocol:

 initializeSharedImages

self initializeSharedImages

Instance protocol:

 imagesAt: aSymbol put: anImage

define the image to be shown as per symbol

 model: aModel

set the model, which is supposed to provide the boxes value.
If a listMessage was defined, it is also responsible for providing
the list

 update: something with: aParameter from: changedObject

 fetchDeviceResources

fetch device colors, to avoid reallocation at redraw time

 initialize

 middleButtonMenu

 getStateFromModel

 computePreferredExtent

(comment from inherited method)
return my computed preferred extent - this is the minimum size I would like to have.
If there are any components, a rectangle enclosing them
is returned. Otherwise, the actual extent is returned.

Examples:

    |top aV model|

    model := #red asValue.

    top := StandardSystemView new.
    top extent:100@100.
    aV := ColorBulletIndicator origin:0@0 in:top.
    aV model:model.

    top open.
    5 timesRepeat:[
        Delay waitForSeconds:1.
        model value:#yellow.
        Delay waitForSeconds:1.
        model value:#green.
        Delay waitForSeconds:1.
        model value:#red.
    ].