[squeak-dev] The Trunk: EToys-ul.448.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Sep 3 14:22:05 UTC 2021
Levente Uzonyi uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ul.448.mcz
==================== Summary ====================
Name: EToys-ul.448
Author: ul
Time: 3 September 2021, 3:50:47.825369 pm
UUID: 32822614-0663-4add-b1f3-cbbf4c906a6d
Ancestors: EToys-nice.447
- ifNotNilDo: -> ifNotNil:
=============== Diff against EToys-nice.447 ===============
Item was changed:
----- Method: ScriptEditorMorph>>dismiss (in category 'buttons') -----
dismiss
"Dismiss the scriptor, usually nondestructively. Possibly animate the dismissal."
| endPoint aForm startPoint topRend |
owner ifNil: [^ self].
scriptName ifNil: [^ self delete]. "ad hoc fixup for bkwrd compat"
+ endPoint := self viewerTile ifNotNil: [:tile | tile topLeft] ifNil: [owner topRight].
- endPoint := self viewerTile ifNotNilDo: [:tile | tile topLeft] ifNil: [owner topRight].
aForm := (topRend := self topRendererOrSelf) imageForm offset: (0 at 0).
handWithTile := nil.
startPoint := topRend topLeft.
topRend topRendererOrSelf delete.
(playerScripted isExpendableScript: scriptName) ifTrue: [
^ playerScripted removeScript: scriptName fromWorld: Project current world].
Project current world displayWorld.
aForm slideFrom: startPoint to: endPoint nSteps: 4 delay: 30.
"The OLPC Virtual Screen wouldn't notice the last update here."
Display forceToScreen: (endPoint extent: aForm extent).!
Item was changed:
----- Method: TileMorph>>layoutChanged (in category 'layout') -----
layoutChanged
| vpanel hpanel popArrows |
super layoutChanged.
self labelMorph
ifNil: [^ self].
+ popArrows := self activeHand ifNil: [^ self] ifNotNil: [:ac |
- popArrows := self activeHand ifNil: [^ self] ifNotNilDo: [:ac |
ac valueOfProperty: #popArrows
ifAbsent: [^ self]].
popArrows first == self
ifFalse: [^ self].
vpanel := popArrows second.
hpanel := popArrows third.
vpanel
ifNotNil: [vpanel openInWorld.
vpanel center: self labelMorph center.
vpanel right: self labelMorph left - 2].
hpanel
ifNotNil: [hpanel openInWorld.
hpanel center: self labelMorph center.
hpanel left: self labelMorph right + 2]!
More information about the Squeak-dev
mailing list
|