The Trunk: Morphic-mt.815.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.815.mcz

commits-2
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.815.mcz

==================== Summary ====================

Name: Morphic-mt.815
Author: mt
Time: 3 April 2015, 9:58:00.396 am
UUID: 61ffa1cf-734e-2a40-a419-6cbd4e4bfefe
Ancestors: Morphic-mt.814

Fixed open-in-world behavior for system windows to return the opened window if the reuse-windows preference changed that.

=============== Diff against Morphic-mt.814 ===============

Item was changed:
  ----- Method: SystemWindow>>openInWorld: (in category 'open/close') -----
  openInWorld: aWorld
  "This msg and its callees result in the window being activeOnlyOnTop"
+ [^ self anyOpenWindowLikeMe
- self anyOpenWindowLikeMe
  ifEmpty:
  [ self
  bounds: (RealEstateAgent initialFrameFor: self world: aWorld) ;
  openAsIsIn: aWorld ]
  ifNotEmptyDo:
  [ : windows |
  windows anyOne
  expand ;
  activate ;
  postAcceptBrowseFor: self ].
+ ] ensure: [ self activeHand releaseAllFoci ]!
- self activeHand releaseAllFoci!

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 anyOpenWindowLikeMe
- ^ self anyOpenWindowLikeMe
  ifEmpty:
  [ self
  position: (RealEstateAgent initialFrameFor: self initialExtent: extent world: aWorld) topLeft ;
  extent: extent.
  self openAsIsIn: aWorld ]
  ifNotEmptyDo:
  [ : windows |
  windows anyOne
  expand ;
  activate ;
+ postAcceptBrowseFor: self ].
+ ] ensure: [ self activeHand releaseAllFoci ]!
- postAcceptBrowseFor: self ]!

Item was changed:
  ----- Method: SystemWindow>>openInWorldExtent: (in category 'open/close') -----
  openInWorldExtent: extent
  "This msg and its callees result in the window being activeOnlyOnTop"
+ ^ self openInWorld: self currentWorld extent: extent!
- self openInWorld: self currentWorld extent: extent!