Squeak-dev June 2021

squeak-dev@lists.squeakfoundation.org

25 participants
145 discussions

Many contents from Nabble disappeared
by Thiede, Christoph 21 Jun '21

21 Jun '21

Hi all! Today I noticed that in our Nabble forum, apparently all posts by "commits-2" have been deleted, here are just a few examples: http://forum.world.st/The-Inbox-Morphic-ct-1690-mcz-td5122760.html http://forum.world.st/The-Inbox-Tools-ct-1044-mcz-td5129255.html http://forum.world.st/FFI-FFI-Kernel-mt-135-mcz-td5129498.html > CONTENTS DELETED > The author has deleted this message. The issue appears also to affect other lists, on the Magma list, for example, they even lost posts by real personas: http://forum.world.st/Pharo-Port-td4944602.html (here is the intact versions from the Wayback machine: http://web.archive.org/web/20170814133642/http://forum.world.st/Pharo-Port-…) Just focusing on the threads indexed on Google, at least a three-digit number of threads are affected: https://www.google.com/search?q=%22The+author+has+deleted+this+message.%22+… Did anyone else already experience similar issues in the past? Do we have any backups to restore these posts? Could some admin maybe please take a look at this? Was this some maintenance incident? Is the account for "commits-2" passwort-protected or could anyone have abused it? I know we still have the pipermail archives, but IMO Nabble is much more convenient, used very often to link older contents and I think loosing this platform would hit us as a community. Best, Christoph

2 2

The Inbox: Morphic-ct.1690.mcz
by commits＠source.squeak.org 18 Jun '21

18 Jun '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1690.mcz ==================== Summary ==================== Name: Morphic-ct.1690 Author: ct Time: 1 October 2020, 2:42:17.443188 am UUID: 58a1128e-5547-4236-bc03-0c1f1366bb7b Ancestors: Morphic-eem.1686 Fixes display invalidation in PluggableListMorph when displayed during updating the list contents. To avoid recursive #getList sends, since Morphic-mt.1576, the list variable has been cleaned up before sending #getFullList/#getFilteredList. However, in some cases the list morph is redrawn while the #getList operation is being performed, for example if the model code shows a system progress bar (e.g. when loading/refreshing code in Monticello). In the past, this led to drawing artifacts during the list update. To avoid these artifacts, this version implements the list update as an atomic operation by storing the previous list contents in the variable previousStableList while recomputing the list. In addition, if #getList is curtailed, the previous list contents are restored (which is especially helpful during debugging). =============== Diff against Morphic-eem.1686 =============== Item was changed: ScrollPane subclass: #PluggableListMorph + instanceVariableNames: 'list fullList modelToView viewToModel getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow hoverRow listMorph keystrokePreviewSelector priorSelection getIconSelector getHelpSelector previousStableList' - instanceVariableNames: 'list fullList modelToView viewToModel getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow hoverRow listMorph keystrokePreviewSelector priorSelection getIconSelector getHelpSelector' classVariableNames: 'ClearFilterAutomatically ClearFilterDelay FilterableLists FlashOnErrors HighlightHoveredRow HighlightPreSelection MenuRequestUpdatesSelection' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableListMorph commentStamp: 'mt 10/12/2019 11:04' prior: 0! I am a list widget that uses the change/update mechanism to display model data as a vertical arrangement of (maybe formatted) strings and icons in a scroll pane. When I am in keyboard focus, type in a letter (or several letters quickly) to go to the next item that begins with that letter. If you enabled the "filterable lists" preference, I will hide all items that do not match the filter. Special keys (arrow up/down, page up/down, home, end) are also supported.! Item was changed: ----- Method: PluggableListMorph>>getList (in category 'model access - cached') ----- getList + "Answer the (maybe filtered) list to be displayed. Cached result, see #updateList. If the list needs to be updated, do this atomically." + + list = #locked ifTrue: [ + "The list is already being updated at the moment but needs to be accessed again during the update. To avoid recursion, the update is implemented as an atomic operation. This can happen, for example, when the model fetches data that opens the system progress bar which then will redraw periodically." + ^ previousStableList ifNil: #()]. - "Answer the (maybe filtered) list to be displayed. Cached result, see #updateList." - ^ list ifNil: [ + list := #locked. - list := #(). "To make this call safe when re-entering it while fetching the list. This can happen, for example, when the model fetches data that opens the system progress bar which then will redraw periodically." list := self filterableList ifTrue: [self getFilteredList] ifFalse: [self getFullList]. self updateListMorph. list]! Item was changed: ----- Method: PluggableListMorph>>updateListFilter (in category 'updating') ----- updateListFilter | selection | selection := self selectionIndex = 0 "Avoid fetching #getList here." ifTrue: [nil] ifFalse: [self selection]. + previousStableList := list. + [list := nil. - list := nil. modelToView := Dictionary new. viewToModel := Dictionary new. + self getList] ensure: [ + list ifNil: [list := previousStableList]. + previousStableList := nil]. - self getList. "Try to restore the last selection." selection ifNotNil: [self selection: selection].!

4 5

The Trunk: Morphic-mt.1774.mcz
by commits＠source.squeak.org 18 Jun '21

