Mercurial > hg > xemacs-beta

comparison src/events.c @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 850242ba4a81
children 41ff10fd062f
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
1918 event = wrong_type_argument (intern ("timeout-or-eval-event-p"), event); 1918 event = wrong_type_argument (intern ("timeout-or-eval-event-p"), event);
1919 goto again; 1919 goto again;
1920 } 1920 }
1921 } 1921 }
1922 1922
1923 DEFUN ("event-drag-and-drop-data", Fevent_drag_and_drop_data, 1, 1, 0, /*
1924 Return the Dnd data list of EVENT.
1925 EVENT should be a dnd_drop event.
1926 */
1927 (event))
1928 {
1923 #ifdef HAVE_OFFIX_DND 1929 #ifdef HAVE_OFFIX_DND
1924 DEFUN ("event-dnd-data", Fevent_dnd_data, 1, 1, 0, /*
1925 Return the Dnd data list of EVENT.
1926 EVENT should be a dnd_drop (later also dnd_drag) event.
1927 */
1928 (event))
1929 {
1930 again: 1930 again:
1931 CHECK_LIVE_EVENT (event); 1931 CHECK_LIVE_EVENT (event);
1932 switch (XEVENT (event)->event_type) 1932 switch (XEVENT (event)->event_type)
1933 { 1933 {
1934 case dnd_drop_event: 1934 case dnd_drop_event:
1935 return XEVENT (event)->event.dnd_drop.data; 1935 return XEVENT (event)->event.dnd_drop.data;
1936 default: 1936 default:
1937 event = wrong_type_argument (Qdnd_drop_event_p, event); 1937 event = wrong_type_argument (Qdnd_drop_event_p, event);
1938 goto again; 1938 goto again;
1939 } 1939 }
1940 } 1940 #else /* !HAVE_OFFIX_DND */
1941 return Qnil;
1941 #endif /* HAVE_OFFIX_DND */ 1942 #endif /* HAVE_OFFIX_DND */
1943 }
1942 1944
1943 DEFUN ("event-properties", Fevent_properties, 1, 1, 0, /* 1945 DEFUN ("event-properties", Fevent_properties, 1, 1, 0, /*
1944 Return a list of all of the properties of EVENT. 1946 Return a list of all of the properties of EVENT.
1945 This is in the form of a property list (alternating keyword/value pairs). 1947 This is in the form of a property list (alternating keyword/value pairs).
1946 */ 1948 */
1998 case dnd_drop_event: 2000 case dnd_drop_event:
1999 props = Fcons (Qy, Fcons (Fevent_y_pixel (event), props)); 2001 props = Fcons (Qy, Fcons (Fevent_y_pixel (event), props));
2000 props = Fcons (Qx, Fcons (Fevent_x_pixel (event), props)); 2002 props = Fcons (Qx, Fcons (Fevent_x_pixel (event), props));
2001 props = Fcons (Qmodifiers, Fcons (Fevent_modifiers (event), props)); 2003 props = Fcons (Qmodifiers, Fcons (Fevent_modifiers (event), props));
2002 props = Fcons (Qbutton, Fcons (Fevent_button (event), props)); 2004 props = Fcons (Qbutton, Fcons (Fevent_button (event), props));
2003 props = Fcons (Qdnd_data, Fcons (Fevent_dnd_data (event), props)); 2005 props = Fcons (Qdnd_data, Fcons (Fevent_drag_and_drop_data (event), props));
2004 break; 2006 break;
2005 #endif 2007 #endif
2006 2008
2007 case magic_eval_event: 2009 case magic_eval_event:
2008 case magic_event: 2010 case magic_event:
2068 DEFSUBR (Fevent_glyph_y_pixel); 2070 DEFSUBR (Fevent_glyph_y_pixel);
2069 DEFSUBR (Fevent_toolbar_button); 2071 DEFSUBR (Fevent_toolbar_button);
2070 DEFSUBR (Fevent_process); 2072 DEFSUBR (Fevent_process);
2071 DEFSUBR (Fevent_function); 2073 DEFSUBR (Fevent_function);
2072 DEFSUBR (Fevent_object); 2074 DEFSUBR (Fevent_object);
2073 #ifdef HAVE_OFFIX_DND 2075 DEFSUBR (Fevent_drag_and_drop_data);
2074 DEFSUBR (Fevent_dnd_data);
2075 #endif
2076 2076
2077 defsymbol (&Qeventp, "eventp"); 2077 defsymbol (&Qeventp, "eventp");
2078 defsymbol (&Qevent_live_p, "event-live-p"); 2078 defsymbol (&Qevent_live_p, "event-live-p");
2079 defsymbol (&Qkey_press_event_p, "key-press-event-p"); 2079 defsymbol (&Qkey_press_event_p, "key-press-event-p");
2080 defsymbol (&Qbutton_event_p, "button-event-p"); 2080 defsymbol (&Qbutton_event_p, "button-event-p");