The Trunk: Morphic-mt.1670.mcz

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