18 Jun '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1774.mcz ==================== Summary ==================== Name: Morphic-mt.1774 Author: mt Time: 18 June 2021, 8:42:44.573904 am UUID: 1e89964d-814b-4345-b3e6-fef6a4f54cc0 Ancestors: Morphic-mt.1773 Complements Kernel-mt.1403. Adds #key to all keyboard events to be used as a cross-platform identifier (or object) for virtual keys. Works the same for keyUp, keyDown, and keystroke events. Adds #keyCode, which is the low-level version of #key. For example, #keyCode would answer 29 while #key would answer "Character arrowRight" - an actual object that identifies the physically pressed key. Use #key when implementing keyboard shortcuts. Feel free to check for modifiers or keyUp/Down/Stroke depending on your use case. Note that this change relies on the fact that #keyDown will ALWAYS come before a #keystroke. Always. And that #keyDown events will carry the virtual key-code (or scan code), not a higher-level (Unicode) character for text input. For more background information see http://forum.world.st/Please-try-out-Cross-platform-mapping-for-virtual-key… =============== Diff against Morphic-mt.1773 =============== Item was changed: Morph subclass: #HandMorph + instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler targetOffset lastMouseEvent lastKeyDownEvent damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter externalDropMorph' - instanceVariableNames: 'mouseFocus keyboardFocus eventListeners mouseListeners keyboardListeners eventCaptureFilters mouseCaptureFilters keyboardCaptureFilters mouseClickState mouseOverHandler targetOffset lastMouseEvent damageRecorder cacheCanvas cachedCanvasHasHoles temporaryCursor temporaryCursorOffset hardwareCursor hasChanged savedPatch userInitials lastEventBuffer genieGestureProcessor keyboardInterpreter externalDropMorph' classVariableNames: 'CompositionWindowManager DoubleClickTime DragThreshold EventStats MinimalWheelDelta NewEventRules NormalCursor PasteBuffer SendMouseWheelToKeyboardFocus ShowEvents SynthesizeMouseWheelEvents' poolDictionaries: 'EventSensorConstants' category: 'Morphic-Kernel'! !HandMorph commentStamp: '<historical>' prior: 0! The cursor may be thought of as the HandMorph. The hand's submorphs hold anything being carried by dragging. There is some minimal support for multiple hands in the same world.! 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 keyCode | - | 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). type = #keystroke + ifTrue: [ + keyValue := (self keyboardInterpreter nextCharFrom: EventSensor default firstEvt: evtBuf) asInteger. + keyCode := lastKeyDownEvent keyValue] + ifFalse: [keyValue := keyCode := evtBuf third]. - ifTrue: [keyValue := (self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf) asInteger] - ifFalse: [keyValue := evtBuf third]. ^ KeyboardEvent new setType: type buttons: buttons position: self position keyValue: keyValue + keyCode: keyCode hand: self stamp: stamp. ! Item was changed: ----- Method: HandMorph>>handleEvent: (in category 'events-processing') ----- handleEvent: unfilteredEvent | filteredEvent | owner ifNil: [^ unfilteredEvent "not necessary but good style -- see Morph >> #handleEvent:"]. self logEvent: unfilteredEvent. "Mouse-over events occur really, really, really often. They are kind of the heart beat of the Morphic UI process." unfilteredEvent isMouseOver ifTrue: [^ self sendMouseEvent: unfilteredEvent]. self showEvent: unfilteredEvent. self sendListenEvents: unfilteredEvent. filteredEvent := self sendFilterEventCapture: unfilteredEvent for: nil. "filteredEvent := unfilteredEvent" " <-- use this to disable global capture filters" filteredEvent wasIgnored ifTrue: [ self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isWindowEvent ifTrue: [ self sendEvent: filteredEvent focus: nil. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. + filteredEvent isKeyboard ifTrue: [ + filteredEvent isKeyDown ifTrue: [lastKeyDownEvent := filteredEvent]. - filteredEvent isKeyboard ifTrue:[ self sendKeyboardEvent: filteredEvent. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isDropEvent ifTrue:[ self sendEvent: filteredEvent focus: nil. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isMouse ifFalse: [ self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. " ********** MOUSE EVENT *********** " lastMouseEvent := filteredEvent. "Check for pending drag or double click operations." mouseClickState ifNotNil:[ (mouseClickState handleEvent: filteredEvent from: self) ifFalse:[ "Possibly dispatched #click: or something and will not re-establish otherwise" self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]]. filteredEvent isMouseWheel ifTrue: [ self class sendMouseWheelToKeyboardFocus ifFalse: [self sendMouseEvent: filteredEvent] ifTrue: [self sendEvent: filteredEvent focus: self keyboardFocus clear: [self keyboardFocus: nil]]. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. filteredEvent isMove ifTrue:[ self position: filteredEvent position. self sendMouseEvent: filteredEvent. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent]. "Issue a synthetic move event if we're not at the position of the event" self flag: #bug. "mt: Incompatible with how #mouseMove: is handled when #wantsEveryMouseMove: answers false. Handler might think that #mouseDown: was already received. For example, TextEditor and HaloMorph will issue drags in their #mouseMove: based on old data. That is, the first #mouseMove: appears to come before #mouseDown: while actually sent due to #moveToEvent:." filteredEvent position = self position ifFalse: [self moveToEvent: filteredEvent]. "Drop submorphs on button events" self hasSubmorphs ifTrue:[self dropMorphs: filteredEvent] ifFalse:[self sendMouseEvent: filteredEvent]. self mouseOverHandler processMouseOver: lastMouseEvent. ^ filteredEvent "not necessary but good style -- see Morph >> #handleEvent:" ! Item was changed: ----- Method: HandMorph>>initForEvents (in category 'initialization') ----- initForEvents mouseOverHandler := nil. lastMouseEvent := MouseEvent new setType: #mouseMove position: 0@0 buttons: 0 hand: self. + lastKeyDownEvent := KeyboardEvent new setType: #keyDown buttons: 0 position: 0@0 keyValue: 0 hand: self stamp: 0. lastEventBuffer := {1. 0. 0. 0. 0. 0. nil. nil}. self resetClickState. self addKeyboardCaptureFilter: self. "to convert unusual VM events"! Item was changed: ----- Method: HandMorph>>logEvent: (in category 'events-debugging') ----- logEvent: anEvent "Update statistics for processed events." EventStats ifNil: [EventStats := IdentityDictionary new]. EventStats at: #count put: (EventStats at: #count ifAbsent: [0]) + 1. EventStats at: anEvent type put: (EventStats at: anEvent type ifAbsent: [0]) + 1.! Item was changed: UserInputEvent subclass: #KeyboardEvent + instanceVariableNames: 'keyValue keyCode' - instanceVariableNames: 'keyValue' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Events'! Item was changed: + ----- Method: KeyboardEvent>>asMorph (in category 'morphic/tools - converting') ----- - ----- Method: KeyboardEvent>>asMorph (in category 'converting') ----- asMorph "Answers a graphical reprsentation for this keyboard event. Does not work for keyUp and keyDown because we do not have platform-specific mapping tables for the key codes." + | box color arrow | - | box color | box := Morph new color: Color transparent; layoutPolicy: TableLayout new; listDirection: #leftToRight; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellGap: 2; yourself. color := self userInterfaceTheme get: #textColor for: #PluggableButtonMorph. + self physicalModifiers - self labelsForPhysicalModifiers do: [:modifier | + box addMorphBack: (ToolIcons keyboardButtonLabeled: modifier capitalized dyed: color) asMorph. - box addMorphBack: (ToolIcons keyboardButtonLabeled: modifier dyed: color) asMorph. box addMorphBack: (('+' asText addAttribute: (TextColor color: color); asMorph) lock)]. + "Visualize arrow keys." + arrow := self key. + (arrow isCharacter and: [arrow asciiValue between: 28 and: 31]) ifTrue: [ + box addMorphBack: (ToolIcons keyboardButtonLabeled: ( + ScrollBar + arrowOfDirection: (#(left right top bottom) at: arrow asciiValue - 27) + size: Preferences standardButtonFont height + color: Color black) dyed: color) asMorph. + ^ box]. - (self keyValue between: 28 and: 31) - ifTrue: [ "arrow keys" - box addMorphBack: (ToolIcons keyboardButtonLabeled: ( - ScrollBar - arrowOfDirection: (#(left right top bottom) at: self keyValue - 27) - size: Preferences standardButtonFont height - color: Color black) dyed: color) asMorph. - ^ box]. box addMorphBack: (ToolIcons + keyboardButtonLabeled: self physicalKey asString capitalized - keyboardButtonLabeled: (self isKeystroke - ifTrue: [self labelForPhysicalKeyStroke] - ifFalse: [self labelForPhysicalKeyDown]) dyed: color) asMorph. ^ box! Item was added: + ----- Method: KeyboardEvent>>key (in category 'keyboard') ----- + key + "Answers a representation for the (non-modifier) key, which should be consistent across platforms considering its cause." + + ^ EventSensor virtualKeyAt: keyCode! Item was added: + ----- Method: KeyboardEvent>>keyCode (in category 'keyboard') ----- + keyCode + "Answers the virtual-key code (or scan code) for this event." + + ^ keyCode! Item was removed: - ----- Method: KeyboardEvent>>labelForPhysicalKeyDown (in category 'printing') ----- - labelForPhysicalKeyDown - "#keyDown and #keyUp -- needs platform-specific mapping for virtual key codes" - - ^ 'VK-0x', (self keyValue printPaddedWith: $0 to: 2 base: 16)! Item was removed: - ----- Method: KeyboardEvent>>labelForPhysicalKeyStroke (in category 'printing') ----- - labelForPhysicalKeyStroke - - ^ (self keyValue <= 32 or: [self keyValue = 127]) - ifFalse: [ - self keyCharacter asUppercase asString] - ifTrue: [ - (self controlKeyPressed and: [self keyValue < 28 "no arrows or space"]) - ifTrue: [ - "Most likely a physical key with a readable (uppercase) label. Be aware that this cannot cover the cases where the physical contro key was pressed together with the CTRL modifier." - (self keyValue bitOr: 16r40) asCharacter asString "+64"] - ifFalse: [ - self keyValue caseOf: { - [ 1 ] -> [ 'Home' translated ]. - [ 4 ] -> [ 'End' translated ]. - [ 5 ] -> [ 'Insert' translated ]. - [ 8 ] -> [ 'Backspace' translated ]. - [ 9 ] -> [ 'Tab' ]. - [ 10 ] -> [ 'LF' ]. - [ 11 ] -> [ 'PageUp' translated ]. - [ 12 ] -> [ 'PageDown' translated ]. - [ 13 ] -> [ 'Return' translated "CR" ]. - [ 27 ] -> [ 'Esc' ]. - [ 32 ] -> [ 'Space' translated ]. - [ 127 ] -> [ 'Del' translated ]. - } otherwise: [ - 'ASCII-', (self keyValue printPaddedWith: $0 to: 2 base: 10)]]]! Item was removed: - ----- Method: KeyboardEvent>>labelsForPhysicalModifiers (in category 'printing') ----- - labelsForPhysicalModifiers - "Help users understand the physical modifier keys that where involved in this event. Note that, due to historical reasons, the SHIFT modifier comes first on macOS but last on other platforms." - - | result | - result := OrderedCollection new. - - Smalltalk platformName = 'Mac OS' - ifTrue: [ - self shiftPressed ifTrue: [result add: 'Shift']. - self controlKeyPressed ifTrue: [result add: 'Ctrl']. - self optionKeyPressed ifTrue: [result add: 'Opt']. - self commandKeyPressed ifTrue: [result add: 'Cmd']] - ifFalse: [ "Linux/Windows" - self controlKeyPressed - ifTrue: [result add: 'Ctrl'] - ifFalse: [ - Smalltalk platformName = 'Win32' - ifTrue: [ - (self commandKeyPressed or: [self optionKeyPressed]) - ifTrue: [result add: 'Alt']] - ifFalse: ["Linux/ARM" - self commandKeyPressed - ifTrue: [result add: 'Alt'] - ifFalse: [self optionKeyPressed - ifTrue: [ - result add: 'Strg'. - result add: 'Alt']]]]. - self shiftPressed ifTrue: [result add: 'Shift']]. - ^ result! Item was added: + ----- Method: KeyboardEvent>>physicalKey (in category 'morphic/tools - accessing') ----- + physicalKey + + ^ self key + ifNil: ['VK-0x', (self keyCode printPaddedWith: $0 to: 2 base: 16)] + ifNotNil: [:key | + (#(control command option) includes: key) + ifTrue: [ "Similar to #physicalModifiers" + Smalltalk platformName = 'Mac OS' + ifTrue: [key] + ifFalse: [ + self controlKeyPressed + ifTrue: [(self optionKeyPressed and: [self commandKeyPressed]) + ifTrue: [#alt "Linux/X11"] + ifFalse: [#control]] + ifFalse: [#alt]]] + ifFalse: [ + (key isCharacter + ifTrue: [(Character constantNameFor: key) ifNil: [key]] + ifFalse: [key]) ]]! Item was added: + ----- Method: KeyboardEvent>>physicalModifiers (in category 'morphic/tools - accessing') ----- + physicalModifiers + "Help users understand the physical modifier keys that where involved in this event. Note that, due to historical reasons, the SHIFT modifier comes first on macOS but last on other platforms." + + | result | + result := OrderedCollection new. + + Smalltalk platformName = 'Mac OS' + ifTrue: [ + self shiftPressed ifTrue: [result add: #shift]. + self controlKeyPressed ifTrue: [result add: #ctrl]. + self optionKeyPressed ifTrue: [result add: #opt]. + self commandKeyPressed ifTrue: [result add: #cmd]] + ifFalse: [ "Linux/Windows" + self controlKeyPressed + ifTrue: [result add: #ctrl] + ifFalse: [ + Smalltalk platformName = 'Win32' + ifTrue: [ + (self commandKeyPressed or: [self optionKeyPressed]) + ifTrue: [result add: #alt]] + ifFalse: ["Linux/ARM" + self commandKeyPressed + ifTrue: [result add: #alt] + ifFalse: [self optionKeyPressed + ifTrue: [ + result add: #ctrl. + result add: #alt]]]]. + self shiftPressed ifTrue: [result add: #shift]]. + ^ result! Item was changed: ----- Method: KeyboardEvent>>printKeyStringOn: (in category 'printing') ----- printKeyStringOn: aStream "Print a readable string representing the receiver on a given stream" | kc inBrackets firstBracket keyString | kc := self keyCharacter. inBrackets := false. firstBracket := [ inBrackets ifFalse: [ aStream nextPut: $<. inBrackets := true ]]. + self modifiers do: [:modifier | + firstBracket value. aStream nextPutAll: modifier; nextPutAll: '-' ]. - self controlKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Ctrl-' ]. - self commandKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Cmd-' ]. - self optionKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Opt-' ]. - self shiftPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Shift-' ]. + keyString := (Character constantNameFor: kc) + ifNil: [String with: kc]. - keyString := (kc caseOf: { - [ Character space ] -> [ 'space' ]. - [ Character tab ] -> [ 'tab' ]. - [ Character cr ] -> [ 'cr' ]. - [ Character lf ] -> [ 'lf' ]. - [ Character enter ] -> [ 'enter' ]. - - [ Character backspace ] -> [ 'backspace' ]. - [ Character delete ] -> [ 'delete' ]. - - [ Character escape ] -> [ 'escape' ]. - - [ Character arrowDown ] -> [ 'down' ]. - [ Character arrowUp ] -> [ 'up' ]. - [ Character arrowLeft ] -> [ 'left' ]. - [ Character arrowRight ] -> [ 'right' ]. - - [ Character end ] -> [ 'end' ]. - [ Character home ] -> [ 'home' ]. - [ Character pageDown ] -> [ 'pageDown' ]. - [ Character pageUp ] -> [ 'pageUp' ]. - - [ Character euro ] -> [ 'euro' ]. - [ Character insert ] -> [ 'insert' ]. - - } otherwise: [ String with: kc ]). keyString size > 1 ifTrue: [ firstBracket value ]. aStream nextPutAll: keyString. inBrackets ifTrue: [aStream nextPut: $> ]! Item was changed: ----- Method: KeyboardEvent>>printOn: (in category 'printing') ----- printOn: aStream "Print the receiver on a stream" aStream nextPut: $[. aStream nextPutAll: self cursorPoint printString; space. aStream nextPutAll: type; space. self isKeystroke ifTrue: [ aStream nextPutAll: ''''. self printKeyStringOn: aStream. + aStream nextPut: $'; space]. - aStream nextPut: $'; space. - aStream nextPutAll: '['. - self printPhysicalModifiersOn: aStream. - aStream nextPutAll: '] ']. aStream nextPut: $(. aStream nextPutAll: keyValue printString. aStream nextPut: $); space. aStream nextPutAll: timeStamp printString. aStream nextPut: $]! Item was removed: - ----- Method: KeyboardEvent>>printPhysicalModifiersOn: (in category 'printing') ----- - printPhysicalModifiersOn: aStream - "Help users understand the physical modifier keys that where involved in this event." - - self labelsForPhysicalModifiers - do: [:modifier | aStream nextPutAll: modifier] - separatedBy: [aStream nextPutAll: ' + '].! Item was removed: - ----- Method: KeyboardEvent>>scanCode: (in category 'private') ----- - scanCode: ignore - " OB-Tests expects this "! Item was changed: ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:hand:stamp: (in category 'private') ----- setType: aSymbol buttons: anInteger position: pos keyValue: aValue hand: aHand stamp: stamp + + self + setType: aSymbol + buttons: anInteger + position: pos + keyValue: aValue + keyCode: #unknown + hand: aHand + stamp: stamp.! - type := aSymbol. - buttons := anInteger. - position := pos. - keyValue := aValue. - source := aHand. - wasHandled := false. - timeStamp := stamp.! Item was added: + ----- Method: KeyboardEvent>>setType:buttons:position:keyValue:keyCode:hand:stamp: (in category 'private') ----- + setType: aSymbol buttons: anInteger position: pos keyValue: aValue keyCode: aCode hand: aHand stamp: stamp + type := aSymbol. + buttons := anInteger. + position := pos. + keyValue := aValue. + keyCode := aCode. + source := aHand. + wasHandled := false. + timeStamp := stamp.! Item was changed: ----- Method: KeyboardEvent>>storeOn: (in category 'printing') ----- storeOn: aStream aStream nextPutAll: type. aStream space. self timeStamp storeOn: aStream. aStream space. buttons storeOn: aStream. aStream space. keyValue storeOn: aStream. + aStream space. + keyCode storeOn: aStream. ! Item was changed: ----- Method: KeyboardEvent>>type:readFrom: (in category 'initialize') ----- type: eventType readFrom: aStream type := eventType. timeStamp := Integer readFrom: aStream. aStream skip: 1. buttons := Integer readFrom: aStream. aStream skip: 1. + keyValue := Integer readFrom: aStream. + aStream skip: 1. + keyCode := Integer readFrom: aStream.! - keyValue := Integer readFrom: aStream.! Item was added: + ----- Method: KeyboardEvent>>virtualKey (in category 'morphic/tools - accessing') ----- + virtualKey + + ^ self key! Item was added: + ----- Method: KeyboardEvent>>virtualModifiers (in category 'morphic/tools - accessing') ----- + virtualModifiers + + ^ self modifiers! Item was added: + ----- Method: KeyboardExerciser>>lastEvent (in category 'accessing') ----- + lastEvent + + | view event | + view := self submorphs last. + (view hasProperty: #event) ifFalse: [^ nil]. + event := view valueOfProperty: #event. + event isCollection ifTrue: [event := event last]. + ^ event! Item was changed: ----- Method: KeyboardExerciser>>logEvent: (in category 'event handling') ----- logEvent: evt | eventMorph | + evt = self lastEvent + ifTrue: [^ self logEventRepetition: evt]. + eventMorph := evt asMorph. eventMorph setProperty: #event toValue: evt copy; + balloonText: ('Click to inspect. Shift+click to explore.\\Virtual key: {7}\Virtual modifiers: {4}\\Physical key: {8}\Physical modifiers: {5}\\Key value: 0x{1} ({2}) \Key character: {3}\\{6}' withCRs format: { - balloonText: ('Click to inspect. Shift+click to explore.\\Key value: 0x{1} ({2}) \Key character: {3}\Virtual modifiers: {4}\Physical modifiers: {5}\\{6}' withCRs format: { evt keyValue printPaddedWith: $0 to: 2 base: 16. evt keyValue. evt isKeystroke ifTrue: [evt keyCharacter printString] ifFalse: ['-']. + (evt virtualModifiers joinSeparatedBy: ' ') asUppercase. + (evt physicalModifiers joinSeparatedBy: ' ') asUppercase. + evt printString. + evt virtualKey printString. + evt physicalKey asString printString}). - evt modifierString. - (evt labelsForPhysicalModifiers joinSeparatedBy: ' ') asUppercase. - evt printString}). eventMorph on: #mouseEnter send: #handleEvent:emphasize: to: self; on: #mouseLeave send: #handleEvent:deemphasize: to: self; on: #mouseDown send: #handleEvent:inspect: to: self. self addMorphBack: eventMorph.! Item was added: + ----- Method: KeyboardExerciser>>logEventRepetition: (in category 'event handling') ----- + logEventRepetition: evt + + | label lastEvents box | + (self submorphs last hasProperty: #repetition) + ifTrue: [box := self submorphs last. label := box submorphs first] + ifFalse: [ + box := Morph new + setProperty: #repetition toValue: true; + color: Color transparent; + layoutPolicy: TableLayout new; + hResizing: #shrinkWrap; + vResizing:#shrinkWrap; + yourself. + label := '' asText asMorph lock. + box addMorph: label. + box setProperty: #event toValue: (OrderedCollection with: self lastEvent). + self addMorphBack: box]. + + lastEvents := box valueOfProperty: #event. + lastEvents add: evt copy. + box setProperty: #event toValue: lastEvents. + + label newContents: (('x ', (lastEvents size)) asText + addAttribute: (TextFontReference toFont: Preferences standardButtonFont); + yourself). + box balloonText: ('{1}{2}' format: { + lastEvents size > 10 ifTrue: ['... ', (lastEvents size - 10), ' older events and:', String cr] ifFalse: ['']. + (lastEvents last: (10 min: lastEvents size)) joinSeparatedBy: String cr. + }). + + box + on: #mouseEnter send: #handleEvent:emphasize: to: self; + on: #mouseLeave send: #handleEvent:deemphasize: to: self; + on: #mouseDown send: #handleEvent:inspect: to: self.! Item was added: + ----- Method: UserInputEvent>>modifiers (in category 'accessing') ----- + modifiers + + ^ Array streamContents: [:s | + self controlKeyPressed ifTrue: [s nextPut: #ctrl]. + self optionKeyPressed ifTrue:[s nextPut: #opt]. + self commandKeyPressed ifTrue:[s nextPut: #cmd]. + self shiftPressed ifTrue:[s nextPut: #shift]]!

