Lines Matching refs:keysym
13 our $keysym;
76 # read mapping (from http://wsinwp07.win.tue.nl:1234/unicode/keysym.map)
77 open(LIST, "<keysym.map") || die ("Can't open map file:\n$!\n");
80 my $keysym = hex($1);
84 $keysym_to_ucs{$keysym} = $ucs;
85 $keysym_to_keysymname{$keysym} = $comment;
99 my $keysym = hex($2);
100 $keysym_to_keysymname{$keysym} = $keysymname;
107 * This module converts keysym values into the corresponding ISO 10646
110 * The array keysymtab[] contains pairs of X11 keysym values for graphical
112 * keysym2ucs() maps a keysym onto a Unicode value using a binary search,
113 * therefore keysymtab[] must remain SORTED by keysym value.
115 * The keysym -> UTF-8 conversion will hopefully one day be provided
120 * U-00FFFFFF by a keysym value in the range 0x01000000 to 0x01ffffff.
125 * U+ABCD you can directly use keysym 0x0100abcd.
153 unsigned short keysym;
158 for $keysym (sort {$a <=> $b} keys(%keysym_to_keysymname)) {
159 my $ucs = $keysym_to_ucs{$keysym};
160 next if $keysym >= 0xf000 || $keysym < 0x100;
163 $keysym, $ucs, $keysym_to_keysymname{$keysym}, utf8($ucs),
167 $keysym, $keysym_to_keysymname{$keysym});
175 long keysym2ucs(KeySym keysym)
181 if ((keysym >= 0x0020 && keysym <= 0x007e) ||
182 (keysym >= 0x00a0 && keysym <= 0x00ff))
183 return (long) keysym;
186 if ((keysym & 0xff000000) == 0x01000000)
187 return (long) (keysym & 0x00ffffff);
192 if (keysymtab[mid].keysym < keysym)
194 else if (keysymtab[mid].keysym > keysym)