Mercurial > hg > xemacs-beta

comparison src/event-Xt.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
1337 do this in their selection callback, but we don't want that since 1337 do this in their selection callback, but we don't want that since
1338 a button having focus is legitimate. An edit field having focus 1338 a button having focus is legitimate. An edit field having focus
1339 is mandatory. Weirdly you get a FocusOut event when you click in 1339 is mandatory. Weirdly you get a FocusOut event when you click in
1340 a widget-glyph but you don't get a correspondng FocusIn when you 1340 a widget-glyph but you don't get a correspondng FocusIn when you
1341 click in the frame. Why is this? */ 1341 click in the frame. Why is this? */
1342 if (in_p 1342 if (in_p
1343 #if XtSpecificationRelease > 5 1343 #if XtSpecificationRelease > 5
1344 && FRAME_X_TEXT_WIDGET (f) != focus_widget 1344 && FRAME_X_TEXT_WIDGET (f) != focus_widget
1345 #endif 1345 #endif
1346 ) 1346 )
1347 { 1347 {
1348 lw_set_keyboard_focus (FRAME_X_SHELL_WIDGET (f), 1348 lw_set_keyboard_focus (FRAME_X_SHELL_WIDGET (f),
2009 2009
2010 static void 2010 static void
2011 Xt_process_to_emacs_event (struct Lisp_Event *emacs_event) 2011 Xt_process_to_emacs_event (struct Lisp_Event *emacs_event)
2012 { 2012 {
2013 int i; 2013 int i;
2014 Lisp_Object process;
2015 2014
2016 assert (process_events_occurred > 0); 2015 assert (process_events_occurred > 0);
2016
2017 for (i = 0; i < MAXDESC; i++) 2017 for (i = 0; i < MAXDESC; i++)
2018 { 2018 {
2019 process = filedesc_with_input[i]; 2019 Lisp_Object process = filedesc_with_input[i];
2020 if (PROCESSP (process)) 2020 if (PROCESSP (process))
2021 break; 2021 {
2022 } 2022 filedesc_with_input[i] = Qnil;
2023 assert (i < MAXDESC); 2023 process_events_occurred--;
2024 filedesc_with_input[i] = Qnil; 2024 /* process events have nil as channel */
2025 process_events_occurred--; 2025 emacs_event->event_type = process_event;
2026 /* process events have nil as channel */ 2026 emacs_event->timestamp = 0; /* #### */
2027 emacs_event->event_type = process_event; 2027 emacs_event->event.process.process = process;
2028 emacs_event->timestamp = 0; /* #### */ 2028 return;
2029 emacs_event->event.process.process = process; 2029 }
2030 }
2031 abort ();
2030 } 2032 }
2031 2033
2032 static void 2034 static void
2033 emacs_Xt_select_console (struct console *con) 2035 emacs_Xt_select_console (struct console *con)
2034 { 2036 {