[Pkg] The Trunk: Morphic-mt.815.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-mt.815
Author: mt
Time: 3 April 2015, 9:58:00.396 am
UUID: 61ffa1cf-734e-2a40-a419-6cbd4e4bfefe
Ancestors: Morphic-mt.814

Fixed open-in-world behavior for system windows to return the opened window if the reuse-windows preference changed that.

=============== Diff against Morphic-mt.814 ===============

Item was changed:
  ----- Method: SystemWindow>>openInWorld: (in category 'open/close') -----
  openInWorld: aWorld
  	"This msg and its callees result in the window being activeOnlyOnTop"
+ 	[^ self anyOpenWindowLikeMe
- 	self anyOpenWindowLikeMe
  		ifEmpty: 
  			[ self 
  				bounds: (RealEstateAgent initialFrameFor: self world: aWorld) ;
  				openAsIsIn: aWorld ]
  		ifNotEmptyDo:
  			[ : windows | 
  			windows anyOne
  				expand ;
  				activate ; 
  				postAcceptBrowseFor: self ].
+ 	] ensure: [ self activeHand releaseAllFoci ]!
- 	self activeHand releaseAllFoci!

Item was changed:
  ----- Method: SystemWindow>>openInWorld:extent: (in category 'open/close') -----
  openInWorld: aWorld extent: extent
  	"This msg and its callees result in the window being activeOnlyOnTop"
+ 	[^ self anyOpenWindowLikeMe
- 	^ self anyOpenWindowLikeMe
  		ifEmpty:
  			[ self 
  				position: (RealEstateAgent initialFrameFor: self initialExtent: extent world: aWorld) topLeft ;
  				extent: extent.
  			self openAsIsIn: aWorld ]
  		ifNotEmptyDo:
  			[ : windows | 
  			windows anyOne
  				expand ;
  				activate ; 
+ 				postAcceptBrowseFor: self ].
+ 	] ensure: [ self activeHand releaseAllFoci ]!
- 				postAcceptBrowseFor: self ]!

Item was changed:
  ----- Method: SystemWindow>>openInWorldExtent: (in category 'open/close') -----
  openInWorldExtent: extent
  	"This msg and its callees result in the window being activeOnlyOnTop"
+ 	^ self openInWorld: self currentWorld extent: extent!
- 	self openInWorld: self currentWorld extent: extent!