[squeak-dev] The Trunk: System-eem.952.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jun 8 17:19:42 UTC 2017

Eliot Miranda uploaded a new version of System to project The Trunk:

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

Name: System-eem.952
Author: eem
Time: 8 June 2017, 10:19:20.182777 am
UUID: 2d764b04-5c3e-4cfc-98c1-d96bc5a92ac7
Ancestors: System-eem.951

Add an "open window at pointer" preference. Harvested from Terf.

=============== Diff against System-eem.951 ===============

Item was changed:
  Object subclass: #RealEstateAgent
  	instanceVariableNames: ''
+ 	classVariableNames: 'PlaceWindowsAtPointer ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins'
- 	classVariableNames: 'ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins'
  	poolDictionaries: ''
  	category: 'System-Support'!
  !RealEstateAgent commentStamp: '<historical>' prior: 0!
  Responsible for real-estate management on the screen, which is to say, controlling where new windows appear, with what sizes, etc.  5/20/96 sw!

Item was added:
+ ----- Method: RealEstateAgent class>>initialFrameAtPointerFor:initialExtent:world: (in category 'framing - private') -----
+ initialFrameAtPointerFor: aView initialExtent: scaledExtent world: aWorld
+ 	^(aWorld cursorPoint - (50 at 10)	"puts use with the mouse ptr just to the right of the menu button"
+ 		extent: scaledExtent)
+ 			translatedAndSquishedToBeWithin: (self maximumUsableAreaInWorld: aWorld)!

Item was changed:
  ----- Method: RealEstateAgent class>>initialFrameFor:initialExtent:world: (in category 'framing') -----
  initialFrameFor: aView initialExtent: initialExtent world: aWorld
  	| scaledExtent |
  	scaledExtent := (initialExtent * self scaleFactor) rounded.
+ 	self placeWindowsAtPointer ifTrue: 
+ 		[^self initialFrameAtPointerFor: aView initialExtent: scaledExtent world: aWorld].
  	^ Preferences reverseWindowStagger
  		ifTrue: [self strictlyStaggeredInitialFrameFor: aView initialExtent: scaledExtent world: aWorld]
  		ifFalse: [self normalInitialFrameFor: aView initialExtent: scaledExtent world: aWorld]!

Item was added:
+ ----- Method: RealEstateAgent class>>placeWindowsAtPointer (in category 'preferences') -----
+ placeWindowsAtPointer
+ 	"Value of the place-windows-at-pointer preference."
+ 	<preference: 'Place Windows At Pointer'
+ 		category: 'windows'
+ 		description: 'When true, place new windows near the mouse pointer'
+ 		type: #Boolean>
+ 	^PlaceWindowsAtPointer ifNil: [false]!

Item was added:
+ ----- Method: RealEstateAgent class>>placeWindowsAtPointer: (in category 'preferences') -----
+ placeWindowsAtPointer: aBool
+ 	"Value of the place-windows-at-pointer preference."
+ 	PlaceWindowsAtPointer := aBool!

More information about the Squeak-dev mailing list