[squeak-dev] The Trunk: Graphics-mt.503.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 21 12:36:36 UTC 2022


Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mt.503.mcz

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

Name: Graphics-mt.503
Author: mt
Time: 21 March 2022, 1:36:28.202756 pm
UUID: cd3b5099-b03c-da45-8c5f-6490b7a36e39
Ancestors: Graphics-mt.502

Do not shrink mouse cursor below 100%

=============== Diff against Graphics-mt.502 ===============

Item was changed:
  ----- Method: Cursor class>>currentCursor: (in category 'current cursor') -----
  currentCursor: aCursor 
  	"Make the instance of cursor, aCursor, be the current cursor. Display it. 
  	Create an error if the argument is not a Cursor."
  
  	(aCursor isKindOf: self)
  		ifTrue: [ | platformCursor |
  			CurrentCursor := aCursor. "unscaled"
+ 			platformCursor := aCursor enlargedBy: (RealEstateAgent scaleFactor max: 1).
- 			platformCursor := aCursor enlargedBy: RealEstateAgent scaleFactor.
  			self useBiggerCursors
  				ifTrue: [platformCursor := platformCursor enlargedBy: 2].
  			platformCursor beCursor]
  		ifFalse: [self error: 'The new cursor must be an instance of class Cursor']!



More information about the Squeak-dev mailing list