Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.454.mcz
==================== Summary ====================
Name: Graphics-mt.454 Author: mt Time: 30 December 2021, 2:05:59.064703 pm UUID: 0954964b-b709-fe49-94f4-33b0d7e2e94f Ancestors: Graphics-mt.453
Fixes automatic scaling of hardware cursor. #useBiggerCursors is still 2x larger.
Adds missing #isSynthetic to be compatible with TTCFont.
=============== Diff against Graphics-mt.453 ===============
Item was added: + ----- Method: AbstractFont>>isSynthetic (in category 'testing') ----- + isSynthetic + ^ false!
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. + self useBiggerCursors + ifTrue: [platformCursor := platformCursor enlargedBy: 2]. + platformCursor beCursor] - ifTrue: [CurrentCursor := aCursor. - self useBiggerCursors - ifTrue: [[^ aCursor asBigCursor beCursor] - on: Error do: ["fall through"]]. - aCursor beCursor] ifFalse: [self error: 'The new cursor must be an instance of class Cursor']!
Item was changed: ----- Method: Cursor class>>useBiggerCursors: (in category 'preferences') ----- useBiggerCursors: aBool
+ UseBiggerCursors := aBool. + Cursor currentCursor: Cursor currentCursor.! - UseBiggerCursors := aBool!
packages@lists.squeakfoundation.org