[squeak-dev] The Trunk: EToys-mt.134.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 19 10:22:28 UTC 2016


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

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

Name: EToys-mt.134
Author: mt
Time: 19 April 2016, 12:22:02.288049 pm
UUID: e2ced620-3a65-1f48-a57d-65709f3e2656
Ancestors: EToys-mt.133

Improves usage of #refreshWorld to avoid direct calls to #displayWorldSafely, which requires a check whether the morph in in a world or not.

=============== Diff against EToys-mt.133 ===============

Item was changed:
  ----- Method: EToyCommunicatorMorph>>resetIndicator: (in category 'as yet unclassified') -----
  resetIndicator: aSymbol
  
  	| indicator firstColor |
  	indicator := fields at: aSymbol ifAbsent: [^self].
  	firstColor := indicator 
  		valueOfProperty: #firstColor
  		ifAbsent: [^self].
  	indicator color: firstColor.
+ 	self refreshWorld.
- 	self world displayWorldSafely.
  !

Item was changed:
  ----- Method: EToyCommunicatorMorph>>trulyFlashIndicator: (in category 'as yet unclassified') -----
  trulyFlashIndicator: aSymbol
  
  	| indicator firstColor |
  
  	indicator := fields at: aSymbol ifAbsent: [^self].
  	firstColor := indicator 
  		valueOfProperty: #firstColor
  		ifAbsent: [
  			indicator setProperty: #firstColor toValue: indicator color.
  			indicator color
  		].
  	indicator color: (indicator color = firstColor ifTrue: [Color white] ifFalse: [firstColor]).
+ 	self refreshWorld.
- 	self world displayWorldSafely.
  !

Item was changed:
  ----- Method: EToyProjectHistoryMorph>>closeMyFlapIfAny (in category 'as yet unclassified') -----
  closeMyFlapIfAny
  
  	| myFlap allTabs myTab myWorld |
  
  	myWorld := self world.
  	myFlap := self nearestOwnerThat: [ :each | each isFlap].
  	myFlap ifNil: [^self].
  	allTabs := myWorld submorphs select: [ :each | each isFlapTab].
  	myTab := allTabs detect: [ :each | each referent == myFlap] ifNone: [^self].
  	myTab hideFlap.
+ 	self refreshWorld.
- 	myWorld displayWorldSafely.
  	
  !



More information about the Squeak-dev mailing list