Packages March 2021

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: System-ct.1220.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1220.mcz ==================== Summary ==================== Name: System-ct.1220 Author: ct Time: 2 March 2021, 2:06:08.80617 pm UUID: cf9872fd-fa5d-4bb6-bc1c-8ced48a02a48 Ancestors: System-mt.1219 Adds Jaromir Matas (jar) to the authors list. A late welcome aboard! :-) =============== Diff against System-mt.1219 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors.......'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors......'!

1 0

The Trunk: System-mt.1221.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1221.mcz ==================== Summary ==================== Name: System-mt.1221 Author: mt Time: 5 March 2021, 9:30:06.646653 am UUID: faeeebfe-1564-e743-8e5a-8c26460ca3ad Ancestors: System-mt.1220, System-ct.1220 Merge. > Adds Jaromir Matas (jar) to the authors list. A late welcome aboard! :-) =============== Diff against System-mt.1220 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors.......'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors......'!

1 0

The Trunk: Tools-mt.1030.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1030.mcz ==================== Summary ==================== Name: Tools-mt.1030 Author: mt Time: 5 March 2021, 9:21:18.794204 am UUID: d7b63933-664e-b94e-af03-4b96f029b4e3 Ancestors: Tools-mt.1029 Fixes dragging in message-set tools (excluding MessageTrace, which needs drag to select multiple things). Tweaks label in CodeHolder to look like the labels in senders/implementors and all other message-set tools. =============== Diff against Tools-mt.1029 =============== Item was changed: ----- Method: CodeHolder>>labelString (in category 'initialize-release') ----- labelString + ^ currentCompiledMethod + ifNil: [self defaultBrowserTitle] + ifNotNil: [ + ('{1} {2} \{{3}\} \{{4}\}' format: { + self selectedClassOrMetaClass name. + self selectedMessageName. + self selectedMessageCategoryName. + self selectedSystemCategoryName })]! - | label | - label := self defaultBrowserTitle. - currentCompiledMethod ifNotNil: [ - label := label, (': {1} >> #{2} ({3})' format: { - self selectedClassOrMetaClass name. - self selectedMessageName. - self selectedMessageCategoryName })]. - ^ label! Item was changed: ----- Method: CodeHolder>>selectedMessageCategoryName (in category 'categories') ----- selectedMessageCategoryName "Answer the name of the message category of the message of the currently selected context." + ^ self selectedClassOrMetaClass organization categoryOfElement: self selectedMessageName! - ^ self selectedClass organization categoryOfElement: self selectedMessageName! Item was added: + ----- Method: CodeHolder>>selectedSystemCategoryName (in category 'categories') ----- + selectedSystemCategoryName + + ^ SystemOrganization categoryOfElement: self selectedClass name! Item was changed: ----- Method: MessageSet>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageListFormatted; getIndex: #messageListIndex; setIndex: #messageListIndex:; icon: #messageIconAt:; helpItem: #messageHelpAt:; menu: #messageListMenu:shifted:; keyPress: #messageListKey:from:. + SystemBrowser browseWithDragNDrop ifTrue: [ + listSpec + dragItem: #dragFromMessageList:; + dragType: #dragTypeForMessageListAt:]. + ^ listSpec - SystemBrowser browseWithDragNDrop - ifTrue:[listSpec dragItem: #dragFromMessageList:]. - ^listSpec ! Item was changed: ----- Method: MessageSet>>dragFromMessageList: (in category 'drag and drop') ----- dragFromMessageList: index + + ^ self messageList at: index! - "Drag a method from the browser" - ^self selectedClassOrMetaClass compiledMethodAt: (self messageList at: index) ifAbsent:[nil]! Item was removed: - ----- Method: MessageSet>>dragPassengerFor:inMorph: (in category 'drag and drop') ----- - dragPassengerFor: item inMorph: dragSource - | transferType | - transferType := self dragTransferTypeForMorph: dragSource. - transferType == #messageList - ifTrue: [^self selectedClassOrMetaClass->(item contents findTokens: ' ') second asSymbol]. - transferType == #classList - ifTrue: [^self selectedClass]. - ^nil! Item was added: + ----- Method: MessageSet>>dragTypeForMessageListAt: (in category 'drag and drop') ----- + dragTypeForMessageListAt: index + + ^ #sourceCode!

1 0

