Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1737.mcz
==================== Summary ====================
Name: Morphic-eem.1737 Author: eem Time: 4 March 2021, 4:03:54.375892 pm UUID: 789562ea-966c-8f4e-9941-5576a9653b4d Ancestors: Morphic-eem.1736
Have HandMorph>>showEvent: avoid scribbling over the DockingBar.
=============== Diff against Morphic-eem.1736 ===============
Item was changed: ----- Method: HandMorph>>generateMouseEvent: (in category 'private events') ----- generateMouseEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer"
| position buttons modifiers type trail stamp oldButtons evtChanged | + evtBuf first = lastEventBuffer first ifTrue: + ["Workaround for Mac VM bug, *always* generating 3 events on clicks" + evtChanged := false. + 3 to: evtBuf size do: + [:i | (lastEventBuffer at: i) = (evtBuf at: i) ifFalse: [evtChanged := true]]. + evtChanged ifFalse: [^nil]]. - evtBuf first = lastEventBuffer first - ifTrue: - ["Workaround for Mac VM bug, *always* generating 3 events on clicks" - - evtChanged := false. - 3 to: evtBuf size - do: [:i | (lastEventBuffer at: i) = (evtBuf at: i) ifFalse: [evtChanged := true]]. - evtChanged ifFalse: [^nil]]. stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Sensor eventTimeNow]. position := evtBuf third @ evtBuf fourth. buttons := evtBuf fifth. modifiers := evtBuf sixth.
type := buttons = 0 ifTrue: [lastEventBuffer fifth = 0 ifTrue: [#mouseMove] "this time no button and previously no button .. just mouse move" ifFalse: [#mouseUp]] "this time no button but previously some button ... therefore button was released" ifFalse: [buttons = lastEventBuffer fifth ifTrue: [#mouseMove] "button states are the same .. now and past .. therfore a mouse movement" ifFalse: "button states are different .. button was pressed or released" [buttons > lastEventBuffer fifth ifTrue: [#mouseDown] ifFalse:[#mouseUp]]]. buttons := buttons bitOr: (modifiers bitShift: MouseEvent numButtons). oldButtons := lastEventBuffer fifth bitOr: (lastEventBuffer sixth bitShift: MouseEvent numButtons). lastEventBuffer := evtBuf. type == #mouseMove ifTrue: [trail := self mouseTrailFrom: evtBuf. ^MouseMoveEvent new setType: type startPoint: self position endPoint: trail last trail: trail buttons: buttons hand: self stamp: stamp]. ^MouseButtonEvent new setType: type position: position which: (oldButtons bitXor: buttons) buttons: buttons nClicks: (evtBuf seventh ifNil: [0]) hand: self stamp: stamp!
Item was changed: ----- Method: HandMorph>>showEvent: (in category 'events-debugging') ----- showEvent: anEvent "Show details about the event on the display form. Useful for debugging." "ShowEvents := true" "ShowEvents := false" + | message borderWidth heightOffset | - | message borderWidth | ShowEvents == true ifFalse: [^ self]. borderWidth := 5. message := String streamContents: [:strm | strm nextPutAll: '[HandMorph >> #showEvent:]'; cr; nextPutAll: 'event'; tab; tab; tab; tab; nextPutAll: anEvent printString; cr; nextPutAll: 'keyboard focus'; tab; tab; nextPutAll: self keyboardFocus printString; cr; nextPutAll: 'mouse focus'; tab; tab; nextPutAll: self mouseFocus printString]. message := message asDisplayText foregroundColor: Color black backgroundColor: Color white. + heightOffset := (owner submorphs detect: [:m| m isDockingBar] ifNone: []) + ifNil: [0] + ifNotNil: [:m| m height]. - "Offset to support multiple hands debugging." + Display fill: (0 @ heightOffset extent: message form extent + (borderWidth asPoint * 2)) rule: Form over fillColor: Color white. + message displayOn: Display at: (borderWidth @ heightOffset) + (0 @ ((owner hands indexOf: self) - 1 * message form height)).! - Display fill: (0 @ 0 extent: message form extent + (borderWidth asPoint * 2)) rule: Form over fillColor: Color white. - message displayOn: Display at: borderWidth asPoint + (0 @ ((owner hands indexOf: self) - 1 * message form height)).!
Item was added: + ----- Method: MouseButtonEvent>>moveRightButtonChanged (in category 'accessing') ----- + moveRightButtonChanged + "Answer if the move right mouse button has changed. This is the move left button on gaming mice." + + ^ whichButton anyMask: 16!