[Pkg] The Trunk: Morphic-eem.629.mcz

[commits at source.squeak.org]

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!