1 0

The Trunk: Kernel-mt.1403.mcz
by commits＠source.squeak.org 18 Jun '21

18 Jun '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1403.mcz ==================== Summary ==================== Name: Kernel-mt.1403 Author: mt Time: 18 June 2021, 8:32:18.330904 am UUID: 896b2999-9c3e-4df2-985b-92adf7d228a4 Ancestors: Kernel-nice.1402 Next iteration on virtual-key mapping to be consistent across all of our supported platforms. Works fine for Windows and macOS. Works okay-ish on X11 because of (yet) missing scan-codes. See http://forum.world.st/Please-try-out-Cross-platform-mapping-for-virtual-key… =============== Diff against Kernel-nice.1402 =============== Item was changed: Object subclass: #EventSensor instanceVariableNames: 'mouseButtons mousePosition mouseWheelDelta keyboardBuffer interruptKey interruptSemaphore eventQueue inputSemaphore lastEventPoll hasInputSemaphore lastEventTime' + classVariableNames: 'ButtonDecodeTable EventPollPeriod EventTicklerProcess InterruptWatcherProcess KeyDecodePreferences KeyDecodeTable VirtualKeyTable' - classVariableNames: 'ButtonDecodeTable EventPollPeriod EventTicklerProcess InterruptWatcherProcess KeyDecodePreferences KeyDecodeTable' poolDictionaries: 'EventSensorConstants' category: 'Kernel-Processes'! !EventSensor commentStamp: 'mt 12/13/2019 14:38' prior: 0! An EventSensor is an interface to the user input devices. There is at least one instance of EventSensor named Sensor in the system. EventSensor is a replacement for the earlier InputSensor implementation based on a set of (optional) event primitives. An EventSensor updates its state when events are received so that all state based users of Sensor (e.g., Sensor keyboard, Sensor leftShiftDown, Sensor mouseButtons) will work exactly as before, by moving the current VM mechanisms into EventSensor itself. An optional input semaphore is part of the new design. For platforms that support true asynchronous event notification, the semaphore will be signaled to indicate pending events. On platforms that do not support asynchronous notifications about events, the UI will have to poll EventSensor periodically to read events from the VM. Instance variables: mouseButtons <Integer> - mouse button state as replacement for primMouseButtons mousePosition <Point> - mouse position as replacement for primMousePt keyboardBuffer <SharedQueue> - keyboard input buffer interruptKey <Integer> - currently defined interrupt key interruptSemaphore <Semaphore> - the semaphore signaled when the interruptKey is detected eventQueue <SharedQueue> - an optional event queue for event driven applications inputSemaphore <Semaphore>- the semaphore signaled by the VM if asynchronous event notification is supported lastEventPoll <Integer> - the last millisecondClockValue at which we called fetchMoreEvents hasInputSemaphore <Boolean> - true if my inputSemaphore has actually been signaled at least once. Class variables: ButtonDecodeTable <ByteArray> - maps mouse buttons as reported by the VM to ones reported in the events. KeyDecodeTable <Dictionary<SmallInteger->SmallInteger>> - maps some keys and their modifiers to other keys (used for instance to map Ctrl-X to Alt-X) InterruptSemaphore <Semaphore> - signalled by the the VM and/or the event loop upon receiving an interrupt keystroke. InterruptWatcherProcess <Process> - waits on the InterruptSemaphore and then responds as appropriate. EventPollPeriod <Integer> - the number of milliseconds to wait between polling for more events in the userInterruptHandler. EventTicklerProcess <Process> - the process that makes sure that events are polled for often enough (at least every EventPollPeriod milliseconds). Event format: The current event format is very simple. Each event is recorded into an 8 element array. All events must provide some SmallInteger ID (the first field in the event buffer) and a time stamp (the second field in the event buffer), so that the difference between the time stamp of an event and the current time can be reported. Currently, the following events are defined: Null event ============= The Null event is returned when the ST side asks for more events but no more events are available. Structure: [1] - event type 0 [2-8] - unused Mouse event structure ========================== Mouse events are generated when mouse input is detected. [1] - event type 1 [2] - time stamp [3] - mouse x position [4] - mouse y position [5] - button state; bitfield with the following entries: 1 - 2r001 yellow (e.g., right) button 2 - 2r010 blue (e.g., middle) button 4 - 2r100 red (e.g., left) button [all other bits are currently undefined] [6] - modifier keys; bitfield with the following entries: 1 - shift key 2 - ctrl key 4 - (Mac specific) option key 8 - Cmd/Alt key [all other bits are currently undefined] [7] - reserved. [8] - host window id. Keyboard events ==================== Keyboard events are generated when keyboard input is detected. [1] - event type 2 [2] - time stamp [3] - character code (Ascii) For now the character code is in Mac Roman encoding. See #macToSqueak. For key press/release (see [4]), character codes are normalized. [4] - press state; integer with the following meaning 0 - character (aka. key stroke or key still pressed) 1 - key press (aka. key down) 2 - key release (aka. key up) [5] - modifier keys (same as in mouse events) For key press/release (see [4]), modifier keys are still accessible. [6] - character code (Unicode UTF32) Manual decoding via KeyboardInputInterpreter possible. For key press/release (see [4]), character codes are normalized. [7] - reserved. [8] - host window id. Mouse-wheel event structure ========================== Mouse-wheel events are generated when mouse-wheel input is detected. [1] - event type 7 [2] - time stamp [3] - horizontal scroll delta [4] - vertical scroll delta [5] - button state (same as in mouse events) [6] - modifier keys (same as in mouse events) [7] - reserved. [8] - host window id. ! Item was changed: ----- Method: EventSensor class>>initialize (in category 'class initialization') ----- initialize Smalltalk addToStartUpList: self before: ProcessorScheduler. Smalltalk addToShutDownList: self. KeyDecodePreferences := Dictionary new. self installKeyDecodeTable. + self installMouseDecodeTable. + self installVirtualKeyTable.! - self installMouseDecodeTable.! Item was changed: ----- Method: EventSensor class>>installMappingToPrintableCharacters (in category 'key decode table') ----- installMappingToPrintableCharacters "Only applies when the CONTROL modifier is present!! Control characters that can directly be triggered -- such as CR, ENTER, BS, DEL, POS1, END -- will not be mapped." self flag: #windowsOnly. "mt: The CONTROL modifier might directly change the control character. Examples: CTRL+CR(13) arrives as CTRL+LF(10), CTRL+BS(8) arrives as CTRL+DEL(127). If you have no other means to input LF(10) or DEL(127), you might have to disable this mapping to printable characters." + 1 "SOH" to: 27 "ESC" do: [:control | + #(2r0010 "ctrl" 2r0110 "ctrl+opt" 2r1010 "ctrl+cmd" 2r1110 "ctrl+opt+cmd") + do: [:modifiers | "Note that only macOS needs those other combinations." + KeyDecodeTable + at: { control . modifiers } + put: { control bitOr: 16r60 "+96" . modifiers }]. + #(2r0011 "shift+ctrl" 2r0111 "shift+ctrl+opt" 2r1011 "shift+ctrl+cmd" 2r1111 "shift+ctrl+opt+cmd") + do: [:modifiers | "Note that only macOS needs those other combinations." + KeyDecodeTable + at: { control . modifiers } + put: { control bitOr: 16r40 "+64" . modifiers }]]. + + self flag: #macOSOnly. "mt: Ctrl+Space arrives as NUL character, which would be mapped to $@ with the above rules. So, ensure that Ctrl+Space works across platforms." + KeyDecodeTable + at: { 0 "NUL" . 2r0010 "ctrl" } + put: { 32 "SPACE". 2 "ctrl" }. + KeyDecodeTable + at: { 0 "NUL" . 2r0011 "ctrl+shift" } + put: { 32 "SPACE". 2r0011 "ctrl+shift" }.! - 0 "NUL" to: 27 "ESC" do: [:control | - KeyDecodeTable - at: { control . 2r0010 "ctrl" } - put: { control bitOr: 16r60 "+96" . 2 "ctrl" }. - KeyDecodeTable - at: { control . 2r0011 "ctrl+shift" } - put: { control bitOr: 16r40 "+64" . 2r0011 "ctrl+shift" }].! Item was added: + ----- Method: EventSensor class>>installVirtualKeyTable (in category 'class initialization') ----- + installVirtualKeyTable + + VirtualKeyTable := Dictionary newFrom: ( + Smalltalk windowSystemName + caseOf: { + ['Windows'] -> [self virtualKeysOnWindows]. + ['Win32' "older VMs"] -> [self virtualKeysOnWindows]. + ['Aqua'] -> [self virtualKeysOnMacOS]. + ['X11'] -> [self virtualKeysOnX11]. + ['RiscOS'] -> [{}]. + ['Quartz'] -> [{}]. + } otherwise: [{}]). + + "Shift 8 bits to not overwrite virtual-key mappings from above." + self mapControlKeysToCommandKeys ifTrue: [ + VirtualKeyTable + at: (2r0010 "ctrl" bitShift: 8) + put: (2r1010 "cmd+ctrl"). + VirtualKeyTable + at: (2r0011 "ctrl+shift" bitShift: 8) + put: (2r1011 "cmd+ctrl+shift")]. + + self mapAltKeysToOptionKeys ifTrue: [ + VirtualKeyTable + at: (2r1000 "cmd/alt" bitShift: 8) + put: (2r1100 "cmd/alt+opt"). + VirtualKeyTable + at: (2r1001 "cmd/alt+shift" bitShift: 8) + put: (2r1101 "cmd/alt+opt+shift")].! Item was changed: ----- Method: EventSensor class>>mapAltKeysToOptionKeys: (in category 'preferences') ----- mapAltKeysToOptionKeys: aBooleanOrNil aBooleanOrNil = self mapAltKeysToOptionKeys ifTrue: [^ self]. aBooleanOrNil ifNil: [ KeyDecodePreferences removeKey: #mapAltKeysToOptionKeys] ifNotNil: [ KeyDecodePreferences at: #mapAltKeysToOptionKeys put: aBooleanOrNil]. + self installKeyDecodeTable. + self installVirtualKeyTable.! - self installKeyDecodeTable.! Item was changed: ----- Method: EventSensor class>>mapControlKeysToCommandKeys: (in category 'preferences') ----- mapControlKeysToCommandKeys: aBooleanOrNil aBooleanOrNil ifNil: [ KeyDecodePreferences removeKey: #mapControlKeysToCommandKeys] ifNotNil: [ KeyDecodePreferences at: #mapControlKeysToCommandKeys put: aBooleanOrNil]. + self installKeyDecodeTable. + self installVirtualKeyTable.! - self installKeyDecodeTable.! Item was added: + ----- Method: EventSensor class>>simplifyVirtualKeyCodes (in category 'preferences') ----- + simplifyVirtualKeyCodes + <preference: 'Simplify virtual-key codes' + categoryList: #(keyboard events input) + description: 'On some platforms, virtual-key codes (aka. scan codes) depend on the language setting (e.g. US, UK, DE), which is unkown to Squeak. Enable this preference to simplify overlapping codes to common symbols #squeak1, #squeak2, etc., which improves cross-platform compatibility but reduces the number of keys available for different handlers.' + type: #Boolean> + + ^ KeyDecodePreferences + at: #simplifyVirtualKeyCodes + ifAbsent: [true]! Item was added: + ----- Method: EventSensor class>>simplifyVirtualKeyCodes: (in category 'preferences') ----- + simplifyVirtualKeyCodes: aBooleanOrNil + + aBooleanOrNil = self simplifyVirtualKeyCodes + ifTrue: [^ self]. + + aBooleanOrNil + ifNil: [ + KeyDecodePreferences + removeKey: #simplifyVirtualKeyCodes] + ifNotNil: [ + KeyDecodePreferences + at: #simplifyVirtualKeyCodes + put: aBooleanOrNil]. + + self installVirtualKeyTable.! Item was removed: - ----- Method: EventSensor class>>startUp (in category 'system startup') ----- - startUp - - Smalltalk platformName = 'Mac OS' - ifTrue: [ - self mapAltKeysToOptionKeys: false. - self mapControlKeysToCommandKeys: false] - ifFalse: [ - self mapAltKeysToOptionKeys: true. - self mapControlKeysToCommandKeys: true]. - - self default startUp.! Item was added: + ----- Method: EventSensor class>>startUp: (in category 'system startup') ----- + startUp: resuming + + resuming ifTrue: [ + Smalltalk platformName = 'Mac OS' + ifTrue: [ + self mapAltKeysToOptionKeys: false. + self mapControlKeysToCommandKeys: false] + ifFalse: [ + self mapAltKeysToOptionKeys: true. + self mapControlKeysToCommandKeys: true]. + self installVirtualKeyTable ]. + + self default startUp.! Item was added: + ----- Method: EventSensor class>>virtualKeyAt: (in category 'virtual keys') ----- + virtualKeyAt: keyCode + "Answers a representation for the (non-modifier) key, which should be consistent across platforms considering its cause." + + ^ self virtualKeyTable at: keyCode! Item was added: + ----- Method: EventSensor class>>virtualKeyTable (in category 'virtual keys') ----- + virtualKeyTable + + ^ VirtualKeyTable ifNil: [self installVirtualKeyTable]! Item was added: + ----- Method: EventSensor class>>virtualKeysOnMacOS (in category 'virtual keys') ----- + virtualKeysOnMacOS + "Based on Carbon's Events.h -- https://snipplr.com/view/42797" + + ^ { + 16r00 -> $A. "#'kVK_ANSI_A'" + 16r01 -> $S. "#'kVK_ANSI_S'" + 16r02 -> $D. "#'kVK_ANSI_D'" + 16r03 -> $F. "#'kVK_ANSI_F'" + 16r04 -> $H. "#'kVK_ANSI_H'" + 16r05 -> $G. "#'kVK_ANSI_G'" + 16r06 -> $Z. "#'kVK_ANSI_Z'" + 16r07 -> $X. "#'kVK_ANSI_X'" + 16r08 -> $C. "#'kVK_ANSI_C'" + 16r09 -> $V. "#'kVK_ANSI_V'" + 16r0B -> $B. "#'kVK_ANSI_B'" + 16r0C -> $Q. "#'kVK_ANSI_Q'" + 16r0D -> $W. "#'kVK_ANSI_W'" + 16r0E -> $E. "#'kVK_ANSI_E'" + 16r0F -> $R. "#'kVK_ANSI_R'" + 16r10 -> $Y. "#'kVK_ANSI_Y'" + 16r11 -> $T. "#'kVK_ANSI_T'" + 16r12 -> $1. "#'kVK_ANSI_1'" + 16r13 -> $2. "#'kVK_ANSI_2'" + 16r14 -> $3. "#'kVK_ANSI_3'" + 16r15 -> $4. "#'kVK_ANSI_4'" + 16r16 -> $6. "#'kVK_ANSI_6'" + 16r17 -> $5. "#'kVK_ANSI_5'" + 16r18 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak2] ifFalse: [#'kVK_ANSI_Equal']). + 16r19 -> $9. "#'kVK_ANSI_9'" + 16r1A -> $7. "#'kVK_ANSI_7'" + 16r1B -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'kVK_ANSI_Minus']). + 16r1C -> $8. "#'kVK_ANSI_8'" + 16r1D -> $0. "#'kVK_ANSI_0'" + 16r1E -> (self simplifyVirtualKeyCodes ifTrue: [#squeak2] ifFalse: [#'kVK_ANSI_RightBracket']). + 16r1F -> $O. "#'kVK_ANSI_O'" + 16r20 -> $U. "#'kVK_ANSI_U'" + 16r21 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'kVK_ANSI_LeftBracket']). + 16r22 -> $I. "#'kVK_ANSI_I'" + 16r23 -> $P. "#'kVK_ANSI_P'" + 16r25 -> $L. "#'kVK_ANSI_L'" + 16r26 -> $J. "#'kVK_ANSI_J'" + 16r27 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak3] ifFalse: [#'kVK_ANSI_Quote']). + 16r28 -> $K. "#'kVK_ANSI_K'" + 16r29 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'kVK_ANSI_Semicolon']). + 16r2A -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'kVK_ANSI_Backslash']). + 16r2B -> #squeakComma. "#'kVK_ANSI_Comma'" + 16r2C -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'kVK_ANSI_Slash']). + 16r2D -> $N. "#'kVK_ANSI_N'" + 16r2E -> $M. "#'kVK_ANSI_M'" + 16r2F -> #squeakPeriod. "#'kVK_ANSI_Period'" + 16r32 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak4] ifFalse: [#'kVK_ANSI_Grave']). + 16r41 -> #numDec. "#'kVK_ANSI_KeypadDecimal'" + 16r43 -> #numMul. "#'kVK_ANSI_KeypadMultiply'" + 16r45 -> #numAdd. "#'kVK_ANSI_KeypadPlus'" + 16r47 -> #numClr. "#'kVK_ANSI_KeypadClear'" + 16r4B -> #numDiv. "#'kVK_ANSI_KeypadDivide'" + 16r4C -> (self simplifyVirtualKeyCodes ifTrue: [Character return] ifFalse: [Character enter]). "#'kVK_ANSI_KeypadEnter'" + 16r4E -> #numSub. "#'kVK_ANSI_KeypadMinus'" + 16r51 -> #numEqu. "#'kVK_ANSI_KeypadEquals'" + 16r52 -> #num0. "#'kVK_ANSI_Keypad0'" + 16r53 -> #num1. "#'kVK_ANSI_Keypad1'" + 16r54 -> #num2. "#'kVK_ANSI_Keypad2'" + 16r55 -> #num3. "#'kVK_ANSI_Keypad3'" + 16r56 -> #num4. "#'kVK_ANSI_Keypad4'" + 16r57 -> #num5. "#'kVK_ANSI_Keypad5'" + 16r58 -> #num6. "#'kVK_ANSI_Keypad6'" + 16r59 -> #num7. "#'kVK_ANSI_Keypad7'" + 16r5B -> #num8. "#'kVK_ANSI_Keypad8'" + 16r5C -> #num9. "#'kVK_ANSI_Keypad9'" + 16r24 -> Character return. "#'kVK_Return'" + 16r30 -> Character tab. "#'kVK_Tab'" + 16r31 -> Character space. "#'kVK_Space'" + 16r33 -> Character backspace. "#'kVK_Delete'" + 16r35 -> Character escape. "#'kVK_Escape'" + 16r36 -> #command. "#'kVK_RightCommand'" + 16r37 -> #command. "#'kVK_Command'" + 16r38 -> #shift. "#'kVK_Shift'" + 16r39 -> #capsLock. "#'kVK_CapsLock'" + 16r3A -> #option. "#'kVK_Option'" + 16r3B -> #control. "#'kVK_Control'" + 16r3C -> #shift. "#'kVK_RightShift'" + 16r3D -> #option. "#'kVK_RightOption'" + 16r3E -> #control. "#'kVK_RightControl'" + 16r3F -> #'kVK_Function'. + 16r40 -> #F17. "#'kVK_F17'" + 16r48 -> #'kVK_VolumeUp'. + 16r49 -> #'kVK_VolumeDown'. + 16r4A -> #'kVK_Mute'. + 16r4F -> #F18. "#'kVK_F18'" + 16r50 -> #F19. "#'kVK_F19'" + 16r5A -> #F20. "#'kVK_F20'" + 16r60 -> #F5. "#'kVK_F5'" + 16r61 -> #F6. "#'kVK_F6'" + 16r62 -> #F7. "#'kVK_F7'" + 16r63 -> #F3. "#'kVK_F3'" + 16r64 -> #F8. "#'kVK_F8'" + 16r65 -> #F9. "#'kVK_F9'" + 16r67 -> #F11. "#'kVK_F11'" + 16r69 -> #F13. "#'kVK_F13'" + 16r6A -> #F16. "#'kVK_F16'" + 16r6B -> #F14. "#'kVK_F14'" + 16r6D -> #F10. "#'kVK_F10'" + 16r6F -> #F12. "#'kVK_F12'" + 16r71 -> #F15. "#'kVK_F15'" + 16r72 -> #help. "#'kVK_Help'" + 16r73 -> Character home. "#'kVK_Home'" + 16r74 -> Character pageUp. "#'kVK_PageUp'" + 16r75 -> Character delete. "#'kVK_ForwardDelete'" + 16r76 -> #F4. "#'kVK_F4'" + 16r77 -> Character end. "#'kVK_End'" + 16r78 -> #F2. "#'kVK_F2'" + 16r79 -> Character pageDown. "#'kVK_PageDown'" + 16r7A -> #F1. "#'kVK_F1'" + 16r7B -> Character arrowLeft. "#'kVK_LeftArrow'" + 16r7C -> Character arrowRight. "#'kVK_RightArrow'" + 16r7D -> Character arrowDown. "#'kVK_DownArrow'" + 16r7E -> Character arrowUp. "#'kVK_UpArrow'" + 16r0A -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'kVK_ISO_Section']). + 16r5D -> #'kVK_JIS_Yen'. + 16r5E -> #'kVK_JIS_Underscore'. + 16r5F -> #'kVK_JIS_KeypadComma'. + 16r66 -> #'kVK_JIS_Eisu'. + 16r68 -> #'kVK_JIS_Kana'. + }! Item was added: + ----- Method: EventSensor class>>virtualKeysOnWindows (in category 'virtual keys') ----- + virtualKeysOnWindows + "https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes + + Tweaked to Windows 10 Version 20H2 (Build 19042.928) + Microsoft Surface Pro 6 (GERMAN)" + + ^ { + + 16r01 -> Character home. "#'VK_HOME'" "Overshadows #'VK_LBUTTON' --- Left mouse button" + 16r02 -> #'VK_RBUTTON'. "Right mouse button" + 16r03 -> #'VK_CANCEL'. "Control-break processing" + 16r04 -> Character end. "#'VK_END'" "Overshadows #'VK_MBUTTON' --- Middle mouse button" + 16r05 -> Character insert. "#'VK_INSERT'" "Overshadows #'VK_XBUTTON1' --- X1 mouse button" + 16r06 -> #'VK_XBUTTON2'. "X2 mouse button" + 16r07 -> nil. + 16r08 -> Character backspace. "#'VK_BACK'" + 16r09 -> Character tab. "#'VK_TAB'" + 16r0A -> nil. + 16r0B -> Character pageUp. "#'VK_PRIOR'" "PAGE UP key" + 16r0C -> Character pageDown. "#'VK_NEXT'" "PAGE DOWN key --- overshadows #'VK_CLEAR'" + 16r0D -> Character return. "#'VK_RETURN'" "ENTER key" + 16r0E -> nil. + 16r0F -> nil. + 16r10 -> #shift. "#'VK_SHIFT'" + 16r11 -> (self mapControlKeysToCommandKeys ifTrue: [#command] ifFalse: [#control]). "#'VK_CONTROL'" + 16r12 -> (self mapAltKeysToOptionKeys ifTrue: [#option] ifFalse: [#command "aka. #alt"]). "#'VK_MENU'" + 16r13 -> #'VK_PAUSE'. + 16r14 -> #capsLock. "#'VK_CAPITAL'" + 16r15 -> #'VK_KANA'. "IME Kana/Hangul mode" + 16r16 -> #'VK_IME_ON'. "IME on" + 16r17 -> #'VK_JUNJA'. "IMA Junja mode" + 16r18 -> #'VK_FINAL'. "IME final mode" + 16r19 -> #'VK_KANJI'. "IME Kanji/Hanja mode" + 16r1A -> #'VK_IME_OFF'. "IME off" + 16r1B -> Character escape. "#'VK_ESCAPE'" + 16r1C -> Character arrowLeft. "#'VK_LEFT'" "LEFT ARROW. Overshadows #'VK_CONVERT' --- IME convert" + 16r1D -> Character arrowRight. "#'VK_RIGHT'" "RIGHT ARROW. Overshadows 'VK_NONCONVERT' --- IME nonconvert" + 16r1E -> Character arrowUp. "#'VK_UP'" "UP ARROW. Overshadows #'VK_ACCEPT' --- IME accept" + 16r1F -> Character arrowDown. "#'VK_DOWN'" "DOWN ARROW. Overshadows #'VK_MODECHANGE' --- IME mode change request" + 16r20 -> Character space. "#'VK_SPACE'" "SPACEBAR" + 16r21 -> #'VK_PRIOR'. "PAGE UP key. Not needed. See 16r0B" + 16r22 -> #'VK_NEXT'. "PAGE DOWN key. Not needed. See 16r0C" + 16r23 -> #'VK_END'. "Not needed. See 16r04" + 16r24 -> #'VK_HOME'. "Not needed. See 16r01" + 16r25 -> #'VK_LEFT'. "LEFT ARROW. Not needed. See 16r1C" + 16r26 -> #'VK_UP'. "UP ARROW. Not needed. See 16r1E" + 16r27 -> #'VK_RIGHT'. "RIGHT ARROW. Not needed. See 16r1D" + 16r28 -> #'VK_DOWN'. "DOWN ARROW. Not needed. See 16r1F" + 16r29 -> #'VK_SELECT'. + 16r2A -> #'VK_PRINT'. + 16r2B -> #'VK_EXECUTE'. + 16r2C -> #'VK_SNAPSHOT'. "PRINT SCREEN key" + 16r2D -> #'VK_INSERT'. "Not needed. See 16r05" + 16r2E -> #F16. "#'VK_F16' swapped with #'VK_DELETE'. See 16r7F" + 16r2F -> #help. "#'VK_HELP'" + 16r30 -> $0. + 16r31 -> $1. + 16r32 -> $2. + 16r33 -> $3. + 16r34 -> $4. + 16r35 -> $5. + 16r36 -> $6. + 16r37 -> $7. + 16r38 -> $8. + 16r39 -> $9. + 16r3A -> nil. + 16r3B -> nil. + 16r3C -> nil. + 16r3D -> nil. + 16r3E -> nil. + 16r3F -> nil. + 16r40 -> nil. + 16r41 -> $A. + 16r42 -> $B. + 16r43 -> $C. + 16r44 -> $D. + 16r45 -> $E. + 16r46 -> $F. + 16r47 -> $G. + 16r48 -> $H. + 16r49 -> $I. + 16r4A -> $J. + 16r4B -> $K. + 16r4C -> $L. + 16r4D -> $M. + 16r4E -> $N. + 16r4F -> $O. + 16r50 -> $P. + 16r51 -> $Q. + 16r52 -> $R. + 16r53 -> $S. + 16r54 -> $T. + 16r55 -> $U. + 16r56 -> $V. + 16r57 -> $W. + 16r58 -> $X. + 16r59 -> $Y. + 16r5A -> $Z. + 16r5B -> #'VK_LWIN'. "Left Windows key" + 16r5C -> #'VK_RWIN'. "Right windows key" + 16r5D -> #'VK_APPS'. "Applications key" + 16r5E -> nil. + 16r5F -> #'VK_SLEEP'. "Computer Sleep Key" + 16r60 -> #num0. "#'VK_NUMPAD0'" + 16r61 -> #num1. "#'VK_NUMPAD1'" + 16r62 -> #num2. "#'VK_NUMPAD2'" + 16r63 -> #num3. "#'VK_NUMPAD3'" + 16r64 -> #num4. "#'VK_NUMPAD4'" + 16r65 -> #num5. "#'VK_NUMPAD5'" + 16r66 -> #num6. "#'VK_NUMPAD6'" + 16r67 -> #num7. "#'VK_NUMPAD7'" + 16r68 -> #num8. "#'VK_NUMPAD8'" + 16r69 -> #num9. "#'VK_NUMPAD9'" + 16r6A -> #numMul. "#'VK_MULTIPLY'" + 16r6B -> #numAdd. "#'VK_ADD'" + 16r6C -> #'VK_SEPARATOR'. + 16r6D -> #numSub. "#'VK_SUBTRACT'" + 16r6E -> #numDec. "#'VK_DECIMAL'" + 16r6F -> #numDiv. "#'VK_DIVIDE'" + 16r70 -> #F1. "#'VK_F1'" + 16r71 -> #F2. "#'VK_F2'" + 16r72 -> #F3. "#'VK_F3'" + 16r73 -> #F4. "#'VK_F4'" + 16r74 -> #F5. "#'VK_F5'" + 16r75 -> #F6. "#'VK_F6'" + 16r76 -> #F7. "#'VK_F7'" + 16r77 -> #F8. "#'VK_F8'" + 16r78 -> #F9. "#'VK_F9'" + 16r79 -> #F10. "#'VK_F10'" + 16r7A -> #F11. "#'VK_F11'" + 16r7B -> #F12. "#'VK_F12'" + 16r7C -> #F13. "#'VK_F13'" + 16r7D -> #F14. "#'VK_F14'" + 16r7E -> #F15. "#'VK_F15'" + 16r7F -> Character delete. "#'VK_DELETE' swapped with #'VK_F16'. See 16r2E" + 16r80 -> #F17. "#'VK_F17'" + 16r81 -> #F18. "#'VK_F18'" + 16r82 -> #F19. "#'VK_F19'" + 16r83 -> #F20. "#'VK_F20'" + 16r84 -> #F21. "#'VK_F21'" + 16r85 -> #F22. "#'VK_F22'" + 16r86 -> #F23. "#'VK_F23'" + 16r87 -> #F24. "#'VK_F24'" + 16r88 -> nil. + 16r89 -> nil. + 16r8A -> nil. + 16r8B -> nil. + 16r8C -> nil. + 16r8D -> nil. + 16r8E -> nil. + 16r8F -> nil. + 16r90 -> #'VK_NUMLOCK'. + 16r91 -> #'VK_SCROLL'. + 16r92 -> nil. + 16r93 -> nil. + 16r94 -> nil. + 16r95 -> nil. + 16r96 -> nil. + 16r97 -> nil. + 16r98 -> nil. + 16r99 -> nil. + 16r9A -> nil. + 16r9B -> nil. + 16r9C -> nil. + 16r9D -> nil. + 16r9E -> nil. + 16r9F -> nil. + 16rA0 -> #'VK_LSHIFT'. + 16rA1 -> #'VK_RSHIFT'. + 16rA2 -> #'VK_LCONTROL'. + 16rA3 -> #'VK_RCONTROL'. + 16rA4 -> #'VK_LMENU'. + 16rA5 -> #'VK_RMENU'. + 16rA6 -> #'VK_BROWSER_BACK'. + 16rA7 -> #'VK_BROWSER_FORWARD'. + 16rA8 -> #'VK_BROWSER_REFRESH'. + 16rA9 -> #'VK_BROWSER_STOP'. + 16rAA -> #'VK_BROWSER_SEARCH'. + 16rAB -> #'VK_BROWSER_FAVORITES'. + 16rAC -> #'VK_BROWSER_HOME'. + 16rAD -> #'VK_VOLUME_MUTE'. + 16rAE -> #'VK_VOLUME_DOWN'. + 16rAF -> #'VK_VOLUME_UP'. + 16rB0 -> #'VK_MEDIA_NEXT_TRACK'. + 16rB1 -> #'VK_MEDIA_PREV_TRACK'. + 16rB2 -> #'VK_MEDIA_STOP'. + 16rB3 -> #'VK_MEDIA_PLAY_PAUSE'. + 16rB4 -> #'VK_LAUNCH_MAIL'. + 16rB5 -> #'VK_LAUNCH_MEDIA_SELECT'. + 16rB6 -> #'VK_LAUNCH_APP1'. + 16rB7 -> #'VK_LAUNCH_APP2'. + 16rB8 -> nil. + 16rB9 -> nil. + + 16rBA -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'VK_OEM_1']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the ;: key" + + 16rBB -> (self simplifyVirtualKeyCodes ifTrue: [#squeak2] ifFalse: [#'VK_OEM_PLUS']). + "For any country/region, the + key -- mt. Haha. You wish." + + 16rBC -> #squeakComma. "#'VK_OEM_COMMA'" "For any country/region, the , key" + + 16rBD -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'VK_OEM_MINUS']). + "For any country/region, the - key" + + 16rBE -> #squeakPeriod. "#'VK_OEM_PERIOD'" "For any country/region, the . key" + + 16rBF -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'VK_OEM_2']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the /? key" + + 16rC0 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'VK_OEM_3']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the `~ key'" + + 16rC1 -> nil. + 16rC2 -> nil. + 16rC3 -> nil. + 16rC4 -> nil. + 16rC5 -> nil. + 16rC6 -> nil. + 16rC7 -> nil. + 16rC8 -> nil. + 16rC9 -> nil. + 16rCA -> nil. + 16rCB -> nil. + 16rCC -> nil. + 16rCD -> nil. + 16rCE -> nil. + 16rCF -> nil. + 16rD0 -> nil. + 16rD1 -> nil. + 16rD2 -> nil. + 16rD3 -> nil. + 16rD4 -> nil. + 16rD5 -> nil. + 16rD6 -> nil. + 16rD7 -> nil. + 16rD8 -> nil. + 16rD9 -> nil. + 16rDA -> nil. + + 16rDB -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'VK_OEM_4']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the [{ key" + + 16rDC -> (self simplifyVirtualKeyCodes ifTrue: [#squeak1] ifFalse: [#'VK_OEM_5']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the \| key" + + 16rDD -> (self simplifyVirtualKeyCodes ifTrue: [#squeak2] ifFalse: [#'VK_OEM_6']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the ]} key" + + 16rDE -> (self simplifyVirtualKeyCodes ifTrue: [#squeak3] ifFalse: [#'VK_OEM_7']). + "Used for miscellaneous characters; it can vary by keyboard. For the US standard keyboard, the single-quote/double-quote key" + + 16rDF -> #'VK_OEM_8'. + "Used for miscellaneous characters; it can vary by keyboard." + + 16rE0 -> nil. + 16rE1 -> nil. + + 16rE2 -> (self simplifyVirtualKeyCodes ifTrue: [#squeak4] ifFalse: [#'VK_OEM_102']). + "Either the angle bracket key or the backslash key on the RT 102-key keyboard" + + 16rE3 -> nil. + 16rE4 -> nil. + 16rE5 -> #'VK_PROCESSKEY'. "IME PROCESS key" + 16rE6 -> nil. + 16rE7 -> #'VK_PACKET'. "Used to pass Unicode characters as if they were keystrokes. The VK_PACKET key is the low word of a 32-bit Virtual Key value used for non-keyboard input methods." + 16rE8 -> nil. + 16rE9 -> nil. + 16rEA -> nil. + 16rEB -> nil. + 16rEC -> nil. + 16rED -> nil. + 16rEE -> nil. + 16rEF -> nil. + 16rF0 -> nil. + 16rF1 -> nil. + 16rF2 -> nil. + 16rF3 -> nil. + 16rF4 -> nil. + 16rF5 -> nil. + 16rF6 -> #'VK_ATTN'. + 16rF7 -> #'VK_CRSEL'. + 16rF8 -> #'VK_EXSEL'. + 16rF9 -> #'VK_EREOF'. "Erase EOF key" + 16rFA -> #'VK_PLAY'. + 16rFB -> #'VK_ZOOM'. + 16rFC -> #'VK_NONAME'. "Reserved" + 16rFD -> #'VK_PA1'. + 16rFE -> #'VK_OEM_CLEAR'. "Clear key" + + }! Item was added: + ----- Method: EventSensor class>>virtualKeysOnX11 (in category 'virtual keys') ----- + virtualKeysOnX11 + "Based on the OSVM X11 code as of 202104182333" + "https://code.woboq.org/kde/include/X11/keysymdef.h.html" + + "!!!!!! There are non-printable control keys for keyDown events on X11. Sigh." + self flag: #todo. "Linux VM is broken. We need scancodes but we get actual character codes. It is really hard to determine physical keys from that." + ^ { + + "Regular ASCII" + 16r41 -> $A. + 16r42 -> $B. + 16r43 -> $C. + 16r44 -> $D. + 16r45 -> $E. + 16r46 -> $F. + 16r47 -> $G. + 16r48 -> $H. + 16r49 -> $I. + 16r4A -> $J. + 16r4B -> $K. + 16r4C -> $L. + 16r4D -> $M. + 16r4E -> $N. + 16r4F -> $O. + 16r50 -> $P. + 16r51 -> $Q. + 16r52 -> $R. + 16r53 -> $S. + 16r54 -> $T. + 16r55 -> $U. + 16r56 -> $V. + 16r57 -> $W. + 16r58 -> $X. + 16r59 -> $Y. + 16r5A -> $Z. + + "Regular ASCII - numbers" + 16r30 -> $0. + 16r31 -> $1. + 16r32 -> $2. + 16r33 -> $3. + 16r34 -> $4. + 16r35 -> $5. + 16r36 -> $6. + 16r37 -> $7. + 16r38 -> $8. + 16r39 -> $9. + + "Mapped to uppercase when SHIFT is pressed ... sigh ..." + 16r61 -> $A. + 16r62 -> $B. + 16r63 -> $C. + 16r64 -> $D. + 16r65 -> $E. + 16r66 -> $F. + 16r67 -> $G. + 16r68 -> $H. + 16r69 -> $I. + 16r6A -> $J. + 16r6B -> $K. + 16r6C -> $L. + 16r6D -> $M. + 16r6E -> $N. + 16r6F -> $O. + 16r70 -> $P. + 16r71 -> $Q. + 16r72 -> $R. + 16r73 -> $S. + 16r74 -> $T. + 16r75 -> $U. + 16r76 -> $V. + 16r77 -> $W. + 16r78 -> $X. + 16r79 -> $Y. + 16r7A -> $Z. + + "most common non-printable control characters" + 16r01 -> Character home. + 16r03 -> Character enter. + 16r04 -> Character end. + 16r05 -> Character insert. + 16r08 -> Character backspace. + 16r09 -> Character tab. + 16r0B -> Character pageUp. + 16r0C -> Character pageDown. + 16r0D -> Character return. + 16r1B -> Character escape. + 16r1C -> Character arrowLeft. + 16r1D -> Character arrowRight. + 16r1E -> Character arrowUp. + 16r1F -> Character arrowDown. + 16r20 -> Character space. + + 16r7F -> Character delete. + + "Physical modifier keys" + 16rF7 -> (self mapAltKeysToOptionKeys ifTrue: [#option] ifFalse: [#command "aka. #alt"]). "#'XK_Alt_L'" + 16rFE -> #shift. "#'XK_Shift_R'" + 16rFF -> #shift. "#'XK_Shift_L'." + 16rFA -> (self mapControlKeysToCommandKeys ifTrue: [#command] ifFalse: [#control]). "#'XK_Control_R'" + 16rFB -> (self mapControlKeysToCommandKeys ifTrue: [#command] ifFalse: [#control]). "#'XK_Control_L'." + 16rFD -> #capsLock. "#'XK_Caps_Lock'." + + "Try to make sense of some other key characters. Hmpf." + 16r22 -> #squeak1. + 16r23 -> #squeak1. + 16r27 -> #squeak1. + 16r2D -> #squeak1. + 16r2F -> #squeak1. + 16r3A -> #squeak1. + 16r3B -> #squeak1. + 16r3C -> #squeak1. + 16r3E -> #squeak1. + 16r3F -> #squeak1. + 16r5B -> #squeak1. + 16r5C -> #squeak1. + 16r5E -> #squeak1. + 16r5F -> #squeak1. + 16r60 -> #squeak1. + 16r7B -> #squeak1. + 16r7C -> #squeak1. + 16r7E -> #squeak1. + 16rC2 -> #squeak1. + 16rC3 -> #squeak1. + + 16r2A -> #squeak2. + 16r2B -> #squeak2. + 16r3D -> #squeak2. + 16r5D -> #squeak2. + 16r7D -> #squeak2. + + 16r2C -> #squeakComma. + 16r2E -> #squeakPeriod. + + }! Item was changed: ----- Method: EventSensor>>processEvent: (in category 'private-I/O') ----- processEvent: evt "Process a single event. This method is run at high priority." | type buttons window | type := evt at: 1. lastEventTime := evt at: 2. "Only process main window events, forward others to host window proxies" window := evt at: 8. (window isNil or: [window isZero]) ifTrue: [window := 1. evt at: 8 put: window]. window = 1 ifFalse: [ ^Smalltalk at: #HostWindowProxy ifPresent: [:w | w processEvent: evt]]. "Tackle mouse events and mouse wheel events first" (type = EventTypeMouse or: [type = EventTypeMouseWheel]) ifTrue: [buttons := (ButtonDecodeTable at: (evt at: 5) + 1). evt at: 5 put: (Smalltalk platformName = 'Mac OS' ifTrue: [ buttons ] ifFalse: [ self mapButtons: buttons modifiers: (evt at: 6) ]). self queueEvent: evt. type = EventTypeMouseWheel ifTrue: [^ self processMouseWheelEvent: evt]. type = EventTypeMouse ifTrue: [^ self processMouseEvent: evt]]. "Store the event in the queue if there's any" type = EventTypeKeyboard ifTrue: [ "Check if the event is a user interrupt" ((evt at: 4) = EventKeyChar and: [((evt at: 3) bitOr: (((evt at: 5) bitAnd: 8) bitShift: 8)) = interruptKey]) ifTrue: ["interrupt key is meta - not reported as event" ^ interruptSemaphore signal]. "Decode keys for characters (e.g., map ctrl -> cmd)." (evt at: 4) = EventKeyChar ifTrue: [ | unicode ascii | "Copy lookup key first in case of key swap." unicode := {evt at: 6. evt at: 5}. ascii := {evt at: 3. evt at: 5}. KeyDecodeTable "Unicode character first" at: unicode ifPresent: [:a | evt at: 6 put: a first; at: 5 put: a second]. KeyDecodeTable "ASCII character second" at: ascii ifPresent: [:a | evt at: 3 put: a first; + at: 5 put: a second]] + ifFalse: ["Replace modifiers for virtual keys. (keyUp/keyDown)" + VirtualKeyTable + at: ((evt at: 5) bitShift: 8) + ifPresent: [:a | evt at: 5 put: a]]. - at: 5 put: a second]]. self queueEvent: evt. self processKeyboardEvent: evt . ^self ]. "Handle all events other than Keyboard or Mouse." self queueEvent: evt. ! Item was changed: + (PackageInfo named: 'Kernel') postscript: 'EventSensor initialize.. + EventSensor startUp..'! - (PackageInfo named: 'Kernel') postscript: 'EventSensor initialize. - EventSensor startUp.'!

