[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:

==================== 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') -----
  	"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