[squeak-dev] The Trunk: Morphic-mt.1971.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Apr 25 14:13:07 UTC 2022
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1971.mcz
==================== Summary ====================
Name: Morphic-mt.1971
Author: mt
Time: 25 April 2022, 4:13:00.406696 pm
UUID: 9a745727-6a8b-8945-9e84-e36f6806f363
Ancestors: Morphic-mt.1970
Fixes scale of cursor while dragging things in Morphic.
=============== Diff against Morphic-mt.1970 ===============
Item was added:
+ ----- Method: HandMorph class>>applyUserInterfaceTheme (in category 'preferences') -----
+ applyUserInterfaceTheme
+
+ NormalCursor := CursorWithMask normal asCursorForm scaleIconToDisplay.!
Item was added:
+ ----- Method: HandMorph class>>themeProperties (in category 'preferences') -----
+ themeProperties
+
+ ^ super themeProperties, {
+ { #cursor. 'Cursor'. 'Temporary cursor for drag-drop interaction using submorphs.' }
+ }!
Item was added:
+ ----- Method: HandMorph>>applyUserInterfaceTheme (in category 'updating') -----
+ applyUserInterfaceTheme
+
+ self showTemporaryCursor: nil.!
Item was changed:
----- Method: HandMorph>>showTemporaryCursor:hotSpotOffset: (in category 'cursor') -----
showTemporaryCursor: cursorOrNil hotSpotOffset: hotSpotOffset
"Set the temporary cursor to the given Form.
If the argument is nil, revert to the normal hardware cursor."
self changed.
temporaryCursorOffset
ifNotNil: [bounds := bounds translateBy: temporaryCursorOffset negated].
cursorOrNil isNil
ifTrue: [temporaryCursor := temporaryCursorOffset := hardwareCursor := nil]
ifFalse:
+ [temporaryCursor := cursorOrNil asCursorForm scaleIconToDisplay.
- [temporaryCursor := cursorOrNil asCursorForm.
temporaryCursorOffset := temporaryCursor offset - hotSpotOffset.
(cursorOrNil isKindOf: Cursor) ifTrue: [hardwareCursor := cursorOrNil]].
bounds := self cursorBounds.
self
userInitials: userInitials andPicture: self userPicture;
layoutChanged;
changed;
showHardwareCursor: (temporaryCursor isNil).!
More information about the Squeak-dev
mailing list
|