date: 2018/11/10 07:45:20
- user: cg
- file: ColorBulletIndicator.st directory: libwidg3
- module: stx stc-classLibrary: libwidg3
- Claus Gittinger (ps@joshua)
Shows a colored bullet (like a led lamp).
Xlates symbolic image names like #red/#green/#blue into a corresponding
change & update
imagesAt: aSymbol put: anImage
define the image to be shown as per symbol
set the model, which is supposed to provide the boxes value.
If a listMessage was defined, it is also responsible for providing
update: something with: aParameter from: changedObject
fetch device colors, to avoid reallocation at redraw time
(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.
|top aV model|
model := #red asValue.
top := StandardSystemView new.
aV := ColorBulletIndicator origin:0@0 in:top.