1 0

The Trunk: Graphics-eem.449.mcz
by commits＠source.squeak.org 17 Jun '21

17 Jun '21

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.449.mcz ==================== Summary ==================== Name: Graphics-eem.449 Author: eem Time: 17 June 2021, 10:46:52.453492 am UUID: b792d8b6-a478-4227-9a11-c89a70cb3622 Ancestors: Graphics-mt.448 Simplify initializing Forms and allow 64-bit arrays to be used as bitmaps. =============== Diff against Graphics-mt.448 =============== Item was changed: ----- Method: Form>>bitsSize (in category 'accessing') ----- bitsSize + | pixelsPerWord | + depth ifNil: [depth := 1]. + pixelsPerWord := 32 // self depth. + ^width + pixelsPerWord - 1 // pixelsPerWord * height! - | pixPerWord | - depth == nil ifTrue: [depth := 1]. - pixPerWord := 32 // self depth. - ^ width + pixPerWord - 1 // pixPerWord * height! Item was changed: ----- Method: Form>>setExtent:depth:bits: (in category 'private') ----- setExtent: extent depth: bitsPerPixel bits: bitmap "Create a virtual bit map with the given extent and bitsPerPixel." + | bitsClass | + (width := extent x asInteger) < 0 ifTrue: [width := 0]. + (height := extent y asInteger) < 0 ifTrue: [height := 0]. - - width := extent x asInteger. - width < 0 ifTrue: [width := 0]. - height := extent y asInteger. - height < 0 ifTrue: [height := 0]. depth := bitsPerPixel. - depth := bitsPerPixel. (bits isNil + or: [(bitsClass := bits class) isBits + and: [self bitsSize * 4 "bytes per pixel" = (bitmap size * bitsClass elementSize)]]) ifFalse: + [^self error: 'Bad dimensions and/or bitmap kind']. - or:[(bitmap class isWords and: [self bitsSize = bitmap size]) - or: [bitmap class isBytes and: [self bitsSize * 4 = bitmap size]]]) - ifFalse:[^self error:'Bad dimensions']. bits := bitmap!

