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