The Trunk: Morphic-mt.1739.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1739.mcz ==================== Summary ==================== Name: Morphic-mt.1739 Author: mt Time: 5 March 2021, 9:19:14.941204 am UUID: 59a78e19-2616-5c4a-84e5-27a9e63d9c2e Ancestors: Morphic-eem.1738 Support source-code drops via method references such as from senders/implementors/message tools. =============== Diff against Morphic-eem.1738 =============== Item was changed: ----- Method: PasteUpMorph>>dropSourceCode:event: (in category 'event handling') ----- dropSourceCode: anObject event: evt + (anObject isMethodReference and: [anObject isValid]) + ifTrue: [^ self dropSourceCode: anObject compiledMethod event: evt]. + anObject isCompiledMethod ifTrue: [ | tool window | tool := CodeHolder new setClass: anObject methodClass selector: anObject selector. window := ToolBuilder open: tool. window center: evt position. window bounds: (window bounds translatedToBeWithin: self bounds)]. + - anObject isString ifTrue: [anObject edit].!

1 0

The Trunk: Morphic-eem.1738.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1738.mcz ==================== Summary ==================== Name: Morphic-eem.1738 Author: eem Time: 4 March 2021, 6:46:15.090193 pm UUID: a8d1af56-a7d2-c046-94fd-e0cc4184f8f1 Ancestors: Morphic-eem.1737 Fix terrible regression in Morphic-eem.1737. I do apologize!! =============== Diff against Morphic-eem.1737 =============== Item was changed: ----- Method: UserInputEvent>>commandKeyPressed (in category 'modifier state') ----- commandKeyPressed "Answer true if the command key on the keyboard was being held down when this event occurred." + ^buttons anyMask: (1 bitShift: MouseEvent numButtons + 3)! - ^buttons anyMask: MouseEvent numButtons + 3!

1 0

The Trunk: Kernel-eem.1379.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1379.mcz ==================== Summary ==================== Name: Kernel-eem.1379 Author: eem Time: 4 March 2021, 6:44:30.30655 pm UUID: f2d03504-03c9-e747-933d-f16f82d99091 Ancestors: Kernel-eem.1378 Fix terrible regression introduced in Kernel-eem.1378. I do apologize. =============== Diff against Kernel-eem.1378 =============== Item was changed: ----- Method: EventSensor>>commandKeyPressed (in category 'modifier keys') ----- commandKeyPressed "Answer whether the command key on the keyboard is being held down." + ^ self peekButtons anyMask: (1 bitShift: MouseEvent numButtons + 3)! - ^ self peekButtons anyMask: MouseEvent numButtons + 3!

1 0

The Trunk: Morphic-eem.1737.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

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!

1 0

