The Trunk: Morphic-mt.1665.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1665.mcz

==================== Summary ====================

Name: Morphic-mt.1665
Author: mt
Time: 7 June 2020, 1:23:14.519004 pm
UUID: fad2adfa-62de-3144-b5a7-710c8760f47c
Ancestors: Morphic-cbc.1664

Complements System-mt.1163.

=============== Diff against Morphic-cbc.1664 ===============

Item was changed:
  ----- Method: PasteUpMorph>>installFlaps (in category 'world state') -----
  installFlaps
  "Get flaps installed within the bounds of the receiver"
 
  | localFlapTabs |
  Project current assureFlapIntegrity.
  self addGlobalFlaps.
  localFlapTabs := self localFlapTabs.
  localFlapTabs do: [:each | each visible: false].
 
  Preferences eToyFriendly ifTrue: [
  ProgressInitiationException display: 'Building Viewers...' translated
  during: [:bar |
  localFlapTabs keysAndValuesDo: [:i :each |
  each adaptToWorld.
  each visible: true.
  each unhibernate.
+ self changed.
- self displayWorld.
  bar value: i / self localFlapTabs size]].
  ] ifFalse: [
  localFlapTabs keysAndValuesDo: [:i :each |
  each adaptToWorld.
  each visible: true.
+ self changed]].
- self displayWorld]].
 
  self assureFlapTabsFitOnScreen.
  self bringTopmostsToFront!

Item was changed:
  ----- Method: PasteUpMorph>>restoreMorphicDisplay (in category 'world state') -----
  restoreMorphicDisplay
 
  self removeProperty: #shouldDisplayWorld.
 
  ThumbnailMorph recursionReset.
 
  self
  extent: Display extent;
  viewBox: Display boundingBox;
  handsDo: [:h | h visible: true; showTemporaryCursor: nil];
+ " restoreFlapsDisplay;
- restoreFlapsDisplay;
  restoreMainDockingBarDisplay;
+ " fullRepaintNeeded.
- fullRepaintNeeded.
-
- WorldState
- addDeferredUIMessage: [Cursor normal show].
  !

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: 'Smalltalk removeFromStartUpList: PasteUpMorph.
+ Smalltalk removeFromShutDownList: PasteUpMorph.'!
- (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!