Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ct.365.mcz==================== Summary ====================
Name: EToys-ct.365
Author: ct
Time: 15 October 2019, 2:16:54.429129 pm
UUID: 08312ed6-6a48-cd4f-98e1-d0d3baff59dd
Ancestors: EToys-mt.361
Fixes small layout error in tiles due to missspelling
=============== Diff against EToys-mt.361 ===============
Item was changed:
----- Method: TileMorph>>wrapPhraseInFunction (in category '*Etoys-Squeakland-arrows') -----
wrapPhraseInFunction
"The user made a gesture requesting that the phrase for which the receiver bears the widget hit be wrapped in a function. This applies for the moment only to numeric functions"
| pad newPad functionPhrase |
pad := self ownerThatIsA: TilePadMorph. "Or something higher than that???"
(pad isNil or: [pad type ~= #Number]) ifTrue: [^ Beeper beep].
newPad := TilePadMorph new setType: #Number.
+ newPad hResizing: #shrinkWrap; vResizing: #spaceFill.
- newPad hResizing: #shrinkWrap; vResizing: #spacefill.
functionPhrase := FunctionTile new.
newPad addMorphBack: functionPhrase.
pad owner replaceSubmorph: pad by: newPad.
functionPhrase operator: #abs pad: pad.
functionPhrase addSuffixArrow.
self scriptEdited
!
Item was changed:
----- Method: TilePadMorph>>wrapInFunction (in category '*Etoys-Squeakland-miscellaneous') -----
wrapInFunction
"The user made a gesture requesting that the receiver be wrapped in a (numeric) function."
| newPad functionPhrase |
newPad := TilePadMorph new setType: #Number.
+ newPad hResizing: #shrinkWrap; vResizing: #spaceFill.
- newPad hResizing: #shrinkWrap; vResizing: #spacefill.
functionPhrase := FunctionTile new.
newPad addMorphBack: functionPhrase.
owner replaceSubmorph: self by: newPad.
functionPhrase operator: #abs pad: self.
self scriptEdited!