The Trunk: Kernel-eem.1378.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1378.mcz ==================== Summary ==================== Name: Kernel-eem.1378 Author: eem Time: 4 March 2021, 3:03:26.648613 pm UUID: 670311c0-11d4-4449-8c70-61d25280506f Ancestors: Kernel-nice.1377 Use the class side methods of MouseEvent to compute the (incredibly annoying) conflation of mouse buttons and modifier keys in events. This is a necessary first step in increasing the number of mouse buttons to support modern gaming mice. =============== Diff against Kernel-nice.1377 =============== Item was changed: ----- Method: EventSensor>>commandKeyPressed (in category 'modifier keys') ----- commandKeyPressed "Answer whether the command key on the keyboard is being held down." + ^ self peekButtons anyMask: MouseEvent numButtons + 3! - ^ self peekButtons anyMask: 64! Item was changed: ----- Method: EventSensor>>controlKeyPressed (in category 'modifier keys') ----- controlKeyPressed "Answer whether the control key on the keyboard is being held down." + ^self peekButtons anyMask: (1 bitShift: MouseEvent numButtons + 1)! - ^ self peekButtons anyMask: 16! Item was changed: ----- Method: EventSensor>>processKeyboardEvent: (in category 'private-I/O') ----- processKeyboardEvent: evt "process a keyboard event, updating EventSensor state" - | charCode pressCode | "Never update keyboardBuffer if we have an eventQueue active" + mouseButtons := (mouseButtons bitAnd: MouseEvent anyButton) bitOr: ((evt at: 5) bitShift: MouseEvent numButtons). - mouseButtons := (mouseButtons bitAnd: 7) bitOr: ((evt at: 5) bitShift: 3). + (evt at: 3) ifNotNil: "extra characters not handled in MVC" + [:charCode| | pressCode | + (pressCode := evt at: 4) = EventKeyChar ifTrue: "key down/up not handled in MVC" + ["mix in modifiers" + keyboardBuffer nextPut: (charCode bitOr: ((evt at: 5) bitShift: 8))]]! - charCode := evt at: 3. - charCode = nil ifTrue:[^self]. "extra characters not handled in MVC" - pressCode := evt at: 4. - pressCode = EventKeyChar ifFalse:[^self]. "key down/up not handled in MVC" - "mix in modifiers" - charCode := charCode bitOr: ((evt at: 5) bitShift: 8). - keyboardBuffer nextPut: charCode.! Item was changed: ----- Method: EventSensor>>processMouseEvent: (in category 'private-I/O') ----- processMouseEvent: evt "process a mouse event, updating EventSensor state" | modifiers buttons mapped | mousePosition := (evt at: 3) @ (evt at: 4). buttons := evt at: 5. modifiers := evt at: 6. mapped := self mapButtons: buttons modifiers: modifiers. + mouseButtons := mapped bitOr: (modifiers bitShift: MouseEvent numButtons)! - mouseButtons := mapped bitOr: (modifiers bitShift: 3).! Item was changed: ----- Method: EventSensor>>processMouseWheelEvent: (in category 'private-I/O') ----- processMouseWheelEvent: evt "process a mouse wheel event, updating EventSensor state" | modifiers buttons mapped | mouseWheelDelta := mouseWheelDelta + ((evt at: 3) @ (evt at: 4)). buttons := evt at: 5. modifiers := evt at: 6. mapped := self mapButtons: buttons modifiers: modifiers. + mouseButtons := mapped bitOr: (modifiers bitShift: MouseEvent numButtons)! - mouseButtons := mapped bitOr: (modifiers bitShift: 3).! Item was changed: ----- Method: EventSensor>>shiftPressed (in category 'modifier keys') ----- shiftPressed "Answer whether the shift key on the keyboard is being held down." + ^ self peekButtons anyMask: (1 bitShift: MouseEvent numButtons)! - ^ self peekButtons anyMask: 8 - !

1 0

The Trunk: Morphic-eem.1736.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1736.mcz ==================== Summary ==================== Name: Morphic-eem.1736 Author: eem Time: 4 March 2021, 2:52:33.343618 pm UUID: b52e696e-9ad9-f840-b828-4bd8671b59c1 Ancestors: Morphic-eem.1735 More use of MouseEvent class side mouse button constants to prepare for more mouse buttons on gaming mice. =============== Diff against Morphic-eem.1735 =============== Item was changed: ----- Method: UserInputEvent>>commandKeyPressed (in category 'modifier state') ----- commandKeyPressed "Answer true if the command key on the keyboard was being held down when this event occurred." + ^buttons anyMask: MouseEvent numButtons + 3! - ^ buttons anyMask: 64! Item was changed: ----- Method: UserInputEvent>>controlKeyPressed (in category 'modifier state') ----- controlKeyPressed + "Answer if the control key on the keyboard was being held down when this event occurred." - "Answer true if the control key on the keyboard was being held down when this event occurred." + ^buttons anyMask: (1 bitShift: MouseEvent numButtons + 1)! - ^ buttons anyMask: 16! Item was changed: ----- Method: UserInputEvent>>shiftPressed (in category 'modifier state') ----- shiftPressed "Answer true if the shift key on the keyboard was being held down when this event occurred." + ^buttons anyMask: (1 bitShift: MouseEvent numButtons) - ^ buttons anyMask: 8 !

1 0

