[Pkg] The Trunk: Morphic-cmm.1409.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 4 19:30:50 UTC 2018


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 Packages mailing list