1 0

Error: All SqueakMap master servers are down
by Thiede, Christoph 17 Jun '21

17 Jun '21

Hi all, SqueakMap does not work today: [cid:b9abfb8b-0dc1-4fad-a145-74f3ad584c26] <http://www.hpi.de/> Is there anyone who could fix a server? :-) Best, Christoph

3 2

Unable to load class with pool dictionary using Monticello
by Thiede, Christoph 16 Jun '21

16 Jun '21

Hi all, while loading a class (MyClass) with an attached pool dictionary (MyPool) today using Monticello, I encountered an error from MCPackageLoader which states: Warning: This package depends on the following classes: MyPool This error message does not make sense to me since MyPool is not a class but a pool dictionary. But in MCClassDefinition >> #requirements, all #poolDictionaries are explicitly added to the list of required items. If I exclude them from this list, I get a warning "The pool dictionary MyPool does not exist. Do you want it automatically created?" later from Class >> #sharing:. Is this a bug? I also tried to manually add the pool dictionary initialization (Smalltalk at: #MyPool put: Dictionary new) into the preamble of the package, but this preamble is also evaluated too late (i.e., not before the dependency warning is raised. Also, this feels a bit too redundant to me. Do we need a new subclass of MCDefinition to create pool dictionaries automatically? Or could we just remove the confirmation dialog in Class >> #sharing: so that new pools will automatically be created, especially in non-interactive CI contexts? Best, Christoph <http://www.hpi.de/>

