Mercurial > hg > xemacs-beta

comparison src/console.h @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children bbff43aa5eb7
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
35 the same server. Because of this, input comes from the device 35 the same server. Because of this, input comes from the device
36 and not from the console. This is OK because events are basically 36 and not from the console. This is OK because events are basically
37 always tagged to a particular X window (i.e. frame), 37 always tagged to a particular X window (i.e. frame),
38 which exists on only one screen; therefore the event won't be 38 which exists on only one screen; therefore the event won't be
39 reported multiple times even if there are multiple devices on 39 reported multiple times even if there are multiple devices on
40 the same physical display. This is an implementational detail 40 the same physical display. This is an implementation detail
41 specific to X consoles (e.g. under NeXTstep or Windows, this 41 specific to X consoles (e.g. under NeXTstep or Windows, this
42 could be different, and input would come directly from the console). 42 could be different, and input would come directly from the console).
43 */ 43 */
44 44
45 45
207 int depth); 207 int depth);
208 unsigned long (*image_instance_hash_method) (struct Lisp_Image_Instance *, 208 unsigned long (*image_instance_hash_method) (struct Lisp_Image_Instance *,
209 int depth); 209 int depth);
210 void (*init_image_instance_from_eimage_method) (struct Lisp_Image_Instance *ii, 210 void (*init_image_instance_from_eimage_method) (struct Lisp_Image_Instance *ii,
211 int width, int height, 211 int width, int height,
212 unsigned char *eimage, 212 unsigned char *eimage,
213 int dest_mask, 213 int dest_mask,
214 Lisp_Object instantiator, 214 Lisp_Object instantiator,
215 Lisp_Object domain); 215 Lisp_Object domain);
216 Lisp_Object (*locate_pixmap_file_method) (Lisp_Object file_method); 216 Lisp_Object (*locate_pixmap_file_method) (Lisp_Object file_method);
217 int (*colorize_image_instance_method) (Lisp_Object image_instance, 217 int (*colorize_image_instance_method) (Lisp_Object image_instance,
218 Lisp_Object fg, Lisp_Object bg); 218 Lisp_Object fg, Lisp_Object bg);
219 #ifdef HAVE_XPM 219 #ifdef HAVE_XPM
220 /* which is more tacky - this or #defines in glyphs.c? */ 220 /* which is more tacky - this or #defines in glyphs.c? */
221 void (*xpm_instantiate_method)(Lisp_Object image_instance, 221 void (*xpm_instantiate_method)(Lisp_Object image_instance,
222 Lisp_Object instantiator, 222 Lisp_Object instantiator,
223 Lisp_Object pointer_fg, 223 Lisp_Object pointer_fg,
224 Lisp_Object pointer_bg, 224 Lisp_Object pointer_bg,
225 int dest_mask, Lisp_Object domain); 225 int dest_mask, Lisp_Object domain);
226 #endif 226 #endif
227 #ifdef HAVE_WINDOW_SYSTEM 227 #ifdef HAVE_WINDOW_SYSTEM
228 /* which is more tacky - this or #defines in glyphs.c? */ 228 /* which is more tacky - this or #defines in glyphs.c? */
229 void (*xbm_instantiate_method)(Lisp_Object image_instance, 229 void (*xbm_instantiate_method)(Lisp_Object image_instance,
230 Lisp_Object instantiator, 230 Lisp_Object instantiator,
231 Lisp_Object pointer_fg, 231 Lisp_Object pointer_fg,
232 Lisp_Object pointer_bg, 232 Lisp_Object pointer_bg,
233 int dest_mask, Lisp_Object domain); 233 int dest_mask, Lisp_Object domain);
234 #endif 234 #endif
235 Lisp_Object image_conversion_list; 235 Lisp_Object image_conversion_list;
236 236
295 #define HAS_CONTYPE_METH_P(meth, m) ((meth)->m##_method) 295 #define HAS_CONTYPE_METH_P(meth, m) ((meth)->m##_method)
296 #define CONTYPE_METH(meth, m, args) (((meth)->m##_method) args) 296 #define CONTYPE_METH(meth, m, args) (((meth)->m##_method) args)
297 297
298 /* Call a void-returning console method, if it exists */ 298 /* Call a void-returning console method, if it exists */
299 #define MAYBE_CONTYPE_METH(meth, m, args) do { \ 299 #define MAYBE_CONTYPE_METH(meth, m, args) do { \
300 struct console_methods *_maybe_contype_meth_meth = (meth); \ 300 struct console_methods *maybe_contype_meth_meth = (meth); \
301 if (HAS_CONTYPE_METH_P (_maybe_contype_meth_meth, m)) \ 301 if (HAS_CONTYPE_METH_P (maybe_contype_meth_meth, m)) \
302 CONTYPE_METH (_maybe_contype_meth_meth, m, args); \ 302 CONTYPE_METH (maybe_contype_meth_meth, m, args); \
303 } while (0) 303 } while (0)
304 304
305 /* Call a console method, if it exists; otherwise return 305 /* Call a console method, if it exists; otherwise return
306 the specified value - meth is multiply evaluated. */ 306 the specified value - meth is multiply evaluated. */
307 #define CONTYPE_METH_OR_GIVEN(meth, m, args, given) \ 307 #define CONTYPE_METH_OR_GIVEN(meth, m, args, given) \
529 #define CONSOLE_FUNCTION_KEY_MAP(con) ((con)->function_key_map) 529 #define CONSOLE_FUNCTION_KEY_MAP(con) ((con)->function_key_map)
530 #define CONSOLE_DEVICE_LIST(con) ((con)->device_list) 530 #define CONSOLE_DEVICE_LIST(con) ((con)->device_list)
531 #define CONSOLE_SELECTED_DEVICE(con) ((con)->selected_device) 531 #define CONSOLE_SELECTED_DEVICE(con) ((con)->selected_device)
532 #define CONSOLE_SELECTED_FRAME(con) \ 532 #define CONSOLE_SELECTED_FRAME(con) \
533 DEVICE_SELECTED_FRAME (XDEVICE ((con)->selected_device)) 533 DEVICE_SELECTED_FRAME (XDEVICE ((con)->selected_device))
534 #define CONSOLE_LAST_NONMINIBUF_FRAME(con) NON_LVALUE ((con)->_last_nonminibuf_frame) 534 #define CONSOLE_LAST_NONMINIBUF_FRAME(con) NON_LVALUE ((con)->last_nonminibuf_frame)
535 #define CONSOLE_QUIT_CHAR(con) ((con)->quit_char) 535 #define CONSOLE_QUIT_CHAR(con) ((con)->quit_char)
536 536
537 #define CDFW_CONSOLE(obj) \ 537 #define CDFW_CONSOLE(obj) \
538 (WINDOWP (obj) ? WINDOW_CONSOLE (XWINDOW (obj)) \ 538 (WINDOWP (obj) ? WINDOW_CONSOLE (XWINDOW (obj)) \
539 : (FRAMEP (obj) ? FRAME_CONSOLE (XFRAME (obj)) \ 539 : (FRAMEP (obj) ? FRAME_CONSOLE (XFRAME (obj)) \