[Vm-dev] Unicode VM keyboard shortcut...

[Chris Petsos]

Greetings everybody...
Got around with the shortcuts issue and i am posting the solution...
Like i said earlier we'll have to map the Unicode values to the Squeak specific shortcuts.
A simple mapping dictionary did the work...it was less than half an afternoon work...a few buffer prints, some copy paste to a spreadsheet and it's there...So, the UnicodeIputInterpreter has this method...

nextCharFrom: sensor firstEvt: evtBuf

 | keyValue |
" Unicode charCode expected as the sixth data member ! "
 (((evtBuf fifth = 2 or: [evtBuf fifth = 8])) and: [evtBuf sixth > 255])
  ifTrue: [
    keyValue := evtBuf sixth.
    ^ Character value:(((Locale currentPlatform) languageEnvironment) unicodeToLatinCharMap:keyValue).]

  ifFalse: [keyValue := evtBuf sixth.].
"
 Transcript show: evtBuf asString; cr."
 keyValue > 255
 ifTrue: [Transcript show: keyValue asString; cr.].
 ^ keyValue asCharacter.

In my locale specific GreekEnvironment class i have this method ...

unicodeToLatinCharMap: charCode
 | t5 |

 t5:= ShortcutMap at: charCode.
 ^ t5.

Where ShortcutMap is initialised in the class initialisation as following...

initialize
"
 GreekEnvironment initialize
"
 ShortcutMap _ Dictionary new.
ShortcutMap at: 59 put: 113.
ShortcutMap at: 962 put: 119.
ShortcutMap at: 949 put: 101.
ShortcutMap at: 961 put: 114.
ShortcutMap at: 964 put: 116.
ShortcutMap at: 965 put: 121.
ShortcutMap at: 952 put: 117.
ShortcutMap at: 953 put: 105.
ShortcutMap at: 959 put: 111.
ShortcutMap at: 960 put: 112.
ShortcutMap at: 945 put: 97.
ShortcutMap at: 963 put: 115.
ShortcutMap at: 948 put: 100.
ShortcutMap at: 966 put: 102.
ShortcutMap at: 947 put: 103.
ShortcutMap at: 951 put: 104.
ShortcutMap at: 958 put: 106.
ShortcutMap at: 954 put: 107.
ShortcutMap at: 955 put: 108.
ShortcutMap at: 950 put: 122.
ShortcutMap at: 967 put: 120.
ShortcutMap at: 968 put: 99.
ShortcutMap at: 969 put: 118.
ShortcutMap at: 946 put: 98.
ShortcutMap at: 957 put: 110.
ShortcutMap at: 956 put: 109.
ShortcutMap at: 917 put: 101.
ShortcutMap at: 929 put: 114.
ShortcutMap at: 932 put: 116.
ShortcutMap at: 933 put: 121.
ShortcutMap at: 920 put: 117.
ShortcutMap at: 921 put: 105.
ShortcutMap at: 927 put: 111.
ShortcutMap at: 928 put: 112.
ShortcutMap at: 913 put: 97.
ShortcutMap at: 931 put: 115.
ShortcutMap at: 916 put: 100.
ShortcutMap at: 934 put: 102.
ShortcutMap at: 915 put: 103.
ShortcutMap at: 919 put: 104.
ShortcutMap at: 926 put: 106.
ShortcutMap at: 922 put: 107.
ShortcutMap at: 923 put: 108.
ShortcutMap at: 918 put: 122.
ShortcutMap at: 935 put: 120.
ShortcutMap at: 936 put: 99.
ShortcutMap at: 937 put: 118.
ShortcutMap at: 914 put: 98.
ShortcutMap at: 925 put: 110.
ShortcutMap at: 924 put: 109.

This maps every greek keyboard key (small and capital) to the equivelant that Squeak is expecting as shortcut...

In programming terms i don't like this solution...so if anyone has a better idea please post it...
Evening everybody!

Christos.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/vm-dev/attachments/20070605/5a6114b3/attachment-0001.htm