<body><div id="__MailbirdStyleContent" style="font-size: 12pt;font-family: calibri;color: #000000">
Guys! Deprecate such changes! Provide a fallback. Quite simple in this case. :-(<div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class="history_container" type="cite" style="border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 04.04.2018 21:31:23 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p>Chris Muller uploaded a new version of Morphic to project The Trunk:<br>http://source.squeak.org/trunk/Morphic-cmm.1409.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-cmm.1409<br>Author: cmm<br>Time: 4 April 2018, 2:30:02.510117 pm<br>UUID: 6d625668-7bfe-4baa-8c15-ea49525a34dd<br>Ancestors: Morphic-cmm.1408<br><br>Slightly better fix (thanks Tim) which uses the World passed-in to the sender rather than the global World.<br><br>=============== Diff against Morphic-cmm.1408 ===============<br><br>Item was removed:<br>- ----- Method: SystemWindow>>anyOpenWindowLikeMe (in category 'open/close') -----<br>- anyOpenWindowLikeMe<br>- <br>- self class reuseWindows ifFalse: [ ^Array empty ].<br>- ^ SystemWindow<br>- windowsIn: World <br>- satisfying: <br>- [ : each |<br>- each model class = self model class<br>- and: [ (each model respondsTo: #representsSameBrowseeAs:) <br>- and: [ each model representsSameBrowseeAs: self model ] ] ]<br>- !<br><br>Item was added:<br>+ ----- Method: SystemWindow>>anyOpenWindowLikeMeIn: (in category 'open/close') -----<br>+ anyOpenWindowLikeMeIn: aPasteUpMorph<br>+ self class reuseWindows ifFalse: [ ^Array empty ].<br>+ ^ SystemWindow<br>+ windowsIn: aPasteUpMorph <br>+ satisfying: <br>+ [ : each |<br>+ each model class = self model class<br>+ and: [ (each model respondsTo: #representsSameBrowseeAs:) <br>+ and: [ each model representsSameBrowseeAs: self model ] ] ]<br>+ !<br><br>Item was changed:<br> ----- Method: SystemWindow>>openInWorld: (in category 'open/close') -----<br> openInWorld: aWorld<br> "This msg and its callees result in the window being activeOnlyOnTop"<br>+ ^ (self anyOpenWindowLikeMeIn: aWorld)<br>- ^ self anyOpenWindowLikeMe<br> ifEmpty: <br> [ self <br> bounds: (RealEstateAgent initialFrameFor: self world: aWorld) ;<br> openAsIsIn: aWorld ]<br> ifNotEmptyDo:<br> [ : windows | <br> windows anyOne<br> expand ;<br> beKeyWindow ; <br> postAcceptBrowseFor: self ].!<br><br>Item was changed:<br> ----- Method: SystemWindow>>openInWorld:extent: (in category 'open/close') -----<br> openInWorld: aWorld extent: extent<br> "This msg and its callees result in the window being activeOnlyOnTop"<br>+ ^ (self anyOpenWindowLikeMeIn: aWorld)<br>- ^ self anyOpenWindowLikeMe<br> ifEmpty:<br> [ self <br> position: (RealEstateAgent initialFrameFor: self initialExtent: extent world: aWorld) topLeft ;<br> extent: extent.<br> self openAsIsIn: aWorld ]<br> ifNotEmptyDo:<br> [ : windows | <br> windows anyOne<br> expand ;<br> beKeyWindow ; <br> postAcceptBrowseFor: self ].!<br><br><br>
</blockquote>
</div></body>