[Pkg] The Trunk: Morphic-mt.1758.mcz

[commits at source.squeak.org]

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)]]]!