The Trunk: Morphic-eem.629.mcz

Eliot Miranda uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-eem.629.mcz

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

Name: Morphic-eem.629
Author: eem
Time: 17 December 2012, 11:22:36.075 am
UUID: e4f2b177-fffc-4942-a447-9e96de9afa6f
Ancestors: Morphic-cmm.628

Fix findA... code to actually bring found windows to the front.

=============== Diff against Morphic-cmm.628 ===============

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!