[etoys-dev] Etoys: Morphic-bf.43.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Sep 7 09:26:32 EDT 2010
Bert Freudenberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-bf.43.mcz
==================== Summary ====================
Name: Morphic-bf.43
Author: bf
Time: 7 September 2010, 3:25:23 pm
UUID: 7984d1e7-786d-411c-8a47-6e91ba9065cb
Ancestors: Morphic-bf.42
SQ-788: showing space keystroke as <space> broke old projects (reverting Morphic-kfr.18)
=============== Diff against Morphic-bf.42 ===============
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 controlKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Ctrl-' ].
self commandKeyPressed ifTrue: [ firstBracket value. aStream nextPutAll: 'Cmd-' ].
(buttons anyMask: 32) ifTrue: [ firstBracket value. aStream nextPutAll: 'Opt-' ].
(self shiftPressed and: [ keyValue between: 1 and: 31 ])
ifTrue: [ firstBracket value. aStream nextPutAll: 'Shift-' ].
(self controlKeyPressed and: [ keyValue <= 26 ])
ifTrue:
[aStream nextPut: (keyValue + $a asciiValue - 1) asCharacter]
ifFalse:
[keyString := (kc caseOf: {
+ [ Character space ] -> [ ' ' ].
- [ 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: $> ]!
More information about the etoys-dev
mailing list