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.!