Mercurial > emacs
annotate src/s/unipl5-2.h @ 1719:48f539ac6921
* frame.h (struct frame): New fields `can_have_scrollbars' and
`has_vertical_scrollbars'.
(FRAME_CAN_HAVE_SCROLLBARS, FRAME_HAS_VERTICAL_SCROLLBARS): New
accessors, for both the MULTI_FRAME and non-MULTI_FRAME.
(VERTICAL_SCROLLBAR_WIDTH, WINDOW_VERTICAL_SCROLLBAR,
WINDOW_VERTICAL_SCROLLBAR_COLUMN,
WINDOW_VERTICAL_SCROLLBAR_HEIGHT): New macros.
* window.h (struct window): New field `vertical_scrollbar'.
* xterm.h (struct x_display): vertical_scrollbars,
judge_timestamp, vertical_scrollbar_extra: New fields.
(struct scrollbar): New struct.
(VERTICAL_SCROLLBAR_PIXEL_WIDTH, VERTICAL_SCROLLBAR_PIXEL_HEIGHT,
VERTICAL_SCROLLBAR_LEFT_BORDER, VERTICAL_SCROLLBAR_RIGHT_BORDER,
VERTICAL_SCROLLBAR_TOP_BORDER, VERTICAL_SCROLLBAR_BOTTOM_BORDER,
CHAR_TO_PIXEL_WIDTH, CHAR_TO_PIXEL_HEIGHT, PIXEL_TO_CHAR_WIDTH,
PIXEL_TO_CHAR_HEIGHT): New accessors and macros.
* frame.c (make_frame): Initialize the `can_have_scrollbars' and
`has_vertical_scrollbars' fields of the frame.
* term.c (term_init): Note that TERMCAP terminals don't support
scrollbars.
(mouse_position_hook): Document new args.
(set_vertical_scrollbar_hook, condemn_scrollbars_hook,
redeem_scrollbar_hook, judge_scrollbars_hook): New hooks.
* termhooks.h: Declare and document them.
(enum scrollbar_part): New type.
(struct input_event): Describe the new form of the scrollbar_click
event type. Change `part' from a Lisp_Object to an enum
scrollbar_part. Add a new field `scrollbar'.
* keyboard.c (kbd_buffer_get_event): Pass appropriate new
parameters to *mouse_position_hook, and make_lispy_movement.
* xfns.c (x_set_vertical_scrollbar): New function.
(x_figure_window_size): Use new macros to calculate frame size.
(Fx_create_frame): Note that X Windows frames do support scroll
bars. Default to "yes".
* xterm.c: #include <X11/cursorfont.h> and "window.h".
(x_vertical_scrollbar_cursor): New variable.
(x_term_init): Initialize it.
(last_mouse_bar, last_mouse_bar_frame, last_mouse_part,
last_mouse_scroll_range_start, last_mouse_scroll_range_end): New
variables.
(XTmouse_position): Use them to return scrollbar movement events.
Take new arguments, for that purpose.
(x_window_to_scrollbar, x_scrollbar_create,
x_scrollbar_set_handle, x_scrollbar_remove, x_scrollbar_move,
XTset_scrollbar, XTcondemn_scrollbars, XTredeem_scrollbar,
XTjudge_scrollbars, x_scrollbar_expose,
x_scrollbar_background_expose, x_scrollbar_handle_click,
x_scrollbar_handle_motion): New functions to implement scrollbars.
(x_term_init): Set the termhooks.h hooks to point to them.
(x_set_window_size): Use new macros to calculate frame size. Set
vertical_scrollbar_extra field.
(x_make_frame_visible): Use the frame accessor
FRAME_HAS_VERTICAL_SCROLLBARS to decide if we need to map the
frame's subwindows as well.
(XTread_socket): Use new size-calculation macros from xterm.h when
processing ConfigureNotify events.
(x_wm_set_size_hint): Use PIXEL_TO_CHAR_WIDTH and
PIXEL_TO_CHAR_HEIGHT macros.
* ymakefile (xdisp.o): This now depends on termhooks.h.
(xterm.o): This now depends on window.h.
* xterm.h (struct x_display): Delete v_scrollbar, v_thumbup,
v_thumbdown, v_slider, h_scrollbar, h_thumbup,
h_thumbdown, h_slider, v_scrollbar_width, h_scrollbar_height
fields.
* keyboard.c (Qvscrollbar_part, Qvslider_part, Qvthumbup_part,
Qvthumbdown_part, Qhscrollbar_part, Qhslider_part, Qhthumbup_part,
Qhthumbdown_part, Qscrollbar_click): Deleted; part of an obsolete
interface.
(head_table): Removed from here as well.
(syms_of_keyboard): And here.
* keyboard.h: And here.
(POSN_SCROLLBAR_BUTTON): Removed.
* xscrollbar.h: File removed - no longer necessary.
* xfns.c: Don't #include it any more.
(Qhorizontal_scroll_bar, Qvertical_scroll_bar): Deleted.
(syms_of_xfns): Don't initialize or staticpro them.
(gray_bits): Salvaged from xscrollbar.h.
(x_window_to_scrollbar): Deleted.
(x_set_horizontal_scrollbar): Deleted.
(enum x_frame_parm, x_frame_parms): Remove references to
x_set_horizontal_scrollbar.
(x_set_foreground_color, x_set_background_color,
x_set_border_pixel): Remove special code to support scrollbars.
(Fx_create_frame): Remove old scrollbar setup code.
(install_vertical_scrollbar, install_horizontal_scrollbar,
adjust_scrollbars, x_resize_scrollbars): Deleted.
* xterm.c (construct_mouse_click): This doesn't need to take care of
scrollbar clicks anymore.
(XTread_socket): Remove old code to support scrollbars. Call new
functions instead for events which occur in scrollbar windows.
(XTupdate_end): Remove call to adjust_scrollbars; the main
redisplay code takes care of that now.
(enum window_type): Deleted.
* ymakefile: Note that xfns.o no longer depends on xscrollbar.h.
* xfns.c (syms_of_xfns): Delete defvars for x_mouse_x and
x_mouse_y. That interface hasn't been live for years.
(x_mouse_x, x_mouse_y): Delete these variables.
* xfns.c (Fx_create_frame): Don't initialize the wm_hints field here.
(x_window): Do it here, along with all the similar stuff.
It's a pain to remember that you can't assign to FRAME->visible.
Let's change all references to the `visible' member of struct
frame to use the accessor macros, and then write a setter for the
`visible' field that does the right thing.
* frame.h (FRAME_VISIBLE_P): Make this not an l-value.
(FRAME_SET_VISIBLE): New macro.
* frame.c (make_terminal_frame, Fdelete_frame): Use FRAME_SET_VISIBLE.
(Fframe_visible_p, Fvisible_frame_list): Use FRAME_VISIBLE_P and
FRAME_ICONIFIED_P.
* dispnew.c (Fredraw_display): Use the FRAME_VISIBLE_P and
FRAME_GARBAGED_P accessors.
* xdisp.c (redisplay): Use the FRAME_VISIBLE_P accessor.
* xfns.c (x_set_foreground_color, x_set_background_color,
x_set_cursor_color, x_set_border_pixel, x_set_icon_type): Use the
FRAME_VISIBLE_P accessor.
(Fx_create_frame): Use FRAME_SET_VISIBILITY.
* xterm.c (clear_cursor, x_display_bar_cursor,
x_display_box_cursor): Use FRAME_SET_VISIBILITY.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 24 Dec 1992 06:19:31 +0000 |
parents | e442bb589751 |
children | 507f64624555 |
rev | line source |
---|---|
457 | 1 /* Definitions file for GNU Emacs running on UniSoft's UniPlus 5.2 |
2 Copyright (C) 1985, 1986 Free Software Foundation, Inc. | |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 1, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
21 /* | |
22 * Define symbols to identify the version of Unix this is. | |
23 * Define all the symbols that apply correctly. | |
24 */ | |
25 | |
26 #define USG /* System III, System V, etc */ | |
27 | |
28 #define USG5 | |
29 | |
30 #define UNIPLUS | |
31 | |
32 /* SYSTEM_TYPE should indicate the kind of system you are using. | |
33 It sets the Lisp variable system-type. */ | |
34 | |
35 #define SYSTEM_TYPE "unisoft-unix" | |
36 | |
37 /* nomultiplejobs should be defined if your system's shell | |
38 does not have "job control" (the ability to stop a program, | |
39 run some other program, then continue the first one). */ | |
40 | |
41 /* #define NOMULTIPLEJOBS */ | |
42 | |
43 /* Default is to set interrupt_input to 0: don't do input buffering within Emacs */ | |
44 | |
45 /* #define INTERRUPT_INPUT */ | |
46 | |
47 /* Letter to use in finding device name of first pty, | |
48 if system supports pty's. 'p' means it is /dev/ptyp0 */ | |
49 | |
50 #define FIRST_PTY_LETTER 'p' | |
51 | |
52 /* | |
53 * Define HAVE_TERMIO if the system provides sysV-style ioctls | |
54 * for terminal control. | |
55 */ | |
56 | |
57 #define HAVE_TERMIO | |
58 | |
59 /* | |
60 * Define HAVE_TIMEVAL if the system supports the BSD style clock values. | |
61 * Look in <sys/time.h> for a timeval structure. | |
62 */ | |
63 | |
64 #define HAVE_TIMEVAL | |
65 | |
66 /* | |
67 * Define HAVE_SELECT if the system supports the `select' system call. | |
68 */ | |
69 | |
70 #define HAVE_SELECT | |
71 | |
72 /* | |
73 * Define HAVE_PTYS if the system supports pty devices. | |
74 */ | |
75 | |
76 #define HAVE_PTYS | |
77 | |
78 /* Define this macro if system defines a type `union wait'. */ | |
79 | |
80 #define HAVE_UNION_WAIT | |
81 | |
82 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */ | |
83 | |
84 /* #define HAVE_SOCKETS */ | |
85 | |
86 /* | |
87 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate | |
88 * The 4.2 opendir, etc., library functions. | |
89 */ | |
90 | |
91 #define NONSYSTEM_DIR_LIBRARY | |
92 | |
93 /* Define this symbol if your system has the functions bcopy, etc. */ | |
94 | |
95 /* #define BSTRING */ | |
96 | |
97 /* subprocesses should be defined if you want to | |
98 have code for asynchronous subprocesses | |
99 (as used in M-x compile and M-x shell). | |
100 This is generally OS dependent, and not supported | |
101 under most USG systems. It is supported under UniPlus | |
102 System V Release 2. */ | |
103 | |
104 #define subprocesses | |
105 | |
106 /* If your system uses COFF (Common Object File Format) then define the | |
107 preprocessor symbol "COFF". */ | |
108 | |
109 #define COFF | |
110 | |
111 /* define MAIL_USE_FLOCK if the mailer uses flock | |
112 to interlock access to /usr/spool/mail/$USER. | |
113 The alternative is that a lock file named | |
114 /usr/spool/mail/$USER.lock. */ | |
115 | |
116 /* #define MAIL_USE_FLOCK */ | |
117 | |
118 /* Define CLASH_DETECTION if you want lock files to be written | |
119 so that Emacs can tell instantly when you try to modify | |
120 a file that someone else has modified in his Emacs. */ | |
121 | |
122 /* #define CLASH_DETECTION */ | |
123 | |
124 /* Uniplus 5.2 supports long names in C */ | |
125 | |
126 /* #define SHORTNAMES */ | |
127 | |
128 /* We do NOT use the Berkeley (and usg5.2.2) interface to nlist. */ | |
129 | |
130 /* #define NLIST_STRUCT */ | |
131 | |
132 /* The file containing the kernel's symbol table is called /unix. */ | |
133 | |
134 #define KERNEL_FILE "/unix" | |
135 | |
136 /* The symbol in the kernel where the load average is found | |
137 is named avenrun. */ | |
138 | |
139 #define LDAV_SYMBOL "avenrun" | |
140 | |
141 /* Special hacks needed to make Emacs run on this system. */ | |
142 | |
143 /* | |
144 * Make the sigsetmask function go away. Don't know what the | |
145 * ramifications of this are, but doesn't seem possible to | |
146 * emulate it properly anyway at this point. | |
147 */ | |
148 | |
149 #define sigsetmask(mask) /* Null expansion */ | |
150 | |
151 /* setjmp and longjmp can safely replace _setjmp and _longjmp, | |
152 but they will run slower. */ | |
153 | |
154 #define _setjmp setjmp | |
155 #define _longjmp longjmp | |
156 | |
157 /* On USG systems the system calls are interruptable by signals | |
158 that the user program has elected to catch. Thus the system call | |
159 must be retried in these cases. To handle this without massive | |
160 changes in the source code, we remap the standard system call names | |
161 to names for our own functions in sysdep.c that do the system call | |
162 with retries. */ | |
163 | |
164 #define read sys_read | |
165 #define open sys_open | |
166 #define write sys_write | |
167 | |
168 #define INTERRUPTIBLE_OPEN | |
169 #define INTERRUPTIBLE_IO | |
170 | |
171 /* On USG systems these have different names */ | |
172 | |
173 #define index strchr | |
174 #define rindex strrchr | |
175 | |
176 /* Compiler bug bites when default ADDR_CORRECT is used. */ | |
177 | |
178 #define ADDR_CORRECT(x) (x) | |
179 | |
180 /* Special library needed for linking for Uniplus */ | |
181 | |
182 #define LIBS_SYSTEM -lnet | |
183 | |
184 /* A system-specific loader switch is needed. */ | |
185 | |
186 #define LD_SWITCH_SYSTEM -N -L/lib/libg /usr/lib/unshared.ld |