6 7

The Inbox: Morphic-ct.1774.mcz
by commits＠source.squeak.org 15 Jun '21

15 Jun '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1774.mcz ==================== Summary ==================== Name: Morphic-ct.1774 Author: ct Time: 15 June 2021, 6:50:38.559902 pm UUID: f5614a67-386a-ee4c-9683-44b338df60dd Ancestors: Morphic-mt.1773 Allows models to honor the currently hovered column position in a PluggableMultiColumnListMorph for mouse actions such as tool-tips or double-click events. Usage examples: multiColumnList getHelpSelector: #helpAtRow:atColumn:. multiColumnList doubleClickSelector: #doubleClickColumn:. =============== Diff against Morphic-mt.1773 =============== Item was changed: PluggableListMorph subclass: #PluggableMultiColumnListMorph + instanceVariableNames: 'listMorphs hoverColumn' - instanceVariableNames: 'listMorphs' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableMultiColumnListMorph commentStamp: '<historical>' prior: 0! This morph can be used to show a list having multiple columns, The columns are self width sized to make the largest entry in each list fit. In some cases the pane may then be too narrow. Use it like a regular PluggableListMorph except pass in an array of lists instead of a single list. There are base assumptions made here that each list in the array of lists is the same size. Also, the highlight color for the selection is easy to modify in the #highlightSelection method. I used blue when testing just to see it work.! Item was added: + ----- Method: PluggableMultiColumnListMorph>>balloonText (in category 'accessing') ----- + balloonText + + | columnIndex modelIndex selector | + selector := self getHelpSelector ifNil: [^ super balloonText]. + (self model respondsTo: selector) ifFalse: [^ nil]. + + modelIndex := self modelIndexFor: self hoverRow. + modelIndex > 0 ifFalse: [^ nil]. + columnIndex := self hoverColumn. + columnIndex > 0 ifFalse: [^ nil]. + ^ self model perform: selector withEnoughArguments: {modelIndex. columnIndex}! Item was added: + ----- Method: PluggableMultiColumnListMorph>>columnAtLocation: (in category 'accessing - items') ----- + columnAtLocation: aPoint + "Return the index of the column at the given point or 0 if outside" + + | pointInListMorphCoords | + pointInListMorphCoords := (self scroller transformFrom: self) transform: aPoint. + + ^ listMorphs findFirst: [:listMorph | + pointInListMorphCoords x between: listMorph left and: listMorph right]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>doubleClick: (in category 'event handling') ----- + doubleClick: event + + | rowIndex columnIndex | + doubleClickSelector ifNil: [^ super doubleClick: event]. + + rowIndex := self rowAtLocation: event position. + rowIndex = 0 ifTrue: [^ super doubleClick: event]. + columnIndex := self columnAtLocation: event position. + "selectedMorph ifNil: [self setSelectedMorph: aMorph]." + ^ self model perform: doubleClickSelector withEnoughArguments: {columnIndex}! Item was added: + ----- Method: PluggableMultiColumnListMorph>>handleMouseMove: (in category 'events-processing') ----- + handleMouseMove: anEvent + + anEvent wasHandled ifTrue: [^ self]. + + super handleMouseMove: anEvent. + + self hoverColumn: (self columnAtLocation: anEvent position).! Item was added: + ----- Method: PluggableMultiColumnListMorph>>hoverColumn (in category 'accessing') ----- + hoverColumn + + ^ hoverColumn ifNil: [0]! Item was added: + ----- Method: PluggableMultiColumnListMorph>>hoverColumn: (in category 'accessing') ----- + hoverColumn: viewIndex + + hoverColumn := viewIndex. + + self wantsBalloon ifTrue: [ + self activeHand + removePendingBalloonFor: self; + triggerBalloonFor: self after: self balloonHelpDelayTime].! Item was changed: ----- Method: PluggableMultiColumnListMorph>>hoverRow: (in category 'accessing') ----- hoverRow: viewIndex hoverRow = viewIndex ifTrue: [^ self]. + hoverRow = 0 ifTrue: [self hoverColumn: 0]. listMorphs do: [:listMorph | listMorph rowChanged: hoverRow with: viewIndex]. super hoverRow: viewIndex.!

