Mercurial > hg > xemacs-beta

comparison src/gpmevent.c @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 1ccc32a20af4
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
138 event->channel = Fselected_frame (Qnil); /* CONSOLE_SELECTED_FRAME (con); */ 138 event->channel = Fselected_frame (Qnil); /* CONSOLE_SELECTED_FRAME (con); */
139 139
140 /* Whow, wouldn't named defines be NICE!?!?! */ 140 /* Whow, wouldn't named defines be NICE!?!?! */
141 modifiers = 0; 141 modifiers = 0;
142 142
143 if (ev.modifiers & 1) modifiers |= MOD_SHIFT; 143 if (ev.modifiers & 1) modifiers |= XEMACS_MOD_SHIFT;
144 if (ev.modifiers & 2) modifiers |= MOD_META; 144 if (ev.modifiers & 2) modifiers |= XEMACS_MOD_META;
145 if (ev.modifiers & 4) modifiers |= MOD_CONTROL; 145 if (ev.modifiers & 4) modifiers |= XEMACS_MOD_CONTROL;
146 if (ev.modifiers & 8) modifiers |= MOD_META; 146 if (ev.modifiers & 8) modifiers |= XEMACS_MOD_META;
147 147
148 if (ev.buttons & GPM_B_LEFT) 148 if (ev.buttons & GPM_B_LEFT)
149 { 149 {
150 button = 1; 150 button = 1;
151 } 151 }
307 UNGCPRO; 307 UNGCPRO;
308 return (output_string); 308 return (output_string);
309 } 309 }
310 310
311 static Lisp_Object 311 static Lisp_Object
312 tty_selection_exists_p (Lisp_Object selection) 312 tty_selection_exists_p (Lisp_Object selection, Lisp_Object selection_type)
313 { 313 {
314 return (Qt); 314 return (Qt);
315 } 315 }
316 #endif /* TIOCLINUX */ 316 #endif /* TIOCLINUX */
317 317
318 #if 0 318 #if 0
319 static Lisp_Object 319 static Lisp_Object
320 tty_own_selection (Lisp_Object selection_name, Lisp_Object selection_value) 320 tty_own_selection (Lisp_Object selection_name, Lisp_Object selection_value,
321 Lisp_Object how_to_add, Lisp_Object selection_type)
321 { 322 {
322 /* There is no way to do this cleanly - the GPM selection 323 /* There is no way to do this cleanly - the GPM selection
323 ** 'protocol' (actually the TIOCLINUX ioctl) requires a start and 324 ** 'protocol' (actually the TIOCLINUX ioctl) requires a start and
324 ** end position on the _screen_, not a string to stick in there. 325 ** end position on the _screen_, not a string to stick in there.
325 ** Lame. 326 ** Lame.
567 conn.defaultMask = GPM_MOVE; 568 conn.defaultMask = GPM_MOVE;
568 conn.minMod = 0; 569 conn.minMod = 0;
569 conn.maxMod = ((1<<KG_SHIFT)|(1<<KG_ALT)|(1<<KG_CTRL)); 570 conn.maxMod = ((1<<KG_SHIFT)|(1<<KG_ALT)|(1<<KG_CTRL));
570 571
571 /* Reset some silly static variables so that multiple Gpm_Open() 572 /* Reset some silly static variables so that multiple Gpm_Open()
572 ** calls have even a sligh chance of working 573 ** calls have even a slight chance of working
573 */ 574 */
574 gpm_tried = 0; 575 gpm_tried = 0;
575 gpm_flag = 0; 576 gpm_flag = 0;
576 gpm_stack = NULL; 577 gpm_stack = NULL;
577 578