The Trunk: Morphic-mt.1758.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1758.mcz

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

Name: Morphic-mt.1758
Author: mt
Time: 25 April 2021, 8:32:26.219887 am
UUID: 14abcbf1-dfe1-914c-b610-011859985aa8
Ancestors: Morphic-mt.1757

Removes two unused methods from previous commit. Sorry for the noise.

=============== Diff against Morphic-mt.1757 ===============

Item was removed:
- ----- Method: KeyboardEvent>>labelForPhysicalKeyDown (in category 'printing') -----
- labelForPhysicalKeyDown
- "#keyDown and #keyUp -- needs platform-specific mapping for virtual key codes"
-
- ^ (self keyValue <= 32 or: [self keyValue = 127])
- ifFalse: [
- (self keyValue between: 65 and: 90) "Windows"
- ifTrue: [self keyCharacter asUppercase asString]
- ifFalse: ['ASCII-', (self keyValue printPaddedWith: $0 to: 2 base: 10)]]
- ifTrue: [
- 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" ].
- [ 16 ] -> [ 'Shift' translated "Windows only?!!" ].
- [ 17 ] -> [ 'Ctrl' translated "Windows only?!!" ].
- [ 18 ] -> [ 'Alt' "Windows only?!!" ].
- [ 27 ] -> [ 'Esc' ].
- [ 32 ] -> [ 'Space' translated ].
- [ 127 ] -> [ 'Del' translated ].
- } otherwise: [
- 'ASCII-', (self keyValue printPaddedWith: $0 to: 2 base: 10)]]!

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" ].
- [ 16 ] -> [ 'Shift' translated "Windows only?!!" ].
- [ 17 ] -> [ 'Ctrl' translated "Windows only?!!" ].
- [ 18 ] -> [ 'Alt' "Windows only?!!" ].
- [ 27 ] -> [ 'Esc' ].
- [ 32 ] -> [ 'Space' translated ].
- [ 127 ] -> [ 'Del' translated ].
- } otherwise: [
- 'ASCII-', (self keyValue printPaddedWith: $0 to: 2 base: 10)]]]!