github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 05:16:11 +00:00
Code Issues Projects Releases Wiki Activity

VIRTUALKEYBOARD: fix loadup (#1262)

Browse Source 
* VIRTUALKEYBOARD:  fix loadup

* Reorganizing VIRTUALKEYBOARDS as described in #1267

* KEYBOARDEDITOR:  fixed one bug, still is out of step

* Move KEYBOARDCONFIGS KEYBOARDEDIT to library/virtualkeyboards

This collects all files relevant to VIRTUALKEYBOARDS into the same subdirectory
This commit is contained in:
rmkaplan
2023-10-28 14:21:32 -07:00
committed by GitHub
parent bcfeda62e1
commit 5e83d63567
16 changed files with 2582 additions and 1301 deletions
Download Patch File Download Diff File Expand all files Collapse all files

625
library/virtualkeyboards/DANDELIONKEYBOARDS Normal file
View File

@@ -0,0 +1,625 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Jul-2023 08:52:09" {WMEDLEY}<library>virtualkeyboards>DANDELIONKEYBOARDS.;3 33795
:EDIT-BY rmk
:CHANGES-TO (VARS DANDELIONKEYBOARDSCOMS)
:PREVIOUS-DATE " 4-Jul-2023 23:18:05" {WMEDLEY}<library>virtualkeyboards>DANDELIONKEYBOARDS.;2
)
(PRETTYCOMPRINT DANDELIONKEYBOARDSCOMS)
(RPAQQ DANDELIONKEYBOARDSCOMS ((ALISTS (VKBD.LOADED-KEYBOARDS DANDELION))))
(ADDTOVAR VKBD.LOADED-KEYBOARDS
(DANDELION (EUROPEAN ((100 (53 197 NOLOCKSHIFT))
(101 (52 196 NOLOCKSHIFT))
(102 (54 198 NOLOCKSHIFT))
(103 (61887 61759 LOCKSHIFT))
(104 (55 199 NOLOCKSHIFT))
(105 (61888 61760 LOCKSHIFT))
(106 (61872 61744 LOCKSHIFT))
(107 (61860 61732 LOCKSHIFT))
(108 (48 126 NOLOCKSHIFT))
(109 (61892 61764 LOCKSHIFT))
(110 (203 207 NOLOCKSHIFT))
(111 (61919 61791 LOCKSHIFT))
(112 (47 191 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 195 NOLOCKSHIFT))
(117 (50 194 NOLOCKSHIFT))
(118 (61873 61745 LOCKSHIFT))
(119 (61858 61730 LOCKSHIFT))
(120 (61874 61746 LOCKSHIFT))
(121 (61859 61731 LOCKSHIFT))
(122 (57 202 NOLOCKSHIFT))
(123 (61886 61758 LOCKSHIFT))
(124 (61864 61736 LOCKSHIFT))
(125 (61903 61775 LOCKSHIFT))
(126 (61908 61780 LOCKSHIFT))
(127 (241 225 LOCKSHIFT))
(128 (187 170 LOCKSHIFT))
(129 (249 233 LOCKSHIFT))
(132 (49 193 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61905 61777 LOCKSHIFT))
(137 (61869 61741 LOCKSHIFT))
(138 (61877 61749 LOCKSHIFT))
(139 (61906 61778 LOCKSHIFT))
(140 (251 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (250 234 LOCKSHIFT))
(143 (59 58 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (171 186 LOCKSHIFT))
(148 (61904 61776 LOCKSHIFT))
(149 (61920 61792 LOCKSHIFT))
(150 (61921 61793 LOCKSHIFT))
(151 (61857 61729 LOCKSHIFT))
(152 (61863 61735 LOCKSHIFT))
(153 (56 200 NOLOCKSHIFT))
(154 (61900 61772 LOCKSHIFT))
(155 (239 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (246 230 LOCKSHIFT))
(159 (207 176 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(logic ((100 (53 37 NOLOCKSHIFT))
(101 (52 164 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (61258 61260 NOLOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (61292 61293 NOLOCKSHIFT))
(106 (61271 61270 NOLOCKSHIFT))
(107 (61284 61285 NOLOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (61307 61306 NOLOCKSHIFT))
(110 (45 177 NOLOCKSHIFT))
(111 (61269 61268 LOCKSHIFT))
(112 (172 174 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (61240 61241 NOLOCKSHIFT))
(119 (61234 61235 NOLOCKSHIFT))
(120 (61266 61262 NOLOCKSHIFT))
(121 (61365 61365 NOLOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (61275 61274 NOLOCKSHIFT))
(124 (61300 61299 NOLOCKSHIFT))
(125 (61273 61272 NOLOCKSHIFT))
(126 (61282 61283 NOLOCKSHIFT))
(127 (61256 61257 NOLOCKSHIFT))
(128 (61356 61356 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61250 61251 NOLOCKSHIFT))
(137 (61298 61297 NOLOCKSHIFT))
(138 (61305 61303 NOLOCKSHIFT))
(139 (61265 61264 NOLOCKSHIFT))
(140 (61364 61364 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (61281 233 NOLOCKSHIFT))
(143 (61351 61351 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (61357 61357 NOLOCKSHIFT))
(148 (61279 61278 NOLOCKSHIFT))
(149 (61239 61238 NOLOCKSHIFT))
(150 (61290 61290 NOLOCKSHIFT))
(151 (61263 61261 NOLOCKSHIFT))
(152 (61295 61295 NOLOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (61252 61253 NOLOCKSHIFT))
(155 (61254 61255 NOLOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(MATH ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (61284 61285 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (174 61245 NOLOCKSHIFT))
(107 (61369 61363 NOLOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (61254 61255 NOLOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (173 61246 LOCKSHIFT))
(112 (47 61300 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (61282 61283 LOCKSHIFT))
(119 (61287 61286 NOLOCKSHIFT))
(120 (61301 61302 NOLOCKSHIFT))
(121 (61351 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (175 61247 LOCKSHIFT))
(124 (180 184 LOCKSHIFT))
(125 (172 61244 LOCKSHIFT))
(126 (61256 61257 LOCKSHIFT))
(127 (44 61250 NOLOCKSHIFT))
(128 (61298 61253 NOLOCKSHIFT))
(129 (93 61265 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (61356 61362 LOCKSHIFT))
(138 (61254 61291 NOLOCKSHIFT))
(139 (98 61360 NOLOCKSHIFT))
(140 (61309 177 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 61251 NOLOCKSHIFT))
(143 (61299 61252 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 94 NOLOCKSHIFT))
(148 (61358 82 LOCKSHIFT))
(149 (61296 61266 NOLOCKSHIFT))
(150 (61305 61303 NOLOCKSHIFT))
(151 (61308 61267 LOCKSHIFT))
(152 (61288 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (61357 61361 NOLOCKSHIFT))
(155 (61292 61293 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 61264 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(OFFICE ((100 (61397 61381 NOLOCKSHIFT))
(101 (61396 61380 NOLOCKSHIFT))
(102 (61398 61382 NOLOCKSHIFT))
(103 (8557 8554 NOLOCKSHIFT))
(104 (61399 61383 NOLOCKSHIFT))
(105 (61232 8743 NOLOCKSHIFT))
(106 (61346 8571 NOLOCKSHIFT))
(107 (188 86 NOLOCKSHIFT))
(108 (61402 61386 NOLOCKSHIFT))
(109 (210 8738 NOLOCKSHIFT))
(110 (61437 61438 NOLOCKSHIFT))
(111 (163 8558 NOLOCKSHIFT))
(112 (61248 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (61395 61379 NOLOCKSHIFT))
(117 (61394 61378 NOLOCKSHIFT))
(118 (185 8553 NOLOCKSHIFT))
(119 (176 8546 NOLOCKSHIFT))
(120 (167 8744 NOLOCKSHIFT))
(121 (97 8745 NOLOCKSHIFT))
(122 (61401 61385 NOLOCKSHIFT))
(123 (162 8570 NOLOCKSHIFT))
(124 (61437 88 NOLOCKSHIFT))
(125 (111 8569 NOLOCKSHIFT))
(126 (61289 8737 NOLOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(128 (39 34 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (61393 61377 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61233 8742 NOLOCKSHIFT))
(137 (61438 67 NOLOCKSHIFT))
(138 (8739 74 NOLOCKSHIFT))
(139 (190 61436 NOLOCKSHIFT))
(140 (189 90 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (61249 62 NOLOCKSHIFT))
(143 (61352 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 61280 NOLOCKSHIFT))
(148 (212 8574 NOLOCKSHIFT))
(149 (61354 8573 NOLOCKSHIFT))
(150 (61286 8741 NOLOCKSHIFT))
(151 (165 8572 NOLOCKSHIFT))
(152 (61368 8740 NOLOCKSHIFT))
(153 (61400 61384 NOLOCKSHIFT))
(154 (173 175 NOLOCKSHIFT))
(155 (172 174 NOLOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61406 61368 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(DVORAK ((100 (49 42 NOLOCKSHIFT))
(101 (51 41 NOLOCKSHIFT))
(102 (57 37 NOLOCKSHIFT))
(103 (46 62 NOLOCKSHIFT))
(104 (48 38 NOLOCKSHIFT))
(105 (101 69 LOCKSHIFT))
(106 (103 71 LOCKSHIFT))
(107 (107 75 LOCKSHIFT))
(108 (54 45 NOLOCKSHIFT))
(109 (116 84 LOCKSHIFT))
(110 (56 95 NOLOCKSHIFT))
(111 (108 76 LOCKSHIFT))
(112 (122 90 LOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (53 40 NOLOCKSHIFT))
(117 (55 35 NOLOCKSHIFT))
(118 (44 60 NOLOCKSHIFT))
(119 (63 47 NOLOCKSHIFT))
(120 (111 79 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (52 164 NOLOCKSHIFT))
(123 (99 67 LOCKSHIFT))
(124 (113 81 LOCKSHIFT))
(125 (114 82 LOCKSHIFT))
(126 (110 78 LOCKSHIFT))
(127 (119 87 LOCKSHIFT))
(128 (44 186 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (33 64 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (117 85 LOCKSHIFT))
(137 (106 74 LOCKSHIFT))
(138 (104 72 LOCKSHIFT))
(139 (120 88 LOCKSHIFT))
(140 (59 58 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (118 86 LOCKSHIFT))
(143 (115 83 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (169 170 NOLOCKSHIFT))
(148 (112 80 LOCKSHIFT))
(149 (121 89 LOCKSHIFT))
(150 (105 73 LOCKSHIFT))
(151 (102 70 LOCKSHIFT))
(152 (100 68 LOCKSHIFT))
(153 (50 162 NOLOCKSHIFT))
(154 (98 66 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(GREEK ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (9830 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (9829 9797 LOCKSHIFT))
(106 (9849 9817 LOCKSHIFT))
(107 (115 9814 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (9837 9805 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (9843 9811 LOCKSHIFT))
(112 (47 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (9853 9821 LOCKSHIFT))
(119 (9835 9803 LOCKSHIFT))
(120 (9846 9814 LOCKSHIFT))
(121 (9825 9793 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (9836 9804 LOCKSHIFT))
(124 (9851 9819 LOCKSHIFT))
(125 (9842 9810 LOCKSHIFT))
(126 (9838 9806 LOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(128 (39 34 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (9850 9818 LOCKSHIFT))
(137 (9841 9809 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (9826 66 LOCKSHIFT))
(140 (9833 9801 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 62 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 94 NOLOCKSHIFT))
(148 (9845 9813 LOCKSHIFT))
(149 (9848 9816 LOCKSHIFT))
(150 (9828 9796 LOCKSHIFT))
(151 (9852 9820 LOCKSHIFT))
(152 (9834 9802 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (9840 9808 LOCKSHIFT))
(155 (9839 9807 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(ITALIAN ((100 (53 61903 NOLOCKSHIFT))
(101 (52 61886 NOLOCKSHIFT))
(102 (54 61919 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (204 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 61872 NOLOCKSHIFT))
(117 (50 61858 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(128 (39 186 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 170 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(SPANISH ((100 (53 61904 NOLOCKSHIFT))
(101 (52 61887 NOLOCKSHIFT))
(102 (54 61920 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (204 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 61873 NOLOCKSHIFT))
(117 (50 61858 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(128 (59 58 NOLOCKSHIFT))
(129 (203 187 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (61900 61772 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (161 191 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 61925 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (44 171 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(FRENCH ((100 (53 61905 NOLOCKSHIFT))
(101 (52 61888 NOLOCKSHIFT))
(102 (54 61921 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (204 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 61874 NOLOCKSHIFT))
(117 (50 61859 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(128 (39 61857 NOLOCKSHIFT))
(129 (61872 61892 LOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (61869 61741 LOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 61919 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (61873 61877 LOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(GERMAN ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (251 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(128 (39 34 NOLOCKSHIFT))
(129 (61863 61735 LOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 62 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 94 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (61908 61780 LOCKSHIFT))
(159 (61925 61797 LOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)
(STANDARD-RUSSIAN ((100 (34 52 NOLOCKSHIFT))
(101 (47 51 NOLOCKSHIFT))
(102 (58 53 NOLOCKSHIFT))
(103 (10085 10037 LOCKSHIFT))
(104 (44 54 NOLOCKSHIFT))
(105 (10067 10019 LOCKSHIFT))
(106 (10068 10020 LOCKSHIFT))
(107 (10078 10030 LOCKSHIFT))
(108 (63 57 NOLOCKSHIFT))
(109 (10077 10029 LOCKSHIFT))
(110 (37 48 NOLOCKSHIFT))
(111 (10073 10025 LOCKSHIFT))
(112 (10071 10023 LOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (45 50 NOLOCKSHIFT))
(117 (61352 49 NOLOCKSHIFT))
(118 (10088 10040 LOCKSHIFT))
(119 (10075 10027 LOCKSHIFT))
(120 (10093 10045 LOCKSHIFT))
(121 (10086 10038 LOCKSHIFT))
(122 (95 56 NOLOCKSHIFT))
(123 (10090 10042 LOCKSHIFT))
(124 (10089 10041 LOCKSHIFT))
(125 (10091 10043 LOCKSHIFT))
(126 (10069 10021 LOCKSHIFT))
(127 (10066 10018 LOCKSHIFT))
(128 (10095 10047 LOCKSHIFT))
(129 (10092 10044 LOCKSHIFT))
(132 (167 43 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (10065 10017 LOCKSHIFT))
(137 (10083 10035 LOCKSHIFT))
(138 (10080 10032 LOCKSHIFT))
(139 (10074 10026 LOCKSHIFT))
(140 (10097 10049 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (10096 10048 LOCKSHIFT))
(143 (10072 10024 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (41 40 NOLOCKSHIFT))
(148 (10076 10028 LOCKSHIFT))
(149 (10070 10022 LOCKSHIFT))
(150 (10081 10033 LOCKSHIFT))
(151 (10079 10031 LOCKSHIFT))
(152 (10082 10034 LOCKSHIFT))
(153 (46 55 NOLOCKSHIFT))
(154 (10084 10036 LOCKSHIFT))
(155 (10094 10046 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (10087 10039 LOCKSHIFT))
(159 (33 61 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DANDELION)))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP

624
library/virtualkeyboards/DORADOKEYBOARDS Normal file
View File

@@ -0,0 +1,624 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Jul-2023 08:52:15" {WMEDLEY}<library>virtualkeyboards>DORADOKEYBOARDS.;4 33578
:EDIT-BY rmk
:CHANGES-TO (VARS DORADOKEYBOARDSCOMS)
:PREVIOUS-DATE " 4-Jul-2023 23:15:23" {WMEDLEY}<library>virtualkeyboards>DORADOKEYBOARDS.;2)
(PRETTYCOMPRINT DORADOKEYBOARDSCOMS)
(RPAQQ DORADOKEYBOARDSCOMS ((ALISTS (VKBD.LOADED-KEYBOARDS DORADO))))
(ADDTOVAR VKBD.LOADED-KEYBOARDS
(DORADO (EUROPEAN ((100 (53 197 NOLOCKSHIFT))
(101 (52 196 NOLOCKSHIFT))
(102 (54 198 NOLOCKSHIFT))
(103 (61887 61759 LOCKSHIFT))
(104 (55 199 NOLOCKSHIFT))
(105 (61888 61760 LOCKSHIFT))
(106 (61872 61744 LOCKSHIFT))
(107 (61860 61732 LOCKSHIFT))
(108 (48 126 NOLOCKSHIFT))
(109 (61892 61764 LOCKSHIFT))
(110 (203 207 NOLOCKSHIFT))
(111 (61919 61791 LOCKSHIFT))
(112 (47 191 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 195 NOLOCKSHIFT))
(117 (50 194 NOLOCKSHIFT))
(118 (61873 61745 LOCKSHIFT))
(119 (61858 61730 LOCKSHIFT))
(120 (61874 61746 LOCKSHIFT))
(121 (61859 61731 LOCKSHIFT))
(122 (57 202 NOLOCKSHIFT))
(123 (61886 61758 LOCKSHIFT))
(124 (61864 61736 LOCKSHIFT))
(125 (61903 61775 LOCKSHIFT))
(126 (61908 61780 LOCKSHIFT))
(127 (241 225 LOCKSHIFT))
(128 (187 170 LOCKSHIFT))
(129 (249 233 LOCKSHIFT))
(132 (49 193 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61905 61777 LOCKSHIFT))
(137 (61869 61741 LOCKSHIFT))
(138 (61877 61749 LOCKSHIFT))
(139 (61906 61778 LOCKSHIFT))
(140 (251 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (250 234 LOCKSHIFT))
(143 (59 58 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (171 186 LOCKSHIFT))
(148 (61904 61776 LOCKSHIFT))
(149 (61920 61792 LOCKSHIFT))
(150 (61921 61793 LOCKSHIFT))
(151 (61857 61729 LOCKSHIFT))
(152 (61863 61735 LOCKSHIFT))
(153 (56 200 NOLOCKSHIFT))
(154 (61900 61772 LOCKSHIFT))
(155 (239 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (246 230 LOCKSHIFT))
(159 (207 176 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(logic ((100 (53 37 NOLOCKSHIFT))
(101 (52 164 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (61258 61260 NOLOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (61292 61293 NOLOCKSHIFT))
(106 (61271 61270 NOLOCKSHIFT))
(107 (61284 61285 NOLOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (61307 61306 NOLOCKSHIFT))
(110 (45 177 NOLOCKSHIFT))
(111 (61269 61268 LOCKSHIFT))
(112 (172 174 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (61240 61241 NOLOCKSHIFT))
(119 (61234 61235 NOLOCKSHIFT))
(120 (61266 61262 NOLOCKSHIFT))
(121 (61365 61365 NOLOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (61275 61274 NOLOCKSHIFT))
(124 (61300 61299 NOLOCKSHIFT))
(125 (61273 61272 NOLOCKSHIFT))
(126 (61282 61283 NOLOCKSHIFT))
(127 (61256 61257 NOLOCKSHIFT))
(128 (61356 61356 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61250 61251 NOLOCKSHIFT))
(137 (61298 61297 NOLOCKSHIFT))
(138 (61305 61303 NOLOCKSHIFT))
(139 (61265 61264 NOLOCKSHIFT))
(140 (61364 61364 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (61281 233 NOLOCKSHIFT))
(143 (61351 61351 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (61357 61357 NOLOCKSHIFT))
(148 (61279 61278 NOLOCKSHIFT))
(149 (61239 61238 NOLOCKSHIFT))
(150 (61290 61290 NOLOCKSHIFT))
(151 (61263 61261 NOLOCKSHIFT))
(152 (61295 61295 NOLOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (61252 61253 NOLOCKSHIFT))
(155 (61254 61255 NOLOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(MATH ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (61284 61285 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (174 61245 NOLOCKSHIFT))
(107 (61369 61363 NOLOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (61254 61255 NOLOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (173 61246 LOCKSHIFT))
(112 (47 61300 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (61282 61283 LOCKSHIFT))
(119 (61287 61286 NOLOCKSHIFT))
(120 (61301 61302 NOLOCKSHIFT))
(121 (61351 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (175 61247 LOCKSHIFT))
(124 (180 184 LOCKSHIFT))
(125 (172 61244 LOCKSHIFT))
(126 (61256 61257 LOCKSHIFT))
(127 (44 61250 NOLOCKSHIFT))
(128 (61298 61253 NOLOCKSHIFT))
(129 (93 61265 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (61356 61362 LOCKSHIFT))
(138 (61254 61291 NOLOCKSHIFT))
(139 (98 61360 NOLOCKSHIFT))
(140 (61309 177 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 61251 NOLOCKSHIFT))
(143 (61299 61252 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 94 NOLOCKSHIFT))
(148 (61358 82 LOCKSHIFT))
(149 (61296 61266 NOLOCKSHIFT))
(150 (61305 61303 NOLOCKSHIFT))
(151 (61308 61267 LOCKSHIFT))
(152 (61288 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (61357 61361 NOLOCKSHIFT))
(155 (61292 61293 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 61264 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(OFFICE ((100 (61397 61381 NOLOCKSHIFT))
(101 (61396 61380 NOLOCKSHIFT))
(102 (61398 61382 NOLOCKSHIFT))
(103 (8557 8554 NOLOCKSHIFT))
(104 (61399 61383 NOLOCKSHIFT))
(105 (61232 8743 NOLOCKSHIFT))
(106 (61346 8571 NOLOCKSHIFT))
(107 (188 86 NOLOCKSHIFT))
(108 (61402 61386 NOLOCKSHIFT))
(109 (210 8738 NOLOCKSHIFT))
(110 (61437 61438 NOLOCKSHIFT))
(111 (163 8558 NOLOCKSHIFT))
(112 (61248 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (61395 61379 NOLOCKSHIFT))
(117 (61394 61378 NOLOCKSHIFT))
(118 (185 8553 NOLOCKSHIFT))
(119 (176 8546 NOLOCKSHIFT))
(120 (167 8744 NOLOCKSHIFT))
(121 (97 8745 NOLOCKSHIFT))
(122 (61401 61385 NOLOCKSHIFT))
(123 (162 8570 NOLOCKSHIFT))
(124 (61437 88 NOLOCKSHIFT))
(125 (111 8569 NOLOCKSHIFT))
(126 (61289 8737 NOLOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(128 (39 34 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (61393 61377 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61233 8742 NOLOCKSHIFT))
(137 (61438 67 NOLOCKSHIFT))
(138 (8739 74 NOLOCKSHIFT))
(139 (190 61436 NOLOCKSHIFT))
(140 (189 90 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (61249 62 NOLOCKSHIFT))
(143 (61352 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 61280 NOLOCKSHIFT))
(148 (212 8574 NOLOCKSHIFT))
(149 (61354 8573 NOLOCKSHIFT))
(150 (61286 8741 NOLOCKSHIFT))
(151 (165 8572 NOLOCKSHIFT))
(152 (61368 8740 NOLOCKSHIFT))
(153 (61400 61384 NOLOCKSHIFT))
(154 (173 175 NOLOCKSHIFT))
(155 (172 174 NOLOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61406 61368 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(DVORAK ((100 (49 42 NOLOCKSHIFT))
(101 (51 41 NOLOCKSHIFT))
(102 (57 37 NOLOCKSHIFT))
(103 (46 62 NOLOCKSHIFT))
(104 (48 38 NOLOCKSHIFT))
(105 (101 69 LOCKSHIFT))
(106 (103 71 LOCKSHIFT))
(107 (107 75 LOCKSHIFT))
(108 (54 45 NOLOCKSHIFT))
(109 (116 84 LOCKSHIFT))
(110 (56 95 NOLOCKSHIFT))
(111 (108 76 LOCKSHIFT))
(112 (122 90 LOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (53 40 NOLOCKSHIFT))
(117 (55 35 NOLOCKSHIFT))
(118 (44 60 NOLOCKSHIFT))
(119 (63 47 NOLOCKSHIFT))
(120 (111 79 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (52 164 NOLOCKSHIFT))
(123 (99 67 LOCKSHIFT))
(124 (113 81 LOCKSHIFT))
(125 (114 82 LOCKSHIFT))
(126 (110 78 LOCKSHIFT))
(127 (119 87 LOCKSHIFT))
(128 (44 186 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (33 64 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (117 85 LOCKSHIFT))
(137 (106 74 LOCKSHIFT))
(138 (104 72 LOCKSHIFT))
(139 (120 88 LOCKSHIFT))
(140 (59 58 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (118 86 LOCKSHIFT))
(143 (115 83 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (169 170 NOLOCKSHIFT))
(148 (112 80 LOCKSHIFT))
(149 (121 89 LOCKSHIFT))
(150 (105 73 LOCKSHIFT))
(151 (102 70 LOCKSHIFT))
(152 (100 68 LOCKSHIFT))
(153 (50 162 NOLOCKSHIFT))
(154 (98 66 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(GREEK ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (9830 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (9829 9797 LOCKSHIFT))
(106 (9849 9817 LOCKSHIFT))
(107 (115 9814 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (9837 9805 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (9843 9811 LOCKSHIFT))
(112 (47 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (9853 9821 LOCKSHIFT))
(119 (9835 9803 LOCKSHIFT))
(120 (9846 9814 LOCKSHIFT))
(121 (9825 9793 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (9836 9804 LOCKSHIFT))
(124 (9851 9819 LOCKSHIFT))
(125 (9842 9810 LOCKSHIFT))
(126 (9838 9806 LOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(128 (39 34 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (9850 9818 LOCKSHIFT))
(137 (9841 9809 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (9826 66 LOCKSHIFT))
(140 (9833 9801 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 62 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 94 NOLOCKSHIFT))
(148 (9845 9813 LOCKSHIFT))
(149 (9848 9816 LOCKSHIFT))
(150 (9828 9796 LOCKSHIFT))
(151 (9852 9820 LOCKSHIFT))
(152 (9834 9802 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (9840 9808 LOCKSHIFT))
(155 (9839 9807 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(ITALIAN ((100 (53 61903 NOLOCKSHIFT))
(101 (52 61886 NOLOCKSHIFT))
(102 (54 61919 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (204 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 61872 NOLOCKSHIFT))
(117 (50 61858 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(128 (39 186 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 170 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(SPANISH ((100 (53 61904 NOLOCKSHIFT))
(101 (52 61887 NOLOCKSHIFT))
(102 (54 61920 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (204 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 61873 NOLOCKSHIFT))
(117 (50 61858 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(128 (59 58 NOLOCKSHIFT))
(129 (203 187 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (61900 61772 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (161 191 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 61925 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (44 171 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(FRENCH ((100 (53 61905 NOLOCKSHIFT))
(101 (52 61888 NOLOCKSHIFT))
(102 (54 61921 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (204 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 61874 NOLOCKSHIFT))
(117 (50 61859 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(128 (39 61857 NOLOCKSHIFT))
(129 (61872 61892 LOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (61869 61741 LOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 61919 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (61873 61877 LOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(GERMAN ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (251 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(128 (39 34 NOLOCKSHIFT))
(129 (61863 61735 LOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 62 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (95 94 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (61908 61780 LOCKSHIFT))
(159 (61925 61797 LOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)
(STANDARD-RUSSIAN ((100 (34 52 NOLOCKSHIFT))
(101 (47 51 NOLOCKSHIFT))
(102 (58 53 NOLOCKSHIFT))
(103 (10085 10037 LOCKSHIFT))
(104 (44 54 NOLOCKSHIFT))
(105 (10067 10019 LOCKSHIFT))
(106 (10068 10020 LOCKSHIFT))
(107 (10078 10030 LOCKSHIFT))
(108 (63 57 NOLOCKSHIFT))
(109 (10077 10029 LOCKSHIFT))
(110 (37 48 NOLOCKSHIFT))
(111 (10073 10025 LOCKSHIFT))
(112 (10071 10023 LOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (45 50 NOLOCKSHIFT))
(117 (61352 49 NOLOCKSHIFT))
(118 (10088 10040 LOCKSHIFT))
(119 (10075 10027 LOCKSHIFT))
(120 (10093 10045 LOCKSHIFT))
(121 (10086 10038 LOCKSHIFT))
(122 (95 56 NOLOCKSHIFT))
(123 (10090 10042 LOCKSHIFT))
(124 (10089 10041 LOCKSHIFT))
(125 (10091 10043 LOCKSHIFT))
(126 (10069 10021 LOCKSHIFT))
(127 (10066 10018 LOCKSHIFT))
(128 (10095 10047 LOCKSHIFT))
(129 (10092 10044 LOCKSHIFT))
(132 (167 43 NOLOCKSHIFT))
(133 (92 124 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (10065 10017 LOCKSHIFT))
(137 (10083 10035 LOCKSHIFT))
(138 (10080 10032 LOCKSHIFT))
(139 (10074 10026 LOCKSHIFT))
(140 (10097 10049 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (10096 10048 LOCKSHIFT))
(143 (10072 10024 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(145 (41 40 NOLOCKSHIFT))
(148 (10076 10028 LOCKSHIFT))
(149 (10070 10022 LOCKSHIFT))
(150 (10081 10033 LOCKSHIFT))
(151 (10079 10031 LOCKSHIFT))
(152 (10082 10034 LOCKSHIFT))
(153 (46 55 NOLOCKSHIFT))
(154 (10084 10036 LOCKSHIFT))
(155 (10094 10046 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (10087 10039 LOCKSHIFT))
(159 (33 61 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DORADO)))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP

631
library/virtualkeyboards/DOVEKEYBOARDS Normal file
View File

@@ -0,0 +1,631 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Jul-2023 08:52:04" {WMEDLEY}<library>virtualkeyboards>DOVEKEYBOARDS.;3 33268
:EDIT-BY rmk
:CHANGES-TO (VARS DOVEKEYBOARDSCOMS)
:PREVIOUS-DATE " 4-Jul-2023 23:19:33" {WMEDLEY}<library>virtualkeyboards>DOVEKEYBOARDS.;2)
(PRETTYCOMPRINT DOVEKEYBOARDSCOMS)
(RPAQQ DOVEKEYBOARDSCOMS ((ALISTS (VKBD.LOADED-KEYBOARDS DOVE))))
(ADDTOVAR VKBD.LOADED-KEYBOARDS
(DOVE (EUROPEAN ((100 (53 197 NOLOCKSHIFT))
(101 (52 196 NOLOCKSHIFT))
(102 (54 198 NOLOCKSHIFT))
(103 (61887 61759 LOCKSHIFT))
(104 (55 199 NOLOCKSHIFT))
(105 (61888 61760 LOCKSHIFT))
(106 (61872 61744 LOCKSHIFT))
(107 (61860 61732 LOCKSHIFT))
(108 (48 126 NOLOCKSHIFT))
(109 (61892 61764 LOCKSHIFT))
(110 (203 207 NOLOCKSHIFT))
(111 (61919 61791 LOCKSHIFT))
(112 (47 191 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 195 NOLOCKSHIFT))
(117 (50 194 NOLOCKSHIFT))
(118 (61873 61745 LOCKSHIFT))
(119 (61858 61730 LOCKSHIFT))
(120 (61874 61746 LOCKSHIFT))
(121 (61859 61731 LOCKSHIFT))
(122 (57 202 NOLOCKSHIFT))
(123 (61886 61758 LOCKSHIFT))
(124 (61864 61736 LOCKSHIFT))
(125 (61903 61775 LOCKSHIFT))
(126 (61908 61780 LOCKSHIFT))
(127 (241 225 LOCKSHIFT))
(171 (187 170 LOCKSHIFT))
(129 (249 233 LOCKSHIFT))
(132 (49 193 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61905 61777 LOCKSHIFT))
(137 (61869 61741 LOCKSHIFT))
(138 (61877 61749 LOCKSHIFT))
(139 (61906 61778 LOCKSHIFT))
(140 (251 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (250 234 LOCKSHIFT))
(143 (59 58 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (171 186 LOCKSHIFT))
(148 (61904 61776 LOCKSHIFT))
(149 (61920 61792 LOCKSHIFT))
(150 (61921 61793 LOCKSHIFT))
(151 (61857 61729 LOCKSHIFT))
(152 (61863 61735 LOCKSHIFT))
(153 (56 200 NOLOCKSHIFT))
(154 (61900 61772 LOCKSHIFT))
(155 (239 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (246 230 LOCKSHIFT))
(159 (207 176 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(logic ((100 (53 37 NOLOCKSHIFT))
(101 (52 164 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (61258 61260 NOLOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (61292 61293 NOLOCKSHIFT))
(106 (61271 61270 NOLOCKSHIFT))
(107 (61284 61285 NOLOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (61307 61306 NOLOCKSHIFT))
(110 (45 177 NOLOCKSHIFT))
(111 (61269 61268 LOCKSHIFT))
(112 (172 174 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (61240 61241 NOLOCKSHIFT))
(119 (61234 61235 NOLOCKSHIFT))
(120 (61266 61262 NOLOCKSHIFT))
(121 (61365 61365 NOLOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (61275 61274 NOLOCKSHIFT))
(124 (61300 61299 NOLOCKSHIFT))
(125 (61273 61272 NOLOCKSHIFT))
(126 (61282 61283 NOLOCKSHIFT))
(127 (61256 61257 NOLOCKSHIFT))
(171 (61356 61356 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61250 61251 NOLOCKSHIFT))
(137 (61298 61297 NOLOCKSHIFT))
(138 (61305 61303 NOLOCKSHIFT))
(139 (61265 61264 NOLOCKSHIFT))
(140 (61364 61364 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (61281 233 NOLOCKSHIFT))
(143 (61351 61351 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (61357 61357 NOLOCKSHIFT))
(148 (61279 61278 NOLOCKSHIFT))
(149 (61239 61238 NOLOCKSHIFT))
(150 (61290 61290 NOLOCKSHIFT))
(151 (61263 61261 NOLOCKSHIFT))
(152 (61295 61295 NOLOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (61252 61253 NOLOCKSHIFT))
(155 (61254 61255 NOLOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(MATH ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (61284 61285 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (174 61245 NOLOCKSHIFT))
(107 (61369 61363 NOLOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (61254 61255 NOLOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (173 61246 LOCKSHIFT))
(112 (47 61300 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (61282 61283 LOCKSHIFT))
(119 (61287 61286 NOLOCKSHIFT))
(120 (61301 61302 NOLOCKSHIFT))
(121 (61351 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (175 61247 LOCKSHIFT))
(124 (180 184 LOCKSHIFT))
(125 (172 61244 LOCKSHIFT))
(126 (61256 61257 LOCKSHIFT))
(127 (44 61250 NOLOCKSHIFT))
(171 (61298 61253 NOLOCKSHIFT))
(129 (93 61265 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (61356 61362 LOCKSHIFT))
(138 (61254 61291 NOLOCKSHIFT))
(139 (98 61360 NOLOCKSHIFT))
(140 (61309 177 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 61251 NOLOCKSHIFT))
(143 (61299 61252 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (95 94 NOLOCKSHIFT))
(148 (61358 82 LOCKSHIFT))
(149 (61296 61266 NOLOCKSHIFT))
(150 (61305 61303 NOLOCKSHIFT))
(151 (61308 61267 LOCKSHIFT))
(152 (61288 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (61357 61361 NOLOCKSHIFT))
(155 (61292 61293 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 61264 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(OFFICE ((100 (61397 61381 NOLOCKSHIFT))
(101 (61396 61380 NOLOCKSHIFT))
(102 (61398 61382 NOLOCKSHIFT))
(103 (8557 8554 NOLOCKSHIFT))
(104 (61399 61383 NOLOCKSHIFT))
(105 (61232 8743 NOLOCKSHIFT))
(106 (61346 8571 NOLOCKSHIFT))
(107 (188 86 NOLOCKSHIFT))
(108 (61402 61386 NOLOCKSHIFT))
(109 (210 8738 NOLOCKSHIFT))
(110 (61437 61438 NOLOCKSHIFT))
(111 (163 8558 NOLOCKSHIFT))
(112 (61248 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (61395 61379 NOLOCKSHIFT))
(117 (61394 61378 NOLOCKSHIFT))
(118 (185 8553 NOLOCKSHIFT))
(119 (176 8546 NOLOCKSHIFT))
(120 (167 8744 NOLOCKSHIFT))
(121 (97 8745 NOLOCKSHIFT))
(122 (61401 61385 NOLOCKSHIFT))
(123 (162 8570 NOLOCKSHIFT))
(124 (61437 88 NOLOCKSHIFT))
(125 (111 8569 NOLOCKSHIFT))
(126 (61289 8737 NOLOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(171 (39 34 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (61393 61377 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (61233 8742 NOLOCKSHIFT))
(137 (61438 67 NOLOCKSHIFT))
(138 (8739 74 NOLOCKSHIFT))
(139 (190 61436 NOLOCKSHIFT))
(140 (189 90 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (61249 62 NOLOCKSHIFT))
(143 (61352 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (95 61280 NOLOCKSHIFT))
(148 (212 8574 NOLOCKSHIFT))
(149 (61354 8573 NOLOCKSHIFT))
(150 (61286 8741 NOLOCKSHIFT))
(151 (165 8572 NOLOCKSHIFT))
(152 (61368 8740 NOLOCKSHIFT))
(153 (61400 61384 NOLOCKSHIFT))
(154 (173 175 NOLOCKSHIFT))
(155 (172 174 NOLOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61406 61368 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(DVORAK ((100 (49 42 NOLOCKSHIFT))
(101 (51 41 NOLOCKSHIFT))
(102 (57 37 NOLOCKSHIFT))
(103 (46 62 NOLOCKSHIFT))
(104 (48 38 NOLOCKSHIFT))
(105 (101 69 LOCKSHIFT))
(106 (103 71 LOCKSHIFT))
(107 (107 75 LOCKSHIFT))
(108 (54 45 NOLOCKSHIFT))
(109 (116 84 LOCKSHIFT))
(110 (56 95 NOLOCKSHIFT))
(111 (108 76 LOCKSHIFT))
(112 (122 90 LOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (53 40 NOLOCKSHIFT))
(117 (55 35 NOLOCKSHIFT))
(118 (44 60 NOLOCKSHIFT))
(119 (63 47 NOLOCKSHIFT))
(120 (111 79 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (52 164 NOLOCKSHIFT))
(123 (99 67 LOCKSHIFT))
(124 (113 81 LOCKSHIFT))
(125 (114 82 LOCKSHIFT))
(126 (110 78 LOCKSHIFT))
(127 (119 87 LOCKSHIFT))
(171 (44 186 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (33 64 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (117 85 LOCKSHIFT))
(137 (106 74 LOCKSHIFT))
(138 (104 72 LOCKSHIFT))
(139 (120 88 LOCKSHIFT))
(140 (59 58 NOLOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (118 86 LOCKSHIFT))
(143 (115 83 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (169 170 NOLOCKSHIFT))
(148 (112 80 LOCKSHIFT))
(149 (121 89 LOCKSHIFT))
(150 (105 73 LOCKSHIFT))
(151 (102 70 LOCKSHIFT))
(152 (100 68 LOCKSHIFT))
(153 (50 162 NOLOCKSHIFT))
(154 (98 66 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(GREEK ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (9830 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (9829 9797 LOCKSHIFT))
(106 (9849 9817 LOCKSHIFT))
(107 (115 9814 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (9837 9805 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (9843 9811 LOCKSHIFT))
(112 (47 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (9853 9821 LOCKSHIFT))
(119 (9835 9803 LOCKSHIFT))
(120 (9846 9814 LOCKSHIFT))
(121 (9825 9793 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (9836 9804 LOCKSHIFT))
(124 (9851 9819 LOCKSHIFT))
(125 (9842 9810 LOCKSHIFT))
(126 (9838 9806 LOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(171 (39 34 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (9850 9818 LOCKSHIFT))
(137 (9841 9809 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (9826 66 LOCKSHIFT))
(140 (9833 9801 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 62 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (95 94 NOLOCKSHIFT))
(148 (9845 9813 LOCKSHIFT))
(149 (9848 9816 LOCKSHIFT))
(150 (9828 9796 LOCKSHIFT))
(151 (9852 9820 LOCKSHIFT))
(152 (9834 9802 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (9840 9808 LOCKSHIFT))
(155 (9839 9807 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(ITALIAN ((171 (39 34 NOLOCKSHIFT))
(100 (53 61903 NOLOCKSHIFT))
(101 (52 61886 NOLOCKSHIFT))
(102 (54 61919 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (95 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 61872 NOLOCKSHIFT))
(117 (50 61857 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(171 (39 186 NOLOCKSHIFT))
(129 (93 125 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (95 170 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (91 123 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(SPANISH ((208 (161 191 NOLOCKSHIFT))
(171 (59 58 NOLOCKSHIFT))
(100 (53 61904 NOLOCKSHIFT))
(101 (52 61887 NOLOCKSHIFT))
(102 (54 61920 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (95 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 61873 NOLOCKSHIFT))
(117 (50 61858 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(171 (59 58 NOLOCKSHIFT))
(129 (185 186 NOLOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (61900 61772 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (161 191 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 61925 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (169 170 NOLOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(FRENCH ((208 (61869 61741 NOLOCKSHIFT))
(171 (39 61857 NOLOCKSHIFT))
(100 (53 61905 NOLOCKSHIFT))
(101 (52 61888 NOLOCKSHIFT))
(102 (54 61921 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (95 63 NOLOCKSHIFT))
(115 (1 1 NOLOCKSHIFT) . IGNORE)
(116 (51 61874 NOLOCKSHIFT))
(117 (50 61859 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 171 NOLOCKSHIFT))
(171 (39 61857 NOLOCKSHIFT))
(129 (61872 61892 LOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 187 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (61869 61741 LOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 61919 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (61873 61877 LOCKSHIFT))
(159 (61 43 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(GERMAN ((100 (53 37 NOLOCKSHIFT))
(101 (52 36 NOLOCKSHIFT))
(102 (54 126 NOLOCKSHIFT))
(103 (101 69 LOCKSHIFT))
(104 (55 38 NOLOCKSHIFT))
(105 (100 68 LOCKSHIFT))
(106 (117 85 LOCKSHIFT))
(107 (118 86 LOCKSHIFT))
(108 (48 41 NOLOCKSHIFT))
(109 (107 75 LOCKSHIFT))
(110 (45 45 NOLOCKSHIFT))
(111 (112 80 LOCKSHIFT))
(112 (251 63 NOLOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (51 35 NOLOCKSHIFT))
(117 (50 64 NOLOCKSHIFT))
(118 (119 87 LOCKSHIFT))
(119 (113 81 LOCKSHIFT))
(120 (115 83 LOCKSHIFT))
(121 (97 65 LOCKSHIFT))
(122 (57 40 NOLOCKSHIFT))
(123 (105 73 LOCKSHIFT))
(124 (120 88 LOCKSHIFT))
(125 (111 79 LOCKSHIFT))
(126 (108 76 LOCKSHIFT))
(127 (44 60 NOLOCKSHIFT))
(171 (39 34 NOLOCKSHIFT))
(129 (61863 61735 LOCKSHIFT))
(132 (49 33 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (102 70 LOCKSHIFT))
(137 (99 67 LOCKSHIFT))
(138 (106 74 LOCKSHIFT))
(139 (98 66 LOCKSHIFT))
(140 (122 90 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (46 62 NOLOCKSHIFT))
(143 (59 58 NOLOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (95 94 NOLOCKSHIFT))
(148 (114 82 LOCKSHIFT))
(149 (116 84 LOCKSHIFT))
(150 (103 71 LOCKSHIFT))
(151 (121 89 LOCKSHIFT))
(152 (104 72 LOCKSHIFT))
(153 (56 42 NOLOCKSHIFT))
(154 (110 78 LOCKSHIFT))
(155 (109 77 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (61908 61780 LOCKSHIFT))
(159 (61925 61797 LOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)
(STANDARD-RUSSIAN ((208 (41 40 NOLOCKSHIFT))
(171 (10073 10025 NOLOCKSHIFT))
(100 (34 52 NOLOCKSHIFT))
(101 (47 51 NOLOCKSHIFT))
(102 (58 53 NOLOCKSHIFT))
(103 (10085 10037 LOCKSHIFT))
(104 (44 54 NOLOCKSHIFT))
(105 (10067 10019 LOCKSHIFT))
(106 (10068 10020 LOCKSHIFT))
(107 (10078 10030 LOCKSHIFT))
(108 (63 57 NOLOCKSHIFT))
(109 (10077 10029 LOCKSHIFT))
(110 (37 48 NOLOCKSHIFT))
(111 (10073 10025 LOCKSHIFT))
(112 (10071 10023 LOCKSHIFT))
(115 (8 8 NOLOCKSHIFT) . IGNORE)
(116 (45 50 NOLOCKSHIFT))
(117 (61352 49 NOLOCKSHIFT))
(118 (10088 10040 LOCKSHIFT))
(119 (10075 10027 LOCKSHIFT))
(120 (10093 10045 LOCKSHIFT))
(121 (10086 10038 LOCKSHIFT))
(122 (95 56 NOLOCKSHIFT))
(123 (10090 10042 LOCKSHIFT))
(124 (10089 10041 LOCKSHIFT))
(125 (10091 10043 LOCKSHIFT))
(126 (10069 10021 LOCKSHIFT))
(127 (10066 10018 LOCKSHIFT))
(171 (10095 10047 LOCKSHIFT))
(129 (10092 10044 LOCKSHIFT))
(132 (167 43 NOLOCKSHIFT))
(165 (27 27 NOLOCKSHIFT) . IGNORE)
(134 (9 9 NOLOCKSHIFT) . IGNORE)
(135 (10065 10017 LOCKSHIFT))
(137 (10083 10035 LOCKSHIFT))
(138 (10080 10032 LOCKSHIFT))
(139 (10074 10026 LOCKSHIFT))
(140 (10097 10049 LOCKSHIFT))
(141 1SHIFTDOWN . 1SHIFTUP)
(142 (10096 10048 LOCKSHIFT))
(143 (10072 10024 LOCKSHIFT))
(144 (13 13 NOLOCKSHIFT) . IGNORE)
(208 (41 40 NOLOCKSHIFT))
(148 (10076 10028 LOCKSHIFT))
(149 (10070 10022 LOCKSHIFT))
(150 (10081 10033 LOCKSHIFT))
(151 (10079 10031 LOCKSHIFT))
(152 (10082 10034 LOCKSHIFT))
(153 (46 55 NOLOCKSHIFT))
(154 (10084 10036 LOCKSHIFT))
(155 (10094 10046 LOCKSHIFT))
(156 LOCKDOWN . LOCKUP)
(157 (32 32 NOLOCKSHIFT) . IGNORE)
(158 (10087 10039 LOCKSHIFT))
(159 (33 61 NOLOCKSHIFT))
(160 2SHIFTDOWN . 2SHIFTUP))
DOVE)))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
STOP

1809
library/virtualkeyboards/KEYBOARDCONFIGS Normal file
View File

File diff suppressed because it is too large Load Diff

769
library/virtualkeyboards/KEYBOARDEDITOR Normal file
View File

@@ -0,0 +1,769 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 6-Jul-2023 16:23:12" {WMEDLEY}<library>KEYBOARDEDITOR.;3 50717
:EDIT-BY rmk
:CHANGES-TO (FNS VKBD.EDIT.CREATE-CHARACTERS-MENU)
:PREVIOUS-DATE "25-May-95 14:32:35" {WMEDLEY}<library>KEYBOARDEDITOR.;1)
(* ; "
Copyright (c) 1985, 1987, 1990, 1995 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT KEYBOARDEDITORCOMS)
(RPAQQ KEYBOARDEDITORCOMS
((FILES VIRTUALKEYBOARDS)
(COMS
(* ;; "Editor for Configurations -- the description of the physical key layout, which keys are assignable, etc.")
(FNS EDITCONFIGURATION VKBD.CONF.CHANGE-KEY-VALUE VKBD.CONF.DISPLAY-FIELD-VALUE
VKBD.CONF.DISPLAY-INFO-KEYBOARD VKBD.CONF.DISPLAY-KEY-INFO
VKBD.CONF.EDIT-DEFAULT-ASSIGNMENTS VKBD.CONF.ICONFN VKBD.CONF.PARSE-CONFIGURATION)
(BITMAPS VKBD.CONF.ICON))
(* ;; "EEditor for keyboard layouts per se:")
(FNS EDITKEYBOARD VKBD.EDIT.ADD-SUBITEM-TO-BACKGROUND-MENU VKBD.EDIT.CREATE-COMMAND-MENU
VKBD.EDIT.CREATE-NON-CHAR-ASSIGMENTS-MENU VKBD.EDIT-KEYBOARD-COMMAND
VKBD.EDIT.ASSIGN-CHARACTER VKBD.EDIT.ASSIGN-NON-CHARACTER
VKBD.EDIT.CREATE-CHARACTER-SETS-MENU VKBD.EDIT.CREATE-CHARACTERS-MENU
VKBD.EDIT.CREATE-DISPLAY VKBD.EDIT.DEFINE-COMMAND VKBD.EDIT.DO-MENU-COMMAND
VKBD.EDIT.ICONFN VKBD.EDIT.INVERT-IF-LOCKED VKBD.EDIT.KEYBOARD-REPAINTFN
VKBD.EDIT.LARGE-WINDOW-REPAINTFN VKBD.EDIT.MAKE-CURRENT-KEY VKBD.EDIT.QUIT-COMMAND
VKBD.EDIT.STOP-COMMAND VKBD.EDIT.SWITCH-CHAR-SET-COMMAND VKBD.EDIT.SWITCH-CHARACTER-SET
VKBD.EDIT.ROTATED-NUMBER)
(INITVARS (VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS T)
(VKBD.EDIT.MAX-NUMBER-OF-CASHED-MENUS 15)
(VKBD.EDITOR-WINDOW-HEIGHT 450)
(VKBD.EDITOR-WINDOW-WIDTH 512)
(VKBD.EDIT.DISPLAY-CHAR-SETS-NAMES T))
(VARS VKBD.EDIT.BACKGROUND-MENU-SUBITEMS (VKBD.EDIT.CASH-MENUES NIL)
VKBD.EDIT.CHAR-SET-NAMES VKBD.EDIT.MENU-ITEMS VKBD.EDIT.NON-CHAR-ASSIGNMENTS)
(BITMAPS VKBD.EDIT.ICON VKBD.EDIT.MASK)
(GLOBALVARS VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS VKBD.EDIT.BACKGROUND-MENU-SUBITEMS
VKBD.EDIT.MAX-NUMBER-OF-CASHED-MENUS VKBD.EDITOR-WINDOW-HEIGHT
VKBD.EDITOR-WINDOW-WIDTH VKBD.EDIT.DISPLAY-CHAR-SETS-NAMES VKBD.EDIT.CASH-MENUES
VKBD.EDIT.CHAR-SET-NAMES VKBD.EDIT.MENU-ITEMS VKBD.EDIT.NON-CHAR-ASSIGNMENTS
VKBD.CONF.ICON VKBD.EDIT.ICON VKBD.EDIT.MASK)
(P (VKBD.EDIT.ADD-SUBITEM-TO-BACKGROUND-MENU (LIST "Edit" '(ADD.PROCESS '(
VKBD.EDIT-KEYBOARD-COMMAND
T))
"Calls the keyboard editor. Will prompt for name for the new keyboard, and will use the default keyboard as the initial keyboard"
VKBD.EDIT.BACKGROUND-MENU-SUBITEMS)
"Keyboard"))))
(FILESLOAD VIRTUALKEYBOARDS)
(* ;;
"Editor for Configurations -- the description of the physical key layout, which keys are assignable, etc."
)
(DEFINEQ
(EDITCONFIGURATION
[LAMBDA (CONFIGNAME) (* ; "Edited 30-Jun-87 10:03 by jds")
(* ;;
 "Edit a keyboard configuration, given the config's name or a handle on the config somehow.")
(VKBD.CONF.DISPLAY-INFO-KEYBOARD CONFIGNAME])
(VKBD.CONF.CHANGE-KEY-VALUE
[LAMBDA (ITEM MENU MOUSEKEY) (* sm "14-Aug-85 18:05")
(PROG (MAINW CONF WINDOW PROMPTW KEY)
(SETQ WINDOW (WFROMMENU MENU))
[SETQ PROMPTW (CAR (WINDOWPROP WINDOW 'PROMPTWINDOW]
(SETQ MAINW (MAINWINDOW WINDOW T))
(SETQ CONF (VKBD.GET-CONFIGURATION MAINW))
(SETQ KEY (WINDOWPROP MAINW 'VKBD.CONF.CURRENT-KEY))
(SELECTQ (CADR ITEM)
(KEYID (PROG (NEW)
(SETQ NEW (CAR (TTYINEDIT (LIST KEY)
PROMPTW NIL "Enter new ID :")))
(DSUBST NEW KEY CONF)
(WINDOWPROP MAINW 'VKBD.CONF.CURRENT-KEY NEW)
(SETQ KEY NEW)))
(REGIONS (PROG (CURRENT-REGIONS NEW-REGIONS)
(SETQ CURRENT-REGIONS (FASSOC KEY (fetch (KEYBOARDCONFIGURATION
KEYREGIONS) of CONF)))
(SETQ NEW-REGIONS (CAR (TTYINEDIT (LIST (CDR CURRENT-REGIONS))
PROMPTW NIL "Enter new region(s) :")))
(RPLACD CURRENT-REGIONS NEW-REGIONS)))
(DEFAULT (PROG (CURRENT-DEFAULT ASSIGNMENTS NEW)
(SETQ ASSIGNMENTS (fetch (KEYBOARDCONFIGURATION DEFAULTASSIGNMENT)
of CONF))
(SETQ CURRENT-DEFAULT (FASSOC KEY ASSIGNMENTS))
(SETQ ASSIGNMENTS (REMOVE CURRENT-DEFAULT ASSIGNMENTS))
(SETQ NEW (CAR (TTYINEDIT (LIST (CDR CURRENT-DEFAULT))
PROMPTW NIL "Enter new default(s):")))
(replace (KEYBOARDCONFIGURATION DEFAULTASSIGNMENT) of CONF
with (CONS (CONS KEY NEW)
ASSIGNMENTS))
(WINDOWPROP MAINW 'VKBD.KEYBOARD (VKBD.CREATE-DEFAULT-KEYBOARD CONF))))
(NAMES (PROG (CURRENT NEW MAPPING)
(SETQ CURRENT (VKBD.KEY-ID-TO-KEY-NAMES KEY CONF))
(SETQ MAPPING (fetch (KEYBOARDCONFIGURATION KEYNAMESMAPPING) of CONF))
(for N in CURRENT do (SETQ MAPPING (REMOVE (LIST N KEY)
MAPPING)))
(SETQ NEW (CAR (TTYINEDIT (LIST CURRENT)
PROMPTW NIL "Enter new NAME(s) :")))
(for N in (MKLIST NEW) do (pushnew MAPPING (LIST N KEY)))
(replace (KEYBOARDCONFIGURATION KEYNAMESMAPPING) of CONF with MAPPING)))
(LABEL (PROG (OLD-LABEL LABELS NEW)
(SETQ LABELS (fetch (KEYBOARDCONFIGURATION KEYLABELS) of CONF))
(SETQ OLD-LABEL (FASSOC KEY LABELS))
(if OLD-LABEL
then (SETQ LABELS (REMOVE OLD-LABEL LABELS))
(SETQ OLD-LABEL (CADR OLD-LABEL)))
(SETQ NEW (CAR (TTYINEDIT (LIST OLD-LABEL)
PROMPTW NIL "Enter new LABEL :")))
(replace (KEYBOARDCONFIGURATION KEYLABELS) of CONF
with (if NEW
then (CONS (LIST KEY NEW)
LABELS)
else LABELS))))
(ASSIGNABLE [PROG (ASS-KEYS)
(SETQ ASS-KEYS (fetch (KEYBOARDCONFIGURATION ASSIGNABLEKEYS)
of CONF))
(if (FMEMB KEY ASS-KEYS)
then (DREMOVE KEY ASS-KEYS)
else (replace (KEYBOARDCONFIGURATION ASSIGNABLEKEYS) of CONF
with (CONS KEY ASS-KEYS])
(PROGN (PROMPTPRINT "ILLEGAL FIELD VALUE IN <VKBD.CONF.CHANGE-KEY-VALUE>")
(RETURN NIL)))
(CLEARW PROMPTW)
(VKBD.CONF.DISPLAY-FIELD-VALUE KEY (CADR ITEM)
CONF WINDOW MENU])
(VKBD.CONF.DISPLAY-FIELD-VALUE
[LAMBDA (KEY FIELD CONF WINDOW MENU) (* ; "Edited 11-Jun-90 16:40 by mitani")
(PROG (X Y)
[for ITEM in (fetch ITEMS of MENU) when (EQ (CADR ITEM)
FIELD)
do (SETQ Y (fetch (REGION BOTTOM) of (MENUITEMREGION ITEM MENU]
(SETQ X (IPLUS (fetch MENUREGIONLEFT of MENU)
(fetch IMAGEWIDTH of MENU)
5))
(DSPFILL (CREATEREGION X Y (IDIFFERENCE (fetch (REGION WIDTH)
of (WINDOWPROP WINDOW 'REGION))
Y)
(fetch ITEMHEIGHT of MENU))
(DSPTEXTURE NIL WINDOW)
'REPLACE WINDOW)
(MOVETO X Y WINDOW)
(PRIN1 (SELECTQ FIELD
(KEYID KEY)
(REGIONS (VKBD.GET-KEY-REGIONS KEY CONF))
(DEFAULT (CDR (VKBD.FETCH-KEY-ASSIGNMENT KEY (MAINWINDOW WINDOW))))
(NAMES (VKBD.KEY-ID-TO-KEY-NAMES KEY CONF))
(LABEL (CADR (FASSOC KEY (fetch (KEYBOARDCONFIGURATION KEYLABELS)
of CONF))))
(ASSIGNABLE (if (FMEMB KEY (fetch (KEYBOARDCONFIGURATION ASSIGNABLEKEYS)
of CONF))
then T
else NIL))
(PROMPTPRINT "ILLEGAL FIELD VALUE FOR DISPLAY CONFIGURATION FIELD VALUE!"))
WINDOW])
(VKBD.CONF.DISPLAY-INFO-KEYBOARD
[LAMBDA (CONFIGURATION) (* ; "Edited 25-May-95 11:34 by rmk:")
(PROG (WINDOW ATT-WINDOW MENU VALIDATED-CONFIG)
(COND
((NOT (SETQ VALIDATED-CONFIG (VKBD.GET-CONFIGURATION CONFIGURATION)))
(* ;; "Make sure the configuration name is legit.")
(ERROR CONFIGURATION "is not the name of a known keyboard configuration.")))
(SETQ WINDOW (VKBD.CREATE-KEYBOARD-DISPLAY (VKBD.CREATE-DEFAULT-KEYBOARD VALIDATED-CONFIG)
NIL
'VKBD.CONF.DISPLAY-KEY-INFO NIL T))
(SETQ MENU (create MENU
ITEMS _ '(("Key ID" KEYID)
("Key regions" REGIONS)
("Default assignment" DEFAULT)
("Key names" NAMES)
("Key Label" LABEL)
("Assignable? " ASSIGNABLE))
MENUBORDERSIZE _ 0
MENUOUTLINESIZE _ 0
MENUFONT _ BOLDFONT
WHENSELECTEDFN _ 'VKBD.CONF.CHANGE-KEY-VALUE))
(SETQ ATT-WINDOW (CREATEW (CREATEREGION 0 0 (fetch (REGION WIDTH)
of (WINDOWPROP WINDOW 'REGION))
(IPLUS 10 (fetch IMAGEHEIGHT of MENU)))
NIL NIL T))
(ATTACHWINDOW ATT-WINDOW WINDOW 'TOP 'JUSTIFY)
(OPENW ATT-WINDOW)
(ADDMENU MENU ATT-WINDOW (create POSITION
XCOORD _ 0
YCOORD _ 0))
(GETPROMPTWINDOW ATT-WINDOW 2 BOLDFONT)
(WINDOWPROP WINDOW 'ICONFN 'VKBD.CONF.ICONFN])
(VKBD.CONF.DISPLAY-KEY-INFO
[LAMBDA (KEY WINDOW MOUSEKEY) (* sm "14-Aug-85 15:38")
(PROG (CONFIGURATION OLD-KEY ATT-WINDOW)
(if (SETQ OLD-KEY (WINDOWPROP WINDOW 'VKBD.CONF.CURRENT-KEY))
then (VKBD.ERASE-FRAME OLD-KEY WINDOW 2))
(WINDOWPROP WINDOW 'VKBD.CONF.CURRENT-KEY KEY)
(VKBD.FRAME-KEY KEY WINDOW BLACKSHADE 2)
(SETQ CONFIGURATION (VKBD.GET-CONFIGURATION WINDOW))
(SETQ ATT-WINDOW (CAR (ATTACHEDWINDOWS WINDOW)))
(for F in '(KEYID REGIONS DEFAULT NAMES LABEL ASSIGNABLE)
do (VKBD.CONF.DISPLAY-FIELD-VALUE KEY F CONFIGURATION ATT-WINDOW
(CAR (WINDOWPROP ATT-WINDOW 'MENU])
(VKBD.CONF.EDIT-DEFAULT-ASSIGNMENTS
[LAMBDA (CONFIGURATION) (* sm "15-Aug-85 10:25")
(PROG (DUMMY-CONFIGURATION DUMMY-KEYBOARD)
(SETQ CONFIGURATION (VKBD.GET-CONFIGURATION CONFIGURATION))
(SETQ DUMMY-CONFIGURATION (COPY CONFIGURATION))
(replace (KEYBOARDCONFIGURATION ASSIGNABLEKEYS) of DUMMY-CONFIGURATION
with (fetch (KEYBOARDCONFIGURATION KEYSIDLIST) of DUMMY-CONFIGURATION))
(replace (KEYBOARDCONFIGURATION KEYLABELS) of DUMMY-CONFIGURATION with NIL)
(SETQ DUMMY-KEYBOARD (create VIRTUALKEYBOARD
KEYBOARDNAME _ "DEFAULT ASIGNMENTS"
KEYASSIGNMENTS _ (fetch (KEYBOARDCONFIGURATION
DEFAULTASSIGNMENT) of
CONFIGURATION
)
KEYBOARDCONFIGURATION _ DUMMY-CONFIGURATION))
(EDITKEYBOARD DUMMY-KEYBOARD)
(replace (KEYBOARDCONFIGURATION DEFAULTASSIGNMENT) of CONFIGURATION
with (fetch (VIRTUALKEYBOARD KEYASSIGNMENTS) of DUMMY-KEYBOARD])
(VKBD.CONF.ICONFN
[LAMBDA (WINDOW ICON) (* sm "15-Aug-85 11:02")
[COND
((NULL ICON)
(SETQ ICON (TITLEDICONW (create TITLEDICON
ICON _ VKBD.CONF.ICON
MASK _ VKBD.EDIT.MASK
TITLEREG _ (CREATEREGION 5 15 80 75))
(CONCAT "EDIT CONFIGURATION: " (fetch (KEYBOARDCONFIGURATION
CONFIGURATIONNAME)
of (VKBD.GET-CONFIGURATION WINDOW)))
(FONTCREATE 'GACHA 8]
ICON])
(VKBD.CONF.PARSE-CONFIGURATION
[LAMBDA (CONFIGURATION) (* sm " 5-Aug-85 17:05")
(PROG (ERROR-FLAG REGS IDS)
(SETQ CONFIGURATION (VKBD.GET-CONFIGURATION CONFIGURATION))
(if (NULL CONFIGURATION)
then (PRINTOUT T T CONFIGURATION " NOT A CONFIGURATION. ")
(RETURN NIL))
(SETQ IDS (fetch (KEYBOARDCONFIGURATION KEYSIDLIST) of CONFIGURATION))
(SETQ REGS (fetch (KEYBOARDCONFIGURATION KEYREGIONS) of CONFIGURATION))
(if (NULL IDS)
then (PRINTOUT T T "Null Id list. ")
(RETURN NIL))
(if (LESSP (LENGTH REGS)
(LENGTH IDS))
then (PRINTOUT T T "KEYS WITHOUT REGIONS : ")
(for K in IDS when (NOT (FASSOC K REGS)) do (PRINTOUT T " " K))
(SETQ ERROR-FLAG T))
(for R in REGS do (for R1 in (CDR R) when (NOT (REGIONP R1))
DO (SETQ ERROR-FLAG T)
(PRINTOUT T T "KEY : " (CAR R)
" -- " R1 " NOT A REGION")))
(for KEY in (fetch (KEYBOARDCONFIGURATION ASSIGNABLEKEYS) of CONFIGURATION)
when (NOT (FMEMB KEY IDS)) do (SETQ ERROR-FLAG T)
(PRINTOUT T T "KEY :" KEY
" IS IN THE ASSIGNABLE KEYS BUT NOT IN KEY IDS"))
(for ASS in (fetch (KEYBOARDCONFIGURATION DEFAULTASSIGNMENT) of CONFIGURATION)
when (NOT (FMEMB (CAR ASS)
IDS)) do (SETQ ERROR-FLAG T)
(PRINTOUT T T "KEY : " (CAR ASS)
" HAS ASSIGNMENT BUT IS NOT IN ID LIST"))
(for ID in IDS when (NOT (FASSOC ID (fetch (KEYBOARDCONFIGURATION DEFAULTASSIGNMENT)
of CONFIGURATION)))
do (SETQ ERROR-FLAG T)
(PRINTOUT T T "KEY :" ID " DOES NOT HAVE ASSIGNMENT."))
(RETURN (NOT ERROR-FLAG])
)
(RPAQQ VKBD.CONF.ICON #*(93 93)OOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHNG@HECI@HDCI@HDNALHD@GCHNG@HECI@HDCI@HDNALHD@GCHNG@HECO@HDCM@OONALHDNGCHNG@HDCO@HDCM@OONAOHGOOCHNGOOOOOOOOOOOOOOOOOOOOCHNG@BA@NDBAALDNA@IOBGOOCHNGGBA@NDBAALDNA@HGBG@GCHNGGCOOOLBAOOONAOOOOOFGCHNG@COOOLBAOOONAOOOOO@GCHNGOOOOOOOOOOOOOOOOOOHGCHNG@CHDCI@ILBCHHNBALHIGCHNG@CHDCI@ILBCHHNBALHIGCHNGOOHDCOOOLBCHINBALHIGCHNGOOHDCOOOLBGHINBALHHGCHNGOOOOOOOOOOOOOOOOOOOOCHNG@@@HDGA@HDGAALDCM@@GCHNG@@@HDGA@HDGAALDCI@@GCHNG@@@HDGA@HDGAALDCI@@GCHNG@@@HDGA@HDGAALDCI@@GCHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOH
)
(* ;; "EEditor for keyboard layouts per se:")
(DEFINEQ
(EDITKEYBOARD
[LAMBDA (KEYBOARD SOURCE-KEYBOARD CONFIGURATION-NAME) (* ; "Edited 25-May-95 14:22 by rmk:")
(* sm " 1-Aug-85 17:55")
(PROG (VKBD.EDIT-WINDOW CURRENT-EVENT KEYBOARD-TO-EDIT COMPLETE-KEYBOARD)
(COND
((NULL KEYBOARD)
(RETURN NIL)))
(IF (LITATOM KEYBOARD)
THEN (SETQ KEYBOARD-TO-EDIT (FINDVIRTUALKEYBOARD KEYBOARD CONFIGURATION-NAME))
(IF (NULL KEYBOARD-TO-EDIT)
THEN [IF (AND (NULL SOURCE-KEYBOARD)
CONFIGURATION-NAME)
THEN (SETQ KEYBOARD-TO-EDIT (VKBD.CREATE-DEFAULT-KEYBOARD
CONFIGURATION-NAME))
ELSE [SETQ KEYBOARD-TO-EDIT
(COPY (IF (AND SOURCE-KEYBOARD (ATOM SOURCE-KEYBOARD
))
THEN (FASSOC SOURCE-KEYBOARD
VKBD.KNOWN-KEYBOARDS]
(IF (NULL KEYBOARD-TO-EDIT)
THEN (SETQ KEYBOARD-TO-EDIT
(COPY (FASSOC 'DEFAULT VKBD.KNOWN-KEYBOARDS]
(REPLACE KEYBOARDNAME OF KEYBOARD-TO-EDIT WITH KEYBOARD))
ELSE (SETQ KEYBOARD-TO-EDIT KEYBOARD))
(SETQ VKBD.EDIT-WINDOW (VKBD.EDIT.CREATE-DISPLAY KEYBOARD-TO-EDIT))
(WINDOWPROP VKBD.EDIT-WINDOW 'VKBD.KEYBOARD (COPY KEYBOARD-TO-EDIT))
(WINDOWPROP VKBD.EDIT-WINDOW 'VKBD.ORIGINAL-KEYBOARD KEYBOARD-TO-EDIT)
(WINDOWPROP VKBD.EDIT-WINDOW 'VKBD.EDITOR-RETURN-EVENT (SETQ CURRENT-EVENT (CREATE.EVENT
"VKBD.EDIT")))
(AWAIT.EVENT CURRENT-EVENT)
(CLOSEW VKBD.EDIT-WINDOW)
(RETURN (WINDOWPROP VKBD.EDIT-WINDOW 'VKBD.KEYBOARD])
(VKBD.EDIT.ADD-SUBITEM-TO-BACKGROUND-MENU
[LAMBDA (SUBITEM MAINITEMLABEL) (* sm "15-Aug-85 14:14")
(PROG (MAINITEM OLD)
(SETQ MAINITEM (SASSOC MAINITEMLABEL BackgroundMenuCommands))
[COND
(MAINITEM (COND
[(AND (CDDDR MAINITEM)
(EQ (CAR (CADDDR MAINITEM))
'SUBITEMS))
(COND
((SETQ OLD (SASSOC (CAR SUBITEM)
(CADDDR MAINITEM)))
(RPLACD OLD (CDR SUBITEM)))
(T (NCONC1 (CADDDR MAINITEM)
SUBITEM]
(T (RPLACD (CDDR MAINITEM)
(LIST (LIST 'SUBITEMS SUBITEM]
(SETQ BackgroundMenu NIL])
(VKBD.EDIT.CREATE-COMMAND-MENU
[LAMBDA NIL (* sm " 1-Aug-85 17:22")
(create MENU
ITEMS _ VKBD.EDIT.MENU-ITEMS
MENUFONT _ (FONTCREATE 'HELVETICA 12 'BOLD)
CENTERFLG _ T
MENUROWS _ 1
WHENSELECTEDFN _ 'VKBD.EDIT.DO-MENU-COMMAND])
(VKBD.EDIT.CREATE-NON-CHAR-ASSIGMENTS-MENU
[LAMBDA NIL (* sm "13-Aug-85 11:09")
(create MENU
ITEMS _ VKBD.EDIT.NON-CHAR-ASSIGNMENTS
MENUFONT _ (FONTCREATE 'GACHA 8)
MENUROWS _ (ADD1 (IQUOTIENT (SUB1 (LENGTH VKBD.EDIT.NON-CHAR-ASSIGNMENTS))
4))
CENTERFLG _ T
WHENSELECTEDFN _ 'VKBD.EDIT.ASSIGN-CHARACTER])
(VKBD.EDIT-KEYBOARD-COMMAND
[LAMBDA (NEW-KEYBOARD? ASK-FOR-INITIAL?) (* sm "14-Aug-85 15:11")
(PROG (NEW-NAME KEYBOARD INITIAL-KEYBOARD)
(if (NOT NEW-KEYBOARD?)
then (SETQ KEYBOARD (VKBD.POP-UP-KEYBOARDS-MENU
"Select the keyboard that you want to edit"))
(if KEYBOARD
then (if (EQ KEYBOARD 'DEFAULT)
then (PROMPTPRINT "Can not edit the default keyboard.")
else (EDITKEYBOARD KEYBOARD)))
else [SETQ NEW-NAME (MKATOM (PROMPTFORWORD "Enter name for new keyboard :" NIL NIL
PROMPTWINDOW NIL 'TTY]
(if NEW-NAME
then (if ASK-FOR-INITIAL?
then (SETQ INITIAL-KEYBOARD (VKBD.POP-UP-KEYBOARDS-MENU
"Select the keyboard to be used as initial keyboard for the editing"
))
(if INITIAL-KEYBOARD
then (EDITKEYBOARD NEW-NAME INITIAL-KEYBOARD))
else (EDITKEYBOARD NEW-NAME 'DEFAULT])
(VKBD.EDIT.ASSIGN-CHARACTER
[LAMBDA (ITEM MENU MOUSE-KEY) (* sm "15-Aug-85 10:02")
(PROG (WINDOW KEY SHIFTED CURRENT-KEY-INFO KEY-ASSIGNMENT KEYBOARD)
(SETQ WINDOW (MAINWINDOW (WFROMMENU MENU)
T))
(SETQ KEYBOARD (WINDOWPROP WINDOW 'VKBD.KEYBOARD))
(SETQ CURRENT-KEY-INFO (WINDOWPROP WINDOW 'VKBD.CURRENT-KEY))
(if CURRENT-KEY-INFO
then (SETQ KEY (CAR CURRENT-KEY-INFO))
(SETQ SHIFTED (CADR CURRENT-KEY-INFO))
(SETQ KEY-ASSIGNMENT (VKBD.FETCH-KEY-ASSIGNMENT KEY WINDOW))
[if (AND VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS (MEMBER ITEM
VKBD.EDIT.NON-CHAR-ASSIGNMENTS
))
then (VKBD.EDIT.ASSIGN-NON-CHARACTER KEY-ASSIGNMENT ITEM)
else (if (NULL KEY-ASSIGNMENT)
then (replace (VIRTUALKEYBOARD KEYASSIGNMENTS) of KEYBOARD
with (CONS (LIST KEY (LIST (CADR ITEM)
(CADR ITEM)
'NOLOCKSHIFT))
(fetch (VIRTUALKEYBOARD KEYASSIGNMENTS) of KEYBOARD)
))
else (RPLACD (CDR KEY-ASSIGNMENT)
NIL)
(if (OR (NULL (CDR KEY-ASSIGNMENT))
(ATOM (CADR KEY-ASSIGNMENT)))
then [RPLACD KEY-ASSIGNMENT (LIST (LIST (CADR ITEM)
(CADR ITEM)
'NOLOCKSHIFT]
else (if SHIFTED
then (RPLACA (CDADR KEY-ASSIGNMENT)
(CADR ITEM))
else (RPLACA (CADR KEY-ASSIGNMENT)
(CADR ITEM]
(VKBD.DISPLAY-KEY KEY WINDOW)
else (FLASHWINDOW PROMPTWINDOW)
(PRINTOUT PROMPTWINDOW T
"There is no current selected key. Character was not assigned."])
(VKBD.EDIT.ASSIGN-NON-CHARACTER
[LAMBDA (KEY-ASSIGNMENT NEW-ASSIGNMENT) (* sm "13-Aug-85 10:16")
(RPLACD KEY-ASSIGNMENT (SELECTQ NEW-ASSIGNMENT
(SHIFT '(1SHIFTDOWN . 1SHIFTUP))
(CTRL '(CTRLDOWN . CTRLUP))
(META '(METADOWN . METAUP))
(LOCK '(LOCKDOWN . LOCKUP))
(LOCKDOWN '(LOCKDOWN))
(LOCKUP '(LOCKUP))
(EVENT '(EVENT . EVENT))
NIL])
(VKBD.EDIT.CREATE-CHARACTER-SETS-MENU
[LAMBDA NIL (* sm "15-Aug-85 12:13")
(if VKBD.EDIT.DISPLAY-CHAR-SETS-NAMES
then [create MENU
ITEMS _ VKBD.EDIT.CHAR-SET-NAMES
MENUFONT _ BIGFONT
ITEMWIDTH _ (ITIMES 29 16)
ITEMHEIGHT _ (ADD1 (IQUOTIENT (ITIMES 25 16)
(LENGTH VKBD.EDIT.CHAR-SET-NAMES]
else (create MENU
ITEMS _ (for I from 1 to 256 bind ROTATED-I
collect (PROGN (SETQ ROTATED-I (SUB1 (VKBD.EDIT.ROTATED-NUMBER I 16 16))
)
(LIST (OCTALSTRING ROTATED-I)
ROTATED-I)))
MENUCOLUMNS _ 16
CENTERFLG _ T
ITEMHEIGHT _ 25
ITEMWIDTH _ 29])
(VKBD.EDIT.CREATE-CHARACTERS-MENU
[LAMBDA (CHAR-SET-NUMBER FONT) (* ; "Edited 6-Jul-2023 16:23 by rmk")
(* sm "15-Aug-85 12:15")
(PROG (EXISTING-MENU-INFO NEW-MENU)
[SETQ EXISTING-MENU-INFO (for CHARSET-FONT-MENU in VKBD.EDIT.CASH-MENUES
thereis (AND (EQP (CAR CHARSET-FONT-MENU)
CHAR-SET-NUMBER)
(EQ (CADR CHARSET-FONT-MENU)
FONT]
(if EXISTING-MENU-INFO
then (RETURN (CADDR EXISTING-MENU-INFO)))
(PRINTOUT PROMPTWINDOW T "Retrieving bitmaps for character set " (OCTALSTRING
CHAR-SET-NUMBER))
(SETQ NEW-MENU (create MENU
ITEMS _ (for I from 0 to 255 bind CODE bind ROTATED-I
collect (SETQ ROTATED-I (SUB1 (VKBD.EDIT.ROTATED-NUMBER
(ADD1 I)
16 16)))
(SETQ CODE (LOGOR (LLSH CHAR-SET-NUMBER 8)
I))
(LIST (GETCHARBITMAP CODE FONT)
CODE))
MENUCOLUMNS _ 16
CENTERFLG _ T
ITEMHEIGHT _ 25
ITEMWIDTH _ 29
WHENSELECTEDFN _ 'VKBD.EDIT.ASSIGN-CHARACTER))
(PROMPTPRINT "... Done. ")
(push VKBD.EDIT.CASH-MENUES (LIST CHAR-SET-NUMBER FONT NEW-MENU))
(if (GREATERP (LENGTH VKBD.EDIT.CASH-MENUES)
VKBD.EDIT.MAX-NUMBER-OF-CASHED-MENUS)
then (RPLACD (LAST VKBD.EDIT.CASH-MENUES)
NIL))
(RETURN NEW-MENU])
(VKBD.EDIT.CREATE-DISPLAY
[LAMBDA (KEYBOARD) (* ; "Edited 25-May-95 14:07 by rmk:")
(* sm "13-Aug-85 12:37")
(PROG (WINDOW LARGE-WINDOW BM WPOS REGION-WIDTH REGION-HEIGHT NON-CHAR-WINDOW COMMAND-MENU
NON-CHAR-MENU)
(SETQ BM (VKBD.CREATE-KEYBOARD-BITMAP (fetch (VIRTUALKEYBOARD KEYBOARDCONFIGURATION)
of KEYBOARD)))
(if VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS
then (SETQ NON-CHAR-MENU (VKBD.EDIT.CREATE-NON-CHAR-ASSIGMENTS-MENU)))
(SETQ COMMAND-MENU (VKBD.EDIT.CREATE-COMMAND-MENU))
[SETQ REGION-WIDTH (MAX VKBD.EDITOR-WINDOW-WIDTH (IPLUS 8 (BITMAPWIDTH BM]
(SETQ REGION-HEIGHT (MIN SCREENHEIGHT (IPLUS (fetch IMAGEHEIGHT of COMMAND-MENU)
(if VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS
then (fetch IMAGEHEIGHT
of NON-CHAR-MENU)
else 0)
(BITMAPHEIGHT BM)
VKBD.EDITOR-WINDOW-HEIGHT 20)))
(SETQ WPOS (GETBOXPOSITION REGION-WIDTH REGION-HEIGHT NIL NIL NIL
"Specify region for Keyboard Editor window"))
(SETQ WINDOW (VKBD.CREATE-KEYBOARD-DISPLAY KEYBOARD WPOS 'VKBD.EDIT.MAKE-CURRENT-KEY BM T))
(WINDOWPROP WINDOW 'REPAINTFN 'VKBD.EDIT.KEYBOARD-REPAINTFN)
(WINDOWPROP WINDOW 'ICONFN 'VKBD.EDIT.ICONFN)
(SETQ LARGE-WINDOW (CREATEW (CREATEREGION 0 0 VKBD.EDITOR-WINDOW-WIDTH
VKBD.EDITOR-WINDOW-HEIGHT)
(CONCAT "Edit of Keyboard : " (fetch (VIRTUALKEYBOARD
KEYBOARDNAME)
of KEYBOARD)
" for "
(fetch (VIRTUALKEYBOARD KEYBOARDCONFIGURATION)
of KEYBOARD))
NIL T))
(WINDOWPROP LARGE-WINDOW 'CLOSEFN 'VKBD.EDIT.STOP-COMMAND)
(ATTACHWINDOW LARGE-WINDOW WINDOW 'TOP 'CENTER)
(if VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS
then (ATTACHMENU NON-CHAR-MENU LARGE-WINDOW 'TOP 'JUSTIFY))
(OPENW LARGE-WINDOW)
(WINDOWPROP LARGE-WINDOW 'RESHAPEFN 'DON'T)
(ATTACHMENU COMMAND-MENU LARGE-WINDOW 'TOP 'JUSTIFY)
(WINDOWPROP WINDOW 'VKBD.CHAR-SET-MENU (VKBD.EDIT.CREATE-CHARACTER-SETS-MENU))
(VKBD.EDIT.LARGE-WINDOW-REPAINTFN LARGE-WINDOW)
(VKBD.EDIT.SWITCH-CHARACTER-SET 0 LARGE-WINDOW)
(WINDOWADDPROP LARGE-WINDOW 'REPAINTFN 'VKBD.EDIT.LARGE-WINDOW-REPAINTFN)
(RETURN WINDOW])
(VKBD.EDIT.DEFINE-COMMAND
[LAMBDA (WINDOW) (* sm " 5-Aug-85 09:26")
(DEFINEKEYBOARD (WINDOWPROP WINDOW 'VKBD.KEYBOARD))
(PRINTOUT PROMPTWINDOW "Keyboard " (fetch (VIRTUALKEYBOARD KEYBOARDNAME)
of (WINDOWPROP WINDOW 'VKBD.KEYBOARD))
" was added to the set of known keyboards."])
(VKBD.EDIT.DO-MENU-COMMAND
[LAMBDA (ITEM MENU KEY) (* sm " 1-Aug-85 17:34")
(APPLY* (CADR ITEM)
(MAINWINDOW (WFROMMENU MENU)
T])
(VKBD.EDIT.ICONFN
[LAMBDA (WINDOW ICON) (* sm "15-Aug-85 11:10")
[COND
((NULL ICON)
(SETQ ICON (TITLEDICONW (create TITLEDICON
ICON _ VKBD.EDIT.ICON
MASK _ VKBD.EDIT.MASK
TITLEREG _ (CREATEREGION 5 25 80 65))
[CONCAT "EDIT KEYBOARD: " (fetch (VIRTUALKEYBOARD KEYBOARDNAME)
of (WINDOWPROP WINDOW 'VKBD.KEYBOARD]
(FONTCREATE 'GACHA 8]
ICON])
(VKBD.EDIT.INVERT-IF-LOCKED
[LAMBDA (KEY WINDOW) (* sm "13-Aug-85 10:01")
(PROG (KEY-ASSIGNMENT)
(SETQ KEY-ASSIGNMENT (VKBD.FETCH-KEY-ASSIGNMENT KEY WINDOW))
(if (AND (VKBD.CHAR-ASSIGNMENTP KEY-ASSIGNMENT)
(EQ (VKBD.LOCK/NOLOCK KEY-ASSIGNMENT)
'LOCKSHIFT))
then (VKBD.INVERT-LOCK-KEYS WINDOW])
(VKBD.EDIT.KEYBOARD-REPAINTFN
[LAMBDA (W) (* sm " 5-Aug-85 16:12")
(PROG (CURRENT-KEY)
(VKBD.KEYBOARD-WINDOW-REPAINTFN W)
(if (SETQ CURRENT-KEY (WINDOWPROP W 'VKBD.CURRENT-KEY))
then (VKBD.FRAME-KEY (CAR CURRENT-KEY)
W BLACKSHADE 2)
(if (CADR CURRENT-KEY)
then (VKBD.INVERT-SHIFT-KEYS W))
(VKBD.EDIT.INVERT-IF-LOCKED (CAR CURRENT-KEY)
W])
(VKBD.EDIT.LARGE-WINDOW-REPAINTFN
[LAMBDA (W) (* sm "13-Aug-85 12:43")
(for I from 0 to 20 as Y from 390 by -25 do (MOVETO 10 Y W)
(PRIN1 (OCTALSTRING I)
W))
(for I from 0 by 16 to 255 as X from 40 by 29 do (MOVETO X 420 W)
(PRIN1 (OCTALSTRING I)
W])
(VKBD.EDIT.MAKE-CURRENT-KEY
[LAMBDA (KEY WINDOW MOUSEKEY) (* sm " 7-Aug-85 17:51")
(PROG (CURRENT-KEY SHIFTED CURRENT-KEY-ASSIGNMENT CURRENT-KEY-INFO LOCKED)
(SETQ SHIFTED (WINDOWPROP WINDOW 'VKBD.SHIFT-DOWN))
(SETQ CURRENT-KEY-INFO (WINDOWPROP WINDOW 'VKBD.CURRENT-KEY))
(if (VKBD.LOCK-KEYP KEY WINDOW)
then (if (CADR CURRENT-KEY-INFO)
then (SETQ CURRENT-KEY-ASSIGNMENT (VKBD.FETCH-KEY-ASSIGNMENT (CAR
CURRENT-KEY-INFO
)
WINDOW))
(SETQ LOCKED (EQ (VKBD.LOCK/NOLOCK CURRENT-KEY-ASSIGNMENT)
'LOCKSHIFT))
(RPLACA (CDDADR CURRENT-KEY-ASSIGNMENT)
(if LOCKED
then 'NOLOCKSHIFT
else 'LOCKSHIFT))
(VKBD.INVERT-LOCK-KEYS WINDOW))
elseif (VKBD.ASSIGNABLE-KEYP KEY WINDOW)
then (if CURRENT-KEY-INFO
then (VKBD.ERASE-FRAME (CAR CURRENT-KEY-INFO)
WINDOW 2)
(if (CADR CURRENT-KEY-INFO)
then (VKBD.INVERT-SHIFT-KEYS WINDOW)
(VKBD.EDIT.INVERT-IF-LOCKED (CAR CURRENT-KEY-INFO)
WINDOW)))
(VKBD.FRAME-KEY KEY WINDOW BLACKSHADE 2)
(if SHIFTED
then (VKBD.INVERT-SHIFT-KEYS WINDOW)
(VKBD.EDIT.INVERT-IF-LOCKED KEY WINDOW))
(WINDOWPROP WINDOW 'VKBD.CURRENT-KEY (LIST KEY SHIFTED])
(VKBD.EDIT.QUIT-COMMAND
[LAMBDA (WINDOW) (* sm " 2-Aug-85 15:12")
[REPLACE KEYASSIGNMENTS OF (WINDOWPROP WINDOW 'VKBD.ORIGINAL-KEYBOARD)
WITH (FETCH KEYASSIGNMENTS OF (WINDOWPROP WINDOW 'VKBD.KEYBOARD]
(NOTIFY.EVENT (WINDOWPROP WINDOW 'VKBD.EDITOR-RETURN-EVENT])
(VKBD.EDIT.STOP-COMMAND
[LAMBDA (WINDOW) (* sm " 2-Aug-85 13:04")
(NOTIFY.EVENT (WINDOWPROP (MAINWINDOW WINDOW T)
'VKBD.EDITOR-RETURN-EVENT])
(VKBD.EDIT.SWITCH-CHAR-SET-COMMAND
[LAMBDA (MAIN-WINDOW) (* sm " 5-Aug-85 09:28")
(PROG (LARGE-WINDOW NEW-NUMBER)
(SETQ LARGE-WINDOW (CAR (ATTACHEDWINDOWS MAIN-WINDOW)))
[SETQ NEW-NUMBER (MENU (WINDOWPROP MAIN-WINDOW 'VKBD.CHAR-SET-MENU)
(create POSITION
XCOORD _ [IPLUS 34 (fetch (REGION LEFT)
of (WINDOWPROP LARGE-WINDOW
'REGION]
YCOORD _ (IPLUS 9 (fetch (REGION BOTTOM)
of (WINDOWPROP LARGE-WINDOW 'REGION]
(if NEW-NUMBER
then (VKBD.EDIT.SWITCH-CHARACTER-SET NEW-NUMBER LARGE-WINDOW])
(VKBD.EDIT.SWITCH-CHARACTER-SET
[LAMBDA (SET-NUMBER WINDOW) (* sm " 6-Aug-85 14:08")
(PROG (MENU OLDCURSOR FONT)
(if (WINDOWPROP WINDOW 'MENU)
then (DELETEMENU (CAR (WINDOWPROP WINDOW 'MENU))
NIL WINDOW))
(WINDOWPROP WINDOW 'TITLE (CONCAT "Character set " (OCTALSTRING SET-NUMBER)))
[SETQ FONT (FONTCREATE (fetch (KEYBOARDCONFIGURATION KEYBOARDDISPLAYFONT)
of (VKBD.GET-CONFIGURATION (MAINWINDOW WINDOW]
(ADDMENU (VKBD.EDIT.CREATE-CHARACTERS-MENU SET-NUMBER FONT)
WINDOW
(create POSITION
XCOORD _ 30
YCOORD _ 5])
(VKBD.EDIT.ROTATED-NUMBER
[LAMBDA (NUM ROW-NUM COL-NUM) (* edited%: " 3-Jun-85 12:47")
(IPLUS (ITIMES (IMOD (SUB1 NUM)
COL-NUM)
ROW-NUM)
(ADD1 (IQUOTIENT (SUB1 NUM)
COL-NUM])
)
(RPAQ? VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS T)
(RPAQ? VKBD.EDIT.MAX-NUMBER-OF-CASHED-MENUS 15)
(RPAQ? VKBD.EDITOR-WINDOW-HEIGHT 450)
(RPAQ? VKBD.EDITOR-WINDOW-WIDTH 512)
(RPAQ? VKBD.EDIT.DISPLAY-CHAR-SETS-NAMES T)
(RPAQQ VKBD.EDIT.BACKGROUND-MENU-SUBITEMS
(SUBITEMS ("New Keyboard, default initial" '(ADD.PROCESS '(VKBD.EDIT-KEYBOARD-COMMAND T))
"Calls the keyboard editor. Will prompt for name for the new keyboard, and will use the default keyboard as the initial keyboard"
)
("New keyboard, other initial" '(ADD.PROCESS '(VKBD.EDIT-KEYBOARD-COMMAND T T))
"Calls the keyboard editor. Will prompt for name for the new keyboard, and will pop up a menu of the current known keyboards. The selected one will be used as the initial keyboard"
)
("Existing keyboard" '(ADD.PROCESS '(VKBD.EDIT-KEYBOARD-COMMAND))
"Will let you select a keyboard from list of the known keyboards, and will calls the keyboard editor on the selected keyboard."
)))
(RPAQQ VKBD.EDIT.CASH-MENUES NIL)
(RPAQQ VKBD.EDIT.CHAR-SET-NAMES
(("ASCII/ISO/CCITT Roman Alphabet and Punctuation" 0)
("JIS Symbols 1 - Punctuation and Symbols not in Char set 0" 33)
("JIS Symbols 2 - Punctuation and Symbols not in Char set 0" 34)
("Extended Latin" 35)
("JIS Hiragana" 36)
("JIS Katakana" 37)
("Greek" 38)
("Cyrillic" 39)
("Symbols 3 - Miscellaneous Japanese Symbols" 116)
("General and Technical Symbols 2" 238)
("General and Technical Symbols 1" 239)
("Ligatures, Graphical Entities, and Field Format Symbols" 240)
("Accented Characters" 241)))
(RPAQQ VKBD.EDIT.MENU-ITEMS (("CharSet" VKBD.EDIT.SWITCH-CHAR-SET-COMMAND "Pops up a menu of all possible character set number. Selecting one will switch the displayed character set."
)
("Stop" VKBD.EDIT.STOP-COMMAND
"Exit from the keyboard editor. Returns the new keyboard, but does not modify the original one."
)
("Quit" VKBD.EDIT.QUIT-COMMAND
"Exit from the keyboard editor. Modifies the roriginal keyboard and returns it ."
)
("Define" VKBD.EDIT.DEFINE-COMMAND
"Adds the edited keyboard in its current state to the set of known keyboards."
)))
(RPAQQ VKBD.EDIT.NON-CHAR-ASSIGNMENTS (SHIFT CTRL META LOCK LOCKDOWN LOCKUP EVENT))
(RPAQQ VKBD.EDIT.ICON #*(93 93)OOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@F@@@@@@@@@@@@@@@@@@CHN@@A@@@@@@@@@@@@@@@@@@CHN@@F@@@@@@@@@@@@@@@@@@CHN@@@@@@@@AOOOOOOOO@@@@CHN@@@@@@@@A@@@@@@@A@@@@CHN@@B@@@@@A@@@@@@@A@@@@CHN@@BAOOOOOOOON@@@A@@@@CHN@@BA@@@@A@@@B@@OOO@@@CHN@@BA@@@@A@@@B@@HAA@@@CHN@@OI@@@@GL@@OHALAA@@@CHN@@GA@@@@CH@@G@ALAA@@@CHN@@BA@@@@A@@@B@@HAA@@@CHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHNG@HEBA@HDBA@HDBAAHD@GCHNG@HEBA@HDBA@HDBAAHD@GCHNG@HEBA@HDBA@HDBAAHDNGCHNG@HDBA@HDBA@HDBAAHD@GCHNGOOOOOOOOOOOOOOOOOOOOCHNG@BA@HDBA@HDBA@HEBA@GCHNGGBA@HDBA@HDBA@HEBA@GCHNGGBA@HDBA@HDBA@HDBAFGCHNG@BA@HDBA@HDBA@HDBA@GCHNGOOOOOOOOOOOOOOOOOOHGCHNG@AHDBA@HDBA@HDBA@HIGCHNG@AHDBA@HDBA@HDBA@HIGCHNG@AHDBA@HDBA@HDBA@HIGCHNG@AHDBA@HDBA@HDBA@HHGCHNGOOOOOOOOOOOOOOOOOOOOCHNG@@@HDBA@HDBA@HDBA@@GCHNG@@@HDBA@HDBA@HDBA@@GCHNG@@@HDBA@HDBA@HDBA@@GCHNG@@@HDBA@HDBA@HDBA@@GCHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHNGOOOOOOOOOOOOOOOOOOOOCHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHN@@@@@@@@@@@@@@@@@@@@@CHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOH
)
(RPAQQ VKBD.EDIT.MASK #*(93 93)OOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOHOOOOOOOOOOOOOOOOOOOOOOOH
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS VKBD.EDIT.ALLOW-NON-CHAR-ASSIGNMENTS VKBD.EDIT.BACKGROUND-MENU-SUBITEMS
VKBD.EDIT.MAX-NUMBER-OF-CASHED-MENUS VKBD.EDITOR-WINDOW-HEIGHT VKBD.EDITOR-WINDOW-WIDTH
VKBD.EDIT.DISPLAY-CHAR-SETS-NAMES VKBD.EDIT.CASH-MENUES VKBD.EDIT.CHAR-SET-NAMES
VKBD.EDIT.MENU-ITEMS VKBD.EDIT.NON-CHAR-ASSIGNMENTS VKBD.CONF.ICON VKBD.EDIT.ICON
VKBD.EDIT.MASK)
)
(VKBD.EDIT.ADD-SUBITEM-TO-BACKGROUND-MENU (LIST "Edit" '(ADD.PROCESS '(VKBD.EDIT-KEYBOARD-COMMAND
T))
"Calls the keyboard editor. Will prompt for name for the new keyboard, and will use the default keyboard as the initial keyboard"
VKBD.EDIT.BACKGROUND-MENU-SUBITEMS)
"Keyboard")
(PUTPROPS KEYBOARDEDITOR COPYRIGHT ("Venue & Xerox Corporation" 1985 1987 1990 1995))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3425 17285 (EDITCONFIGURATION 3435 . 3758) (VKBD.CONF.CHANGE-KEY-VALUE 3760 . 8385) (
VKBD.CONF.DISPLAY-FIELD-VALUE 8387 . 10160) (VKBD.CONF.DISPLAY-INFO-KEYBOARD 10162 . 12109) (
VKBD.CONF.DISPLAY-KEY-INFO 12111 . 12868) (VKBD.CONF.EDIT-DEFAULT-ASSIGNMENTS 12870 . 14251) (
VKBD.CONF.ICONFN 14253 . 14994) (VKBD.CONF.PARSE-CONFIGURATION 14996 . 17283)) (19611 42442 (
EDITKEYBOARD 19621 . 21921) (VKBD.EDIT.ADD-SUBITEM-TO-BACKGROUND-MENU 21923 . 22849) (
VKBD.EDIT.CREATE-COMMAND-MENU 22851 . 23201) (VKBD.EDIT.CREATE-NON-CHAR-ASSIGMENTS-MENU 23203 . 23666)
(VKBD.EDIT-KEYBOARD-COMMAND 23668 . 25041) (VKBD.EDIT.ASSIGN-CHARACTER 25043 . 27717) (
VKBD.EDIT.ASSIGN-NON-CHARACTER 27719 . 28337) (VKBD.EDIT.CREATE-CHARACTER-SETS-MENU 28339 . 29378) (
VKBD.EDIT.CREATE-CHARACTERS-MENU 29380 . 31683) (VKBD.EDIT.CREATE-DISPLAY 31685 . 34918) (
VKBD.EDIT.DEFINE-COMMAND 34920 . 35322) (VKBD.EDIT.DO-MENU-COMMAND 35324 . 35534) (VKBD.EDIT.ICONFN
35536 . 36185) (VKBD.EDIT.INVERT-IF-LOCKED 36187 . 36620) (VKBD.EDIT.KEYBOARD-REPAINTFN 36622 . 37192)
(VKBD.EDIT.LARGE-WINDOW-REPAINTFN 37194 . 37789) (VKBD.EDIT.MAKE-CURRENT-KEY 37791 . 39843) (
VKBD.EDIT.QUIT-COMMAND 39845 . 40198) (VKBD.EDIT.STOP-COMMAND 40200 . 40426) (
VKBD.EDIT.SWITCH-CHAR-SET-COMMAND 40428 . 41354) (VKBD.EDIT.SWITCH-CHARACTER-SET 41356 . 42139) (
VKBD.EDIT.ROTATED-NUMBER 42141 . 42440)))))
STOP

BIN
library/virtualkeyboards/KEYBOARDEDITOR.LCOM Normal file
View File

Binary file not shown.

3399
library/virtualkeyboards/VIRTUALKEYBOARDS Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
library/virtualkeyboards/VIRTUALKEYBOARDS.LCOM Normal file
View File

Binary file not shown.

BIN
library/virtualkeyboards/VIRTUALKEYBOARDS.TEDIT Normal file
View File

Binary file not shown.

BIN
library/virtualkeyboards/XKEYBOARDS Normal file
View File

Binary file not shown.