1 0

The Inbox: Morphic-ct.1773.mcz
by commits＠source.squeak.org 15 Jun '21

15 Jun '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1773.mcz ==================== Summary ==================== Name: Morphic-ct.1773 Author: ct Time: 15 June 2021, 4:00:56.918222 pm UUID: ba7ea6ab-c067-de4a-8f66-ce6a218d4ae5 Ancestors: Morphic-mt.1771 Complements System-ct.1236. =============== Diff against Morphic-mt.1771 =============== Item was changed: ----- Method: SystemWindow class>>windowsIn:satisfying: (in category 'top window') ----- + windowsIn: aWorldOrNil satisfying: windowBlock - windowsIn: aWorld satisfying: windowBlock | windows | windows := OrderedCollection new. + aWorldOrNil ifNil: [^windows]. "opening MVC in Morphic - WOW!!" + aWorldOrNil submorphs do: - aWorld ifNil: [^windows]. "opening MVC in Morphic - WOW!!" - aWorld submorphs do: [:m | | s | ((m isSystemWindow) and: [windowBlock value: m]) ifTrue: [windows addLast: m] ifFalse: [((m isKindOf: TransformationMorph) and: [m submorphs size = 1]) ifTrue: [s := m firstSubmorph. ((s isSystemWindow) and: [windowBlock value: s]) ifTrue: [windows addLast: s]]]]. ^ windows!

1 0

The Trunk: Morphic-mt.1773.mcz
by commits＠source.squeak.org 14 Jun '21

14 Jun '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1773.mcz ==================== Summary ==================== Name: Morphic-mt.1773 Author: mt Time: 14 June 2021, 8:31:51.352374 am UUID: d4056dd6-8c5f-e045-9c9a-b6b4b34b42a3 Ancestors: Morphic-ct.1772 Adds explanation about why not sending super in the recent selectionIndex: fix. =============== Diff against Morphic-ct.1772 =============== Item was changed: ----- Method: PluggableMultiColumnListMorph>>selectionIndex: (in category 'selection') ----- selectionIndex: viewIndex listMorphs do: [:listMorph | listMorph selectedRow: (viewIndex min: self listSize)]. + "ct: As per the invariant defined in #setListParameters, listMorphs always includes listMorph. Subsequently, every super send in #selectionIndex: would be without effect because #selectionIndex already has been updated in the child class. Since selection highlighting is also not relevant for multi-column list morphs (this hook is only used by SimpleHierarchicalListMorph), we can refuse this bequest but send #scrollSelectionIntoView manually." self scrollSelectionIntoView.!

1 0

← Newer
1
...
9
10
11
12
13
14
15
Older →

Jump to page: