The Trunk: EToys-mt.134.mcz

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