mleisher@nmsu.edu (Mark Leisher) (07/20/90)
It occured to me that it might be useful to post the translations I designed for the AsciiTextWidget to get at the characters above 127. So, here 'tis. The basic idea is to type a <Ctrl>-| as a prefix and some sequence of characters to get the character you want. The character sequences are pretty much arbitrarily assigned, but I tried set them up in a mnemonic fashion. If anyone wants to suggest improvements or additions, please feel free. P.S. The reason that the translations for normal character insertion are re-done at the bottom, is that there are some ambiguities in the translation manager <to be resolved later I hear>. ---------- 8< ------- Cut Here ------ 8< -------- char *latin1Translations = "\ :Ctrl<Key>bar,<Key>exclam: insert-string(0x0a1) \n\ :Ctrl<Key>bar,<Key>bar,:<Key>c: insert-string(0x0a2) \n\ :Ctrl<Key>bar,:<Key>p,:<Key>o: insert-string(0x0a3) \n\ :Ctrl<Key>bar,:<Key>c,:<Key>u: insert-string(0x0a4) \n\ :Ctrl<Key>bar,:<Key>Y: insert-string(0x0a5) \n\ :Ctrl<Key>bar,:<Key>b,:<Key>b: insert-string(0x0a6) \n\ :Ctrl<Key>bar,:<Key>s,:<Key>e: insert-string(0x0a7) \n\ :Ctrl<Key>bar,:<Key>d,:<Key>i: insert-string(0x0a8) \n\ :Ctrl<Key>bar,:<Key>c,:<Key>o: insert-string(0x0a9) \n\ :Ctrl<Key>bar,:<Key>o,:<Key>f: insert-string(0x0aa) \n\ :Ctrl<Key>bar,<Key>less: insert-string(0x0ab) \n\ :Ctrl<Key>bar,:<Key>n,:<Key>o,:<Key>t: insert-string(0x0ac) \n\ :Ctrl<Key>bar,<Key>minus: insert-string(0x0ad) \n\ :Ctrl<Key>bar,:<Key>r,:<Key>e: insert-string(0x0ae) \n\ :Ctrl<Key>bar,:<Key>m,:<Key>a: insert-string(0x0af) \n\ :Ctrl<Key>bar,:<Key>d,:<Key>e: insert-string(0x0b0) \n\ :Ctrl<Key>bar,<Key>plus,<Key>minus: insert-string(0x0b1) \n\ :Ctrl<Key>bar,:<Key>t,:<Key>s: insert-string(0x0b2) \n\ :Ctrl<Key>bar,:<Key>t,:<Key>h,:<Key>s: insert-string(0x0b3) \n\ :Ctrl<Key>bar,:<Key>a,:<Key>c: insert-string(0x0b4) \n\ :Ctrl<Key>bar,:<Key>m,:<Key>u: insert-string(0x0b5) \n\ :Ctrl<Key>bar,:<Key>p,:<Key>a: insert-string(0x0b6) \n\ :Ctrl<Key>bar,:<Key>p,:<Key>c: insert-string(0x0b7) \n\ :Ctrl<Key>bar,:<Key>c,:<Key>e: insert-string(0x0b8) \n\ :Ctrl<Key>bar,:<Key>o,:<Key>s: insert-string(0x0b9) \n\ :Ctrl<Key>bar,:<Key>o,:<Key>m: insert-string(0x0ba) \n\ :Ctrl<Key>bar,<Key>greater: insert-string(0x0bb) \n\ :Ctrl<Key>bar,<Key>1,<Key>4: insert-string(0x0bc) \n\ :Ctrl<Key>bar,<Key>1,<Key>2: insert-string(0x0bd) \n\ :Ctrl<Key>bar,<Key>3,<Key>4: insert-string(0x0be) \n\ :Ctrl<Key>bar,<Key>question: insert-string(0x0bf) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>A: insert-string(0x0c0) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>A: insert-string(0x0c1) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>A: insert-string(0x0c2) \n\ :Ctrl<Key>bar,<Key>asciitilde,:<Key>A: insert-string(0x0c3) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>A: insert-string(0x0c4) \n\ :Ctrl<Key>bar,:<Key>o,:<Key>A: insert-string(0x0c5) \n\ :Ctrl<Key>bar,:<Key>A,:<Key>E: insert-string(0x0c6) \n\ :Ctrl<Key>bar,<Key>comma,:<Key>C: insert-string(0x0c7) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>E: insert-string(0x0c8) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>E: insert-string(0x0c9) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>E: insert-string(0x0ca) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>E: insert-string(0x0cb) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>I: insert-string(0x0cc) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>I: insert-string(0x0cd) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>I: insert-string(0x0ce) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>I: insert-string(0x0cf) \n\ :Ctrl<Key>bar,:<Key>E: insert-string(0x0d0) \n\ :Ctrl<Key>bar,<Key>asciitilde,:<Key>N: insert-string(0x0d1) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>O: insert-string(0x0d2) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>O: insert-string(0x0d3) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>O: insert-string(0x0d4) \n\ :Ctrl<Key>bar,<Key>asciitilde,:<Key>O: insert-string(0x0d5) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>O: insert-string(0x0d6) \n\ :Ctrl<Key>bar,:<Key>x: insert-string(0x0d7) \n\ :Ctrl<Key>bar,<Key>slash,:<Key>O: insert-string(0x0d8) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>U: insert-string(0x0d9) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>U: insert-string(0x0da) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>U: insert-string(0x0db) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>U: insert-string(0x0dc) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>Y: insert-string(0x0dd) \n\ :Ctrl<Key>bar,:<Key>T: insert-string(0x0de) \n\ :Ctrl<Key>bar,:<Key>S: insert-string(0x0df) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>a: insert-string(0x0e0) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>a: insert-string(0x0e1) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>a: insert-string(0x0e2) \n\ :Ctrl<Key>bar,<Key>asciitilde,:<Key>a: insert-string(0x0e3) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>a: insert-string(0x0e4) \n\ :Ctrl<Key>bar,:<Key>o,:<Key>a: insert-string(0x0e5) \n\ :Ctrl<Key>bar,:<Key>a,:<Key>e: insert-string(0x0e6) \n\ :Ctrl<Key>bar,<Key>comma,:<Key>c: insert-string(0x0e7) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>e: insert-string(0x0e8) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>e: insert-string(0x0e9) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>e: insert-string(0x0ea) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>e: insert-string(0x0eb) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>i: insert-string(0x0ec) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>i: insert-string(0x0ed) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>i: insert-string(0x0ee) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>i: insert-string(0x0ef) \n\ :Ctrl<Key>bar,:<Key>e: insert-string(0x0f0) \n\ :Ctrl<Key>bar,<Key>asciitilde,:<Key>n: insert-string(0x0f1) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>o: insert-string(0x0f2) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>o: insert-string(0x0f3) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>o: insert-string(0x0f4) \n\ :Ctrl<Key>bar,<Key>asciitilde,:<Key>o: insert-string(0x0f5) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>o: insert-string(0x0f6) \n\ :Ctrl<Key>bar,:<Key>d,:<Key>v: insert-string(0x0f7) \n\ :Ctrl<Key>bar,<Key>slash,:<Key>o: insert-string(0x0f8) \n\ :Ctrl<Key>bar,<Key>grave,:<Key>u: insert-string(0x0f9) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>u: insert-string(0x0fa) \n\ :Ctrl<Key>bar,<Key>asciicircum,:<Key>u: insert-string(0x0fb) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>u: insert-string(0x0fc) \n\ :Ctrl<Key>bar,<Key>apostrophe,:<Key>y: insert-string(0x0fd) \n\ :Ctrl<Key>bar,:<Key>t,:<Key>h,:<Key>o: insert-string(0x0fe) \n\ :Ctrl<Key>bar,<Key>colon,:<Key>y: insert-string(0x0ff) \n\ <Key>exclam: insert-char() \n:<Key>d: insert-char() \n\ <Key>bar: insert-char() \n:<Key>i: insert-char() \n\ <Key>less: insert-char() \n:<Key>f: insert-char() \n\ <Key>minus: insert-char() \n:<Key>n: insert-char() \n\ <Key>plus: insert-char() \n:<Key>t: insert-char() \n\ <Key>greater: insert-char() \n:<Key>r: insert-char() \n\ <Key>question: insert-char() \n:<Key>h: insert-char() \n\ <Key>grave: insert-char() \n:<Key>a: insert-char() \n\ <Key>apostrophe: insert-char() \n:<Key>m: insert-char() \n\ <Key>asciicircum: insert-char() \n:<Key>x: insert-char() \n\ <Key>asciitilde: insert-char() \n<Key>1: insert-char() \n\ <Key>colon: insert-char() \n<Key>2: insert-char() \n\ <Key>comma: insert-char() \n<Key>3: insert-char() \n\ <Key>slash: insert-char() \n<Key>4: insert-char() \n\ :<Key>c: insert-char() \n:<Key>A: insert-char() \n\ :<Key>p: insert-char() \n:<Key>E: insert-char() \n\ :<Key>o: insert-char() \n:<Key>I: insert-char() \n\ :<Key>u: insert-char() \n:<Key>O: insert-char() \n\ :<Key>Y: insert-char() \n:<Key>U: insert-char() \n\ :<Key>b: insert-char() \n:<Key>N: insert-char() \n\ :<Key>s: insert-char() \n:<Key>T: insert-char() \n\ :<Key>e: insert-char() \n:<Key>v: insert-char() \n\ :<Key>S: insert-char() \n:<Key>y: insert-char() \n"; -- ----------------------------------------------------------------------------- mleisher@nmsu.edu "I laughed. Mark Leisher I cried. Computing Research Lab I fell down. New Mexico State University It changed my life." Las Cruces, NM - Rich [Cowboy Feng's Space Bar and Grille]