The Trunk: Morphic-eem.1735.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1735.mcz ==================== Summary ==================== Name: Morphic-eem.1735 Author: eem Time: 4 March 2021, 1:13:03.650992 pm UUID: 7ba0bde5-351e-b94c-a4b5-a4846f3f907c Ancestors: Morphic-eem.1734 Use the constants on the class side of MouseEvent (adding numButtons to them) when creating the button field that (incredibly annoyingly) combines mouse buttons and modifier keys. This is a necessary first step to increasing the nu,ber of buttons to include the moveLeft and moveRight buttons on modern gaming mice. =============== Diff against Morphic-eem.1734 =============== Item was changed: ----- Method: HandMorph>>generateDropFilesEvent: (in category 'private events') ----- generateDropFilesEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer." | position buttons modifiers stamp numFiles dragType | stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Time eventMillisecondClock]. dragType := evtBuf third. position := evtBuf fourth @ evtBuf fifth. buttons := MouseEvent redButton. "hacked because necessary for correct mouseMoveDragging handling" modifiers := evtBuf sixth. + buttons := buttons bitOr: (modifiers bitShift: MouseEvent numButtons). - buttons := buttons bitOr: (modifiers bitShift: 3). numFiles := evtBuf seventh. dragType caseOf: { [1] -> [ "dragEnter" externalDropMorph := TransferMorph new dragTransferType: #filesAndDirectories; source: self; passenger: (numFiles = 0 "Usually, numFiles and drop paths are delivered on dragDrop only. Still reserving this possibility for able host implementations." ifTrue: [self flag: #vmCapabilityMissing. 'Unknown host content' translated] ifFalse: [FileDirectory dropFilesAndDirectories: numFiles]); yourself. "During the drag operation, the host system is responsible for displaying the cursor." self grabMorph: externalDropMorph. self showTemporaryCursor: Cursor blank. externalDropMorph bottomRight: self topLeft. "Southeast area of the cursor is blocked by drawings from the source application. Display our drop morph at the opposite corner of the cursor." ]. [2] -> [ "dragMove" ^ MouseMoveEvent new setType: #mouseMove startPoint: self position endPoint: position trail: "{self position. position}"(self mouseDragTrailFrom: evtBuf) buttons: buttons hand: self stamp: stamp ]. [3] -> [ "dragLeave" externalDropMorph ifNotNil: #abandon. externalDropMorph := nil. self showTemporaryCursor: nil ]. [4] -> [ "dragDrop" | oldButtons | externalDropMorph ifNil: [ "dragDrop has been sent without prior dragging. This happens when the VM is configured as singleton application and has been called again (aka #launchDrop)." ^ self error: 'Launch drop for singleton Squeak not yet implemented.']. self showTemporaryCursor: nil. externalDropMorph passenger isString ifTrue: [ self flag: #vmCapabilityMissing. "See above." externalDropMorph passenger: (FileDirectory dropFilesAndDirectories: numFiles)]. externalDropMorph := nil. (Smalltalk classNamed: #DropFilesEvent) ifNotNil: [:eventClass | | classicEvent | "Generate classic DropFilesEvent, providing backward compatibility." classicEvent := eventClass new setPosition: position contents: numFiles hand: self. self processEvent: classicEvent. classicEvent wasHandled ifTrue: [^ nil]]. oldButtons := lastEventBuffer fifth + bitOr: (lastEventBuffer sixth bitShift: MouseEvent numButtons). - bitOr: (lastEventBuffer sixth bitShift: 3). ^ MouseButtonEvent new setType: #mouseUp position: position which: (oldButtons bitXor: buttons) buttons: buttons nClicks: 0 hand: self stamp: stamp ]. [5] -> [ "drag request" "For dnd out. Not properly implemented at the moment." self shouldBeImplemented] }. ^ nil! Item was changed: ----- Method: HandMorph>>generateKeyboardEvent: (in category 'private events') ----- generateKeyboardEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer" | buttons modifiers type pressType stamp keyValue | stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Sensor eventTimeNow]. pressType := evtBuf fourth. pressType = EventKeyDown ifTrue: [type := #keyDown]. pressType = EventKeyUp ifTrue: [type := #keyUp]. pressType = EventKeyChar ifTrue: [type := #keystroke]. modifiers := evtBuf fifth. + buttons := (modifiers bitShift: MouseEvent numButtons) bitOr: (lastMouseEvent buttons bitAnd: MouseEvent anyButton). - buttons := (modifiers bitShift: 3) bitOr: (lastMouseEvent buttons bitAnd: 7). type = #keystroke ifTrue: [keyValue := (self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf) asInteger] ifFalse: [keyValue := evtBuf third]. ^ KeyboardEvent new setType: type buttons: buttons position: self position keyValue: keyValue hand: self stamp: stamp. ! 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]]. 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:[ - 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). - ifFalse:[#mouseUp]. - ]. - ]. - buttons := buttons bitOr: (modifiers bitShift: 3). - oldButtons := lastEventBuffer fifth - bitOr: (lastEventBuffer sixth bitShift: 3). 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]. - 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 | 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. "Offset to support multiple hands debugging." 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: MouseEvent class>>numButtons (in category 'constants') ----- + numButtons + "We support three button mice." + ^3!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2021