[squeak-dev] The Inbox: EToys-kfr.494.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Feb 19 09:06:56 UTC 2023
A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-kfr.494.mcz
==================== Summary ====================
Name: EToys-kfr.494
Author: kfr
Time: 19 February 2023, 10:06:55.164135 am
UUID: 6c582812-887d-3647-bd6b-8c072e2d7e65
Ancestors: EToys-kfr.493
Fix typo
=============== Diff against EToys-kfr.493 ===============
Item was changed:
----- Method: EventRollMorph>>makeControlsPanel (in category 'processing') -----
makeControlsPanel
"One-time initialization. Upon entry, the receiver has no submorphs; upon exit, it has one, namely its controlsPanel, which contains the scale slider, the track headings, and the control buttons."
| topWrapper labelWrapper aMorph aPanel |
aPanel := AlignmentMorph newColumn beTransparent.
aPanel hResizing: #shrinkWrap; vResizing: #shrinkWrap.
topWrapper := AlignmentMorph newRow beTransparent.
+ topWrapper hResizing: #spaceFill; vResizing: #shrinkWrap.
- topWrapper hResizing: #spaceFill; vResizing: #shirnkWrap.
topWrapper rubberBandCells: true.
labelWrapper := AlignmentMorph newColumn beTransparent.
labelWrapper addTransparentSpacerOfSize: 0 at 4.
#('mouse' 'keyboard' 'media') translatedNoop do:
[:aString |
aMorph := Morph new extent: 80@ 20.
aMorph hResizing: #rigid; vResizing: #rigid.
aMorph beTransparent.
aMorph addMorphCentered: (StringMorph contents: aString translated font: (StrikeFont familyName: 'Accujen' size: 24)).
labelWrapper addMorphBack: aMorph.
labelWrapper addTransparentSpacerOfSize: 0 at 20].
labelWrapper submorphs last delete. "that last spacer"
topWrapper addMorphBack: labelWrapper.
labelWrapper on: #mouseDown send: #grabMorph: to: self.
topWrapper addMorphBack: self scaleSlider.
aPanel addMorphBack: topWrapper.
aPanel addMorphBack: self makeButtonsPanel.
self addMorph: aPanel!
More information about the Squeak-dev
mailing list
|