[squeak-dev] The Trunk: Morphic-cmm.1409.mcz
David T. Lewis
lewis at mail.msen.com
Wed Apr 4 23:25:25 UTC 2018
Brilliant, thanks to both of you! One less "what is the world" problem to worry about.
Dave
On Wed, Apr 04, 2018 at 07:30:50PM +0000, commits at source.squeak.org wrote:
> 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 ].!
>
>
More information about the Squeak-dev
mailing list
|