Guys! Deprecate such changes! Provide a fallback. Quite simple in this case. :-(

Best,
Marcel
Am 04.04.2018 21:31:23 schrieb commits at source.squeak.org <commits at source.squeak.org>:
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 ].!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20180405/48959ec0/attachment.html>