|
428
|
1 /* Define console object for XEmacs.
|
|
872
|
2 Copyright (C) 1996, 2002 Ben Wing
|
|
428
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to
|
|
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
19 Boston, MA 02111-1307, USA. */
|
|
|
20
|
|
|
21 /* Synched up with: Not in FSF. */
|
|
|
22
|
|
|
23 /* Written by Ben Wing. */
|
|
|
24
|
|
440
|
25 #ifndef INCLUDED_console_h_
|
|
|
26 #define INCLUDED_console_h_
|
|
428
|
27
|
|
|
28 /* Devices and consoles are similar entities. The idea is that
|
|
|
29 a console represents a physical keyboard/mouse/other-input-source
|
|
|
30 while a device represents a display where frames appear on.
|
|
|
31 In the X world, a console is a "Display" while a device is a
|
|
|
32 "Screen". Implementationally, it can sometimes get confusing:
|
|
|
33 under X, multiple devices on a single console are different
|
|
|
34 "Display" connections to what is in reality the same Display on
|
|
|
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
|
|
|
37 always tagged to a particular X window (i.e. frame),
|
|
|
38 which exists on only one screen; therefore the event won't be
|
|
|
39 reported multiple times even if there are multiple devices on
|
|
|
40 the same physical display. This is an implementation detail
|
|
|
41 specific to X consoles (e.g. under NeXTstep or Windows, this
|
|
|
42 could be different, and input would come directly from the console).
|
|
|
43 */
|
|
|
44
|
|
|
45
|
|
|
46 /* GCC does not like forward enum declaration. This needs to be
|
|
|
47 defined here. What a disgust! */
|
|
|
48
|
|
|
49 enum device_metrics
|
|
|
50 {
|
|
|
51 DM_color_default, DM_color_select, DM_color_balloon, DM_color_3d_face,
|
|
|
52 DM_color_3d_light, DM_color_3d_dark, DM_color_menu, DM_color_menu_highlight,
|
|
|
53 DM_color_menu_button, DM_color_menu_disabled, DM_color_toolbar,
|
|
|
54 DM_color_scrollbar, DM_color_desktop, DM_color_workspace, DM_font_default,
|
|
|
55 DM_font_menubar, DM_font_dialog, DM_size_cursor, DM_size_scrollbar,
|
|
|
56 DM_size_menu, DM_size_toolbar, DM_size_toolbar_button,
|
|
|
57 DM_size_toolbar_border, DM_size_icon, DM_size_icon_small, DM_size_device,
|
|
440
|
58 DM_size_workspace, DM_offset_workspace, DM_size_device_mm, DM_device_dpi,
|
|
|
59 DM_num_bit_planes, DM_num_color_cells, DM_mouse_buttons, DM_swap_buttons,
|
|
|
60 DM_show_sounds, DM_slow_device, DM_security
|
|
428
|
61 };
|
|
|
62
|
|
872
|
63 struct console;
|
|
428
|
64
|
|
|
65 DECLARE_LRECORD (console, struct console);
|
|
|
66 #define XCONSOLE(x) XRECORD (x, console, struct console)
|
|
617
|
67 #define wrap_console(p) wrap_record (p, console)
|
|
428
|
68 #define CONSOLEP(x) RECORDP (x, console)
|
|
|
69 #define CHECK_CONSOLE(x) CHECK_RECORD (x, console)
|
|
|
70 #define CONCHECK_CONSOLE(x) CONCHECK_RECORD (x, console)
|
|
|
71
|
|
872
|
72 /* Basic properties available to non-privileged users; redefined in
|
|
|
73 console-impl.h */
|
|
|
74
|
|
874
|
75 struct console_methods;
|
|
|
76
|
|
872
|
77 int console_live_p (struct console *c);
|
|
|
78 Lisp_Object console_device_list (struct console *c);
|
|
|
79
|
|
|
80 #define CONSOLE_LIVE_P(c) console_live_p (c)
|
|
|
81 #define CONSOLE_DEVICE_LIST(c) console_device_list (c)
|
|
|
82
|
|
428
|
83 #define CHECK_LIVE_CONSOLE(x) do { \
|
|
|
84 CHECK_CONSOLE (x); \
|
|
|
85 if (! CONSOLE_LIVE_P (XCONSOLE (x))) \
|
|
|
86 dead_wrong_type_argument (Qconsole_live_p, (x)); \
|
|
|
87 } while (0)
|
|
|
88 #define CONCHECK_LIVE_CONSOLE(x) do { \
|
|
|
89 CONCHECK_CONSOLE (x); \
|
|
|
90 if (! CONSOLE_LIVE_P (XCONSOLE (x))) \
|
|
|
91 x = wrong_type_argument (Qconsole_live_p, (x)); \
|
|
|
92 } while (0)
|
|
|
93
|
|
|
94 #define CDFW_CONSOLE(obj) \
|
|
|
95 (WINDOWP (obj) ? WINDOW_CONSOLE (XWINDOW (obj)) \
|
|
|
96 : (FRAMEP (obj) ? FRAME_CONSOLE (XFRAME (obj)) \
|
|
|
97 : (DEVICEP (obj) ? DEVICE_CONSOLE (XDEVICE (obj)) \
|
|
|
98 : (CONSOLEP (obj) ? obj \
|
|
|
99 : Qnil))))
|
|
|
100
|
|
|
101 #define CONSOLE_LOOP(concons) LIST_LOOP (concons, Vconsole_list)
|
|
|
102 #define CONSOLE_DEVICE_LOOP(devcons, con) \
|
|
|
103 LIST_LOOP (devcons, CONSOLE_DEVICE_LIST (con))
|
|
|
104
|
|
872
|
105 EXFUN (Fconsole_disable_input, 1);
|
|
|
106 EXFUN (Fdelete_console, 2);
|
|
|
107 EXFUN (Fselect_console, 1);
|
|
|
108 EXFUN (Fselected_console, 0);
|
|
|
109
|
|
|
110 extern Lisp_Object Qcreate_console_hook, Qdelete_console_hook;
|
|
|
111 extern Lisp_Object Vconsole_defaults, Vconsole_type_list, Vselected_console;
|
|
|
112
|
|
|
113 int valid_console_type_p (Lisp_Object type);
|
|
428
|
114
|
|
|
115 Lisp_Object create_console (Lisp_Object name, Lisp_Object type,
|
|
|
116 Lisp_Object connection, Lisp_Object props);
|
|
|
117 void select_console_1 (Lisp_Object);
|
|
|
118 struct console *decode_console (Lisp_Object);
|
|
|
119 void add_entry_to_console_type_list (Lisp_Object symbol,
|
|
|
120 struct console_methods *type);
|
|
|
121 struct console_methods *decode_console_type (Lisp_Object type,
|
|
578
|
122 Error_Behavior errb);
|
|
428
|
123 void delete_console_internal (struct console *con, int force,
|
|
|
124 int from_kill_emacs, int from_io_error);
|
|
|
125 void io_error_delete_console (Lisp_Object console);
|
|
|
126 void set_console_last_nonminibuf_frame (struct console *con,
|
|
|
127 Lisp_Object frame);
|
|
872
|
128 void stuff_buffered_input (Lisp_Object);
|
|
428
|
129
|
|
440
|
130 #endif /* INCLUDED_console_h_ */
|
