Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1409.mcz
==================== Summary ====================
Name: Morphic-cmm.1409 Author: cmm Time: 4 April 2018, 2:30:02.510117 pm UUID: 6d625668-7bfe-4baa-8c15-ea49525a34dd Ancestors: Morphic-cmm.1408
Slightly better fix (thanks Tim) which uses the World passed-in to the sender rather than the global World.
=============== Diff against Morphic-cmm.1408 ===============
Item was removed: - ----- Method: SystemWindow>>anyOpenWindowLikeMe (in category 'open/close') ----- - anyOpenWindowLikeMe - - self class reuseWindows ifFalse: [ ^Array empty ]. - ^ SystemWindow - windowsIn: World - satisfying: - [ : each | - each model class = self model class - and: [ (each model respondsTo: #representsSameBrowseeAs:) - and: [ each model representsSameBrowseeAs: self model ] ] ] - !
Item was added: + ----- Method: SystemWindow>>anyOpenWindowLikeMeIn: (in category 'open/close') ----- + anyOpenWindowLikeMeIn: aPasteUpMorph + self class reuseWindows ifFalse: [ ^Array empty ]. + ^ SystemWindow + windowsIn: aPasteUpMorph + satisfying: + [ : each | + each model class = self model class + and: [ (each model respondsTo: #representsSameBrowseeAs:) + and: [ each model representsSameBrowseeAs: self model ] ] ] + !
Item was changed: ----- Method: SystemWindow>>openInWorld: (in category 'open/close') ----- openInWorld: aWorld "This msg and its callees result in the window being activeOnlyOnTop" + ^ (self anyOpenWindowLikeMeIn: aWorld) - ^ self anyOpenWindowLikeMe ifEmpty: [ self bounds: (RealEstateAgent initialFrameFor: self world: aWorld) ; openAsIsIn: aWorld ] ifNotEmptyDo: [ : windows | windows anyOne expand ; beKeyWindow ; postAcceptBrowseFor: self ].!
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 anyOpenWindowLikeMeIn: aWorld) - ^ self anyOpenWindowLikeMe ifEmpty: [ self position: (RealEstateAgent initialFrameFor: self initialExtent: extent world: aWorld) topLeft ; extent: extent. self openAsIsIn: aWorld ] ifNotEmptyDo: [ : windows | windows anyOne expand ; beKeyWindow ; postAcceptBrowseFor: self ].!
packages@lists.squeakfoundation.org