The Trunk: Morphic-fbs.631.mcz

Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.631.mcz

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

Name: Morphic-fbs.631
Author: fbs
Time: 19 December 2012, 4:14:25.882 pm
UUID: ab1b18c8-a638-43d3-aa38-f5b4e6062e35
Ancestors: Morphic-fbs.630, Morphic-eem.629

Remerge eem-629.

=============== Diff against Morphic-fbs.630 ===============

Item was changed:
  ----- Method: PasteUpMorph>>findAWindowSatisfying:orMakeOneUsing: (in category 'world menu') -----
  findAWindowSatisfying: qualifyingBlock orMakeOneUsing: makeBlock
  "Locate a window satisfying a block, open it, and bring it to the front.  Create one if necessary, by using the makeBlock"
 
+ submorphs do:
+ [:aMorph | | aWindow |
+ (((aWindow := aMorph renderedMorph) isSystemWindow)
+ and: [qualifyingBlock value: aWindow]) ifTrue:
+ [aWindow isCollapsed ifTrue: [aWindow expand].
+ self addMorphFront: aWindow.
+ aWindow activateAndForceLabelToShow.
+ ^self]].
-
- submorphs do:
- [:aMorph | | aWindow |
- (((aWindow := aMorph renderedMorph) isSystemWindow)
- and: [qualifyingBlock value: aWindow])
- ifTrue:
- [aWindow isCollapsed ifTrue: [aWindow expand].
- aWindow activateAndForceLabelToShow.
- ^self]].
  "None found, so create one"
  makeBlock value!