equal
deleted
inserted
replaced
6774 "/ shiftDown ifTrue:[ |
6774 "/ shiftDown ifTrue:[ |
6775 "/ xlatedKey := 'Shift' , s |
6775 "/ xlatedKey := 'Shift' , s |
6776 "/]. |
6776 "/]. |
6777 |
6777 |
6778 "/ sigh: twoByteSymbols are not (yet) allowed |
6778 "/ sigh: twoByteSymbols are not (yet) allowed |
6779 xlatedKey bitsPerCharacter == 8 ifTrue:[ |
6779 xlatedKey isWideString ifFalse:[ |
6780 xlatedKey := xlatedKey asSymbol |
6780 xlatedKey := xlatedKey asSymbol |
6781 ]. |
6781 ]. |
6782 ]. |
6782 ]. |
6783 ]. |
6783 ]. |
6784 |
6784 |
6814 "/ translate via keyboardMap |
6814 "/ translate via keyboardMap |
6815 |
6815 |
6816 xlatedKey := aView keyboardMap valueFor:xlatedKey. |
6816 xlatedKey := aView keyboardMap valueFor:xlatedKey. |
6817 xlatedKey notNil ifTrue:[ |
6817 xlatedKey notNil ifTrue:[ |
6818 xlatedKey isCharacter ifFalse:[ |
6818 xlatedKey isCharacter ifFalse:[ |
6819 xlatedKey bitsPerCharacter == 8 ifTrue:[ |
6819 xlatedKey isWideString ifFalse:[ |
6820 xlatedKey := xlatedKey asSymbol |
6820 xlatedKey := xlatedKey asSymbol |
6821 ] |
6821 ] |
6822 ] |
6822 ] |
6823 ]. |
6823 ]. |
6824 ^ xlatedKey |
6824 ^ xlatedKey |
8173 ! ! |
8173 ! ! |
8174 |
8174 |
8175 !DeviceWorkstation class methodsFor:'documentation'! |
8175 !DeviceWorkstation class methodsFor:'documentation'! |
8176 |
8176 |
8177 version |
8177 version |
8178 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.572 2012-11-27 17:42:56 ab Exp $' |
8178 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.573 2012-12-12 23:00:01 stefan Exp $' |
8179 ! |
8179 ! |
8180 |
8180 |
8181 version_CVS |
8181 version_CVS |
8182 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.572 2012-11-27 17:42:56 ab Exp $' |
8182 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.573 2012-12-12 23:00:01 stefan Exp $' |
8183 ! ! |
8183 ! ! |
8184 |
8184 |
8185 DeviceWorkstation initialize! |
8185 DeviceWorkstation initialize! |