equal
deleted
inserted
replaced
6768 |
6768 |
6769 screenMap := Screen current keyboardMap. |
6769 screenMap := Screen current keyboardMap. |
6770 mappings := screenMap copy. |
6770 mappings := screenMap copy. |
6771 |
6771 |
6772 rawKeys := (mappings mappedKeys collect:[:key | key asString] as:Array) sort. |
6772 rawKeys := (mappings mappedKeys collect:[:key | key asString] as:Array) sort. |
6773 logicalKeys := (rawKeys collect:[:rawKey | (mappings mappingFor: rawKey asSymbol) asString] as:Set) asArray sort. |
6773 logicalKeys := (rawKeys collect:[:rawKey | (mappings mappingFor: rawKey asSymbol) asString] as:Set) asOrderedCollection sort. |
6774 logicalKeys addFirst:(resources string:'* unassigned *'). |
6774 logicalKeys addFirst:(resources string:'* unassigned *'). |
6775 |
6775 |
6776 |
6776 |
6777 self rawKeyList contents: rawKeys. |
6777 self rawKeyList contents: rawKeys. |
6778 self functionKeyList contents: logicalKeys. |
6778 self functionKeyList contents: logicalKeys. |
6779 |
6779 |
6780 self changeMapHolder value:false. |
6780 self changeMapHolder value:false. |
6781 |
6781 |
6782 "Modified: / 24-05-2017 / 21:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6782 "Modified: / 11-09-2017 / 14:47:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
6783 ! |
6783 ! |
6784 |
6784 |
6785 basicSaveSettings |
6785 basicSaveSettings |
6786 self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc') |
6786 self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc') |
6787 ! |
6787 ! |