[squeak-dev] The Inbox: Morphic-kfr.1999.mcz

commits at source.squeak.org commits at source.squeak.org
Sat May 21 09:13:39 UTC 2022

A new version of Morphic was added to project The Inbox:

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

Name: Morphic-kfr.1999
Author: kfr
Time: 21 May 2022, 11:13:32.096027 am
UUID: 0ddb652d-608a-b648-bf94-63cb89c259c5
Ancestors: Morphic-kfr.1998

Offset of temporary cursor was off

=============== Diff against Morphic-kfr.1998 ===============

Item was changed:
  ----- Method: ColorPickerMorph>>pickUpColorFor: (in category 'menu') -----
  pickUpColorFor: aMorph
  	"Show the eyedropper cursor, and modally track the mouse through a mouse-down and mouse-up cycle"
        | aHand localPt c |
  	aHand := aMorph ifNil: [self activeHand] ifNotNil: [aMorph activeHand].
  	aHand ifNil: [aHand := self currentHand].
  	self addToWorld: aHand world near: (aMorph ifNil: [aHand world]) fullBounds.
  	self owner ifNil: [^ self].
  	aHand showTemporaryCursor: (ScriptingSystem formAtKey: #Eyedropper) 
+ 			hotSpotOffset: 2 at 14.    "<<<< the form was changed a bit??"
- 			hotSpotOffset: 6 negated @ 4 negated.    "<<<< the form was changed a bit??"
  	self updateContinuously: false.
  	[Sensor anyButtonPressed]
  			 [self trackColorUnderMouse].
  	self deleteAllBalloons.
  	localPt := Sensor cursorPoint - self topLeft.
  	self inhibitDragging ifFalse: [
  		(DragBox containsPoint: localPt) ifTrue:
  			["Click or drag the drag-dot means to anchor as a modeless picker"
  			^ self anchorAndRunModeless: aHand].
  	(clickedTranslucency := TransparentBox containsPoint: localPt)
  		ifTrue: [selectedColor := originalColor].
  	self updateContinuously: true.
  	[Sensor anyButtonPressed]
  			 [self updateTargetColorWith: self indicateColorUnderMouse].
  	c := self getColorFromKedamaWorldIfPossible: Sensor cursorPoint.
  	c ifNotNil: [selectedColor := c].
  	aHand newMouseFocus: nil;
  		showTemporaryCursor: nil;
  	self delete.

More information about the Squeak-dev mailing list