[squeak-dev] The Trunk: Morphic-mt.1665.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jun 7 11:23:19 UTC 2020


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



More information about the Squeak-dev mailing list