equal
deleted
inserted
replaced
6707 ]. |
6707 ]. |
6708 altDown ifTrue:[ |
6708 altDown ifTrue:[ |
6709 xlatedKey := 'Alt' , s |
6709 xlatedKey := 'Alt' , s |
6710 ]. |
6710 ]. |
6711 xlatedKey isCharacter ifFalse:[ |
6711 xlatedKey isCharacter ifFalse:[ |
6712 shiftDown ifTrue:[ |
6712 "/ no - breaks a lot of code which is not prepared for that |
6713 xlatedKey := 'Shift' , s |
6713 "/ and checks shiftDown instead... |
6714 ]. |
6714 "/ shiftDown ifTrue:[ |
|
6715 "/ xlatedKey := 'Shift' , s |
|
6716 "/]. |
|
6717 |
6715 "/ sigh: twoByteSymbols are not (yet) allowed |
6718 "/ sigh: twoByteSymbols are not (yet) allowed |
6716 xlatedKey bitsPerCharacter == 8 ifTrue:[ |
6719 xlatedKey bitsPerCharacter == 8 ifTrue:[ |
6717 xlatedKey := xlatedKey asSymbol |
6720 xlatedKey := xlatedKey asSymbol |
6718 ]. |
6721 ]. |
6719 ]. |
6722 ]. |
6720 ]. |
6723 ]. |
6721 |
6724 |
6722 ^ xlatedKey |
6725 ^ xlatedKey |
6723 |
6726 |
6724 "Modified: / 04-10-2011 / 19:30:50 / cg" |
6727 "Modified (format): / 05-10-2011 / 13:51:49 / cg" |
6725 ! |
6728 ! |
6726 |
6729 |
6727 translateKey:untranslatedKey forView:aView |
6730 translateKey:untranslatedKey forView:aView |
6728 "Return the key translated via the translation table. |
6731 "Return the key translated via the translation table. |
6729 Your application program should never depend on the values returned |
6732 Your application program should never depend on the values returned |
8110 ! ! |
8113 ! ! |
8111 |
8114 |
8112 !DeviceWorkstation class methodsFor:'documentation'! |
8115 !DeviceWorkstation class methodsFor:'documentation'! |
8113 |
8116 |
8114 version |
8117 version |
8115 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.561 2011-10-04 17:34:11 cg Exp $' |
8118 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.562 2011-10-05 11:51:54 cg Exp $' |
8116 ! |
8119 ! |
8117 |
8120 |
8118 version_CVS |
8121 version_CVS |
8119 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.561 2011-10-04 17:34:11 cg Exp $' |
8122 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.562 2011-10-05 11:51:54 cg Exp $' |
8120 ! ! |
8123 ! ! |
8121 |
8124 |
8122 DeviceWorkstation initialize! |
8125 DeviceWorkstation initialize! |