Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1670.mcz
==================== Summary ====================
Name: Morphic-mt.1670 Author: mt Time: 15 July 2020, 11:25:30.453718 am UUID: 67b727fe-aab7-47cc-a276-070a5ba8b930 Ancestors: Morphic-mt.1669
Complements Kernel-mt.1333
=============== Diff against Morphic-mt.1669 ===============
Item was removed: - ----- Method: HandMorph>>checkForMoreKeyboard (in category 'event handling') ----- - checkForMoreKeyboard - "Quick check for more keyboard activity -- Allows, eg, many characters - to be accumulated into a single replacement during type-in." - - | evtBuf | - self flag: #arNote. "Will not work if we don't examine event queue in Sensor" - evtBuf := Sensor peekKeyboardEvent. - evtBuf ifNil: [^nil]. - ^self generateKeyboardEvent: evtBuf!
Item was changed: ----- Method: MorphicProject>>finalExitActions: (in category 'enter') ----- finalExitActions: enteringProject
world triggerClosingScripts.
"Pause sound players, subject to preference settings" (world hasProperty: #letTheMusicPlay) ifTrue: [world removeProperty: #letTheMusicPlay] ifFalse: [SoundService stop].
world sleep.
(world findA: ProjectNavigationMorph) ifNotNil: [:navigator | navigator retractIfAppropriate].
self clearGlobalState. + EventSensor default flushEvents. - Sensor flushAllButDandDEvents. self world submorphsDo: [:ea | ea removeProperty: #dropShadow].!
Item was changed: ----- Method: PasteUpMorph>>install (in category 'world state') ----- install owner := nil. "since we may have been inside another world previously" ActiveWorld := self. ActiveHand := self hands first. "default" ActiveEvent := nil. submorphs do: [:ss | ss owner isNil ifTrue: [ss privateOwner: self]]. "Transcript that was in outPointers and then got deleted." self viewBox: Display boundingBox. + EventSensor default flushEvents. - Sensor flushAllButDandDEvents. worldState handsDo: [:h | h initForEvents]. self installFlaps. self borderWidth: 0. "default" (Preferences showSecurityStatus and: [SecurityManager default isInRestrictedMode]) ifTrue: [self borderWidth: 2; borderColor: Color red]. self presenter allExtantPlayers do: [:player | player prepareToBeRunning]. SystemWindow noteTopWindowIn: self.!