[squeak-dev] The Trunk: Graphics-mt.454.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 30 13:06:06 UTC 2021
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!
More information about the Squeak-dev
mailing list
|