Mercurial > emacs
annotate lib-src/emacstool.c @ 25905:1394eb90cc8d
(log-view-mode-map): Bind "q", "z", "m" and "d".
(log-view-mode): Make read-only.
(log-view-current-file): Do final `expand-file-name' in the
current `default-directory'.
(log-view-current-tag): Take an optional `where' arg.
(log-view-diff): New user command.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 07 Oct 1999 14:39:16 +0000 |
parents | ee40177f6c68 |
children | 35906f73a07d |
rev | line source |
---|---|
36 | 1 /* |
6111 | 2 Copyright (C) 1986, 1988, 1990, 1991 Free Software Foundation, Inc. |
6112
ecaa966abd06
*** empty log message ***
David J. MacKenzie <djm@gnu.org>
parents:
6111
diff
changeset
|
3 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4 This file is part of GNU Emacs. |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
5 |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6 GNU Emacs is free software; you can redistribute it and/or modify |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
9 any later version. |
6111 | 10 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
11 GNU Emacs is distributed in the hope that it will be useful, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
14 GNU General Public License for more details. |
6111 | 15 |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
6111 | 20 |
21 /* | |
287 | 22 * For Emacs in SunView/Sun-Windows: (supported by Sun Unix v3.2 or greater) |
36 | 23 * Insert a notifier filter-function to convert all useful input |
24 * to "key" sequences that emacs can understand. See: Emacstool(1). | |
25 * | |
287 | 26 * Author: Jeff Peck, Sun Microsystems, Inc. <peck@eng.sun.com> |
36 | 27 * |
28 * Original Idea: Ian Batten | |
29 * Updated 15-Mar-88, Jeff Peck: set IN_EMACSTOOL, TERM, TERMCAP | |
287 | 30 * Updated 10-Sep-88, Jeff Peck: add XVIEW and JLE support |
31 * Updated 8-Oct-90, Jeff Peck: add Meta-bit for Xview | |
32 * Updated 6-Mar-91, Jeff Peck: Hack to detect -Wt invocation | |
33 * [note, TTYSW limitation means you must Click-To-Type in Openwin] | |
34 * [fixed in OW3 or use local/tty.o] | |
35 * for better results, this should move to using TERMSW. | |
36 * Updated 10-Mar-91, Jeff Peck, et al: support for TERMSW (TTERM) | |
37 * allows point-to-type even in OW2 | |
38 * | |
39 * [note: xvetool should be started with the "-nw" flag for emacs!] | |
36 | 40 */ |
41 | |
287 | 42 #ifdef XVIEW |
43 #include <xview/xview.h> | |
44 #include <xview/panel.h> | |
45 #include <xview/attr.h> | |
46 #include <xview/tty.h> | |
47 #include <xview/ttysw.h> /* private defines */ | |
48 #include <xview/termsw.h> /* -DTTERM */ | |
49 #include <xview/font.h> /* for testing */ | |
50 #else | |
36 | 51 #include <suntool/sunview.h> |
52 #include <suntool/tty.h> | |
287 | 53 #include <suntool/ttysw.h> |
54 #endif XVIEW | |
55 | |
56 #ifdef JLE | |
57 # include <locale.h> | |
58 #endif JLE | |
59 | |
36 | 60 #include <stdio.h> |
61 #include <sys/file.h> | |
62 | |
63 #define BUFFER_SIZE 128 /* Size of all the buffers */ | |
64 | |
65 /* define WANT_CAPS_LOCK to make f-key T1 (aka F1) behave as CapsLock */ | |
66 #define WANT_CAPS_LOCK | |
67 #ifdef WANT_CAPS_LOCK | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
287
diff
changeset
|
68 int caps_lock; /* toggle indicator for f-key T1 caps lock */ |
36 | 69 static char *Caps = "[CAPS] "; /* Caps Lock prefix string */ |
70 #define CAPS_LEN 7 /* strlen (Caps) */ | |
71 #endif | |
72 | |
73 static char *mouse_prefix = "\030\000"; /* C-x C-@ */ | |
74 static int m_prefix_length = 2; /* mouse_prefix length */ | |
75 | |
76 static char *key_prefix = "\030*"; /* C-x * */ | |
77 static int k_prefix_length = 2; /* key_prefix length */ | |
78 | |
287 | 79 #ifdef JLE |
80 static char *emacs_name = "nemacs"; /* default run command */ | |
81 static char *title = "NEmacstool - "; /* initial title */ | |
82 #else | |
36 | 83 static char *emacs_name = "emacs"; /* default run command */ |
287 | 84 static char *title = "Emacstool - "; /* initial title */ |
85 #endif JLE | |
86 | |
36 | 87 static char buffer[BUFFER_SIZE]; /* send to ttysw_input */ |
287 | 88 static char *bold_name = 0; /* for -bold option */ |
36 | 89 |
90 Frame frame; /* Base frame for system */ | |
287 | 91 |
92 #ifndef TTERM | |
93 #define SWTYPE TTY | |
94 Tty tty_win; /* Where emacs is reading */ | |
95 #else | |
96 #define SWTYPE TERMSW | |
97 Termsw tty_win; /* Termsw does follow-mouse */ | |
98 #endif TTERM | |
99 | |
100 #ifdef XVIEW | |
101 Xv_Window tty_view; /* Where the events are in Xview*/ | |
102 #else | |
103 Tty tty_view; /* SunView place filler */ | |
104 #endif XVIEW | |
105 | |
36 | 106 int font_width, font_height; /* For translating pixels to chars */ |
287 | 107 int left_margin = 0; /* default window -- frame offset */ |
36 | 108 |
109 int console_fd = 0; /* for debugging: setenv DEBUGEMACSTOOL */ | |
110 FILE *console; /* for debugging: setenv DEBUGEMACSTOOL */ | |
111 | |
112 Icon frame_icon; | |
113 /* make an icon_image for the default frame_icon */ | |
114 static short default_image[258] = | |
115 { | |
116 #include <images/terminal.icon> | |
117 }; | |
118 mpr_static(icon_image, 64, 64, 1, default_image); | |
119 | |
120 /* | |
121 * Assign a value to a set of keys | |
122 */ | |
123 int | |
124 button_value (event) | |
125 Event *event; | |
126 { | |
127 int retval = 0; | |
128 /* | |
129 * Code up the current situation: | |
130 * | |
131 * 1 = MS_LEFT; | |
132 * 2 = MS_MIDDLE; | |
133 * 4 = MS_RIGHT; | |
134 * 8 = SHIFT; | |
135 * 16 = CONTROL; | |
136 * 32 = META; | |
137 * 64 = DOUBLE; | |
138 * 128 = UP; | |
139 */ | |
140 | |
141 if (MS_LEFT == (event_id (event))) retval = 1; | |
142 if (MS_MIDDLE == (event_id (event))) retval = 2; | |
143 if (MS_RIGHT == (event_id (event))) retval = 4; | |
144 | |
145 if (event_shift_is_down (event)) retval += 8; | |
146 if (event_ctrl_is_down (event)) retval += 16; | |
147 if (event_meta_is_down (event)) retval += 32; | |
148 if (event_is_up (event)) retval += 128; | |
149 return retval; | |
150 } | |
151 | |
152 /* | |
153 * Variables to store the time of the previous mouse event that was | |
154 * sent to emacs. | |
155 * | |
14036 | 156 * The theory is that to time double clicks while ignoring UP buttons, |
36 | 157 * we must keep track of the accumulated time. |
158 * | |
159 * If someone writes a SUN-SET-INPUT-MASK for emacstool, | |
160 * That could be used to selectively disable UP events, | |
161 * and then this cruft wouldn't be necessary. | |
162 */ | |
163 static long prev_event_sec = 0; | |
164 static long prev_event_usec = 0; | |
165 | |
166 /* | |
167 * Give the time difference in milliseconds, where one second | |
168 * is considered infinite. | |
169 */ | |
170 int | |
171 time_delta (now_sec, now_usec, prev_sec, prev_usec) | |
172 long now_sec, now_usec, prev_sec, prev_usec; | |
173 { | |
174 long sec_delta = now_sec - prev_sec; | |
175 long usec_delta = now_usec - prev_usec; | |
176 | |
177 if (usec_delta < 0) { /* "borrow" a second */ | |
178 usec_delta += 1000000; | |
179 --sec_delta; | |
180 } | |
181 | |
182 if (sec_delta >= 10) | |
183 return (9999); /* Infinity */ | |
184 else | |
185 return ((sec_delta * 1000) + (usec_delta / 1000)); | |
186 } | |
187 | |
188 | |
189 /* | |
190 * Filter function to translate selected input events for emacs | |
191 * Mouse button events become ^X^@(button x-col y-line time-delta) . | |
192 * Function keys: ESC-*{c}{lrt} l,r,t for Left, Right, Top; | |
193 * {c} encodes the keynumber as a character [a-o] | |
194 */ | |
195 static Notify_value | |
196 input_event_filter_function (window, event, arg, type) | |
287 | 197 #ifdef XVIEW |
198 Xv_Window window; | |
199 #else | |
36 | 200 Window window; |
287 | 201 #endif XVIEW |
36 | 202 Event *event; |
203 Notify_arg arg; | |
204 Notify_event_type type; | |
205 { | |
206 struct timeval time_stamp; | |
207 | |
208 if (console_fd) fprintf(console, "Event: %d\n", event_id(event)); | |
209 | |
210 /* UP L1 is the STOP key */ | |
211 if (event_id(event) == WIN_STOP) { | |
287 | 212 ttysw_input(tty_win, "\007\007\007\007\007\007\007", 7); |
36 | 213 return NOTIFY_IGNORED; |
214 } | |
215 | |
216 /* UP L5 & L7 is Expose & Open, let them pass to sunview */ | |
217 if (event_id(event) == KEY_LEFT(5) || event_id(event) == KEY_LEFT(7)) | |
218 if(event_is_up (event)) | |
219 return notify_next_event_func (window, event, arg, type); | |
220 else return NOTIFY_IGNORED; | |
221 | |
222 if (event_is_button (event)) { /* do Mouse Button events */ | |
223 /* Commented out so that we send mouse up events too. | |
224 if (event_is_up (event)) | |
225 return notify_next_event_func (window, event, arg, type); | |
226 */ | |
227 time_stamp = event_time (event); | |
287 | 228 ttysw_input (tty_win, mouse_prefix, m_prefix_length); |
36 | 229 sprintf (buffer, "(%d %d %d %d)\015", |
230 button_value (event), | |
287 | 231 (event_x (event) - left_margin) / font_width, |
36 | 232 event_y (event) / font_height, |
233 time_delta (time_stamp.tv_sec, time_stamp.tv_usec, | |
234 prev_event_sec, prev_event_usec) | |
235 ); | |
287 | 236 ttysw_input (tty_win, buffer, strlen(buffer)); |
36 | 237 prev_event_sec = time_stamp.tv_sec; |
238 prev_event_usec = time_stamp.tv_usec; | |
239 return NOTIFY_IGNORED; | |
240 } | |
241 | |
242 { /* Do the function key events */ | |
243 int d; | |
244 char c = (char) 0; | |
245 if ((event_is_key_left (event)) ? | |
246 ((d = event_id(event) - KEY_LEFT(1) + 'a'), c='l') : | |
247 ((event_is_key_right (event)) ? | |
248 ((d = event_id(event) - KEY_RIGHT(1) + 'a'), c='r') : | |
249 ((event_is_key_top (event)) ? | |
250 ((d = event_id(event) - KEY_TOP(1) + 'a'), c='t') : 0))) | |
251 { | |
252 if (event_is_up(event)) return NOTIFY_IGNORED; | |
253 if (event_shift_is_down (event)) c = c - 32; | |
254 /* this will give a non-{lrt} for unshifted keys */ | |
255 if (event_ctrl_is_down (event)) c = c - 64; | |
256 if (event_meta_is_down (event)) c = c + 128; | |
257 #ifdef WANT_CAPS_LOCK | |
258 /* set a toggle and relabel window so T1 can act like caps-lock */ | |
259 if (event_id(event) == KEY_TOP(1)) | |
260 { | |
261 /* make a frame label with and without CAPS */ | |
262 strcpy (buffer, Caps); | |
263 title = &buffer[CAPS_LEN]; | |
264 strncpy (title, (char *)window_get (frame, FRAME_LABEL), | |
265 BUFFER_SIZE - CAPS_LEN); | |
266 buffer[BUFFER_SIZE] = (char) 0; | |
267 if (strncmp (title, Caps, CAPS_LEN) == 0) | |
268 title += CAPS_LEN; /* already Caps */ | |
269 caps_lock = (caps_lock ? 0 : CAPS_LEN); | |
270 window_set(frame, FRAME_LABEL, (title -= caps_lock), 0); | |
271 return NOTIFY_IGNORED; | |
272 } | |
273 #endif | |
287 | 274 ttysw_input (tty_win, key_prefix, k_prefix_length); |
36 | 275 sprintf (buffer, "%c%c", d, c); |
287 | 276 ttysw_input(tty_win, buffer, strlen(buffer)); |
36 | 277 |
278 return NOTIFY_IGNORED; | |
279 } | |
280 } | |
281 if ((event_is_ascii(event) || event_is_meta(event)) | |
282 && event_is_up(event)) return NOTIFY_IGNORED; | |
283 #ifdef WANT_CAPS_LOCK | |
284 /* shift alpha chars to upper case if toggle is set */ | |
285 if ((caps_lock) && event_is_ascii(event) | |
286 && (event_id(event) >= 'a') && (event_id(event) <= 'z')) | |
287 event_set_id(event, (event_id(event) - 32)); | |
288 /* crufty, but it works for now. is there an UPCASE(event)? */ | |
289 #endif | |
287 | 290 #ifndef NO_META_BIT |
291 /* under Openwindows/X, the meta bit is not set in the key event, | |
292 * emacs expects this so we add it in here: | |
293 */ | |
294 if (event_is_ascii(event) && event_meta_is_down(event)) | |
295 event_set_id(event, 128 | event_id(event)); | |
296 #endif | |
36 | 297 return notify_next_event_func (window, event, arg, type); |
298 } | |
299 | |
300 main (argc, argv) | |
301 int argc; | |
302 char **argv; | |
303 { | |
304 int error_code; /* Error codes */ | |
305 | |
287 | 306 #ifdef JLE |
307 setlocale(LC_ALL, ""); | |
308 #endif JLE | |
309 | |
36 | 310 if(getenv("DEBUGEMACSTOOL")) |
311 console = fdopen (console_fd = open("/dev/console",O_WRONLY), "w"); | |
312 | |
313 putenv("IN_EMACSTOOL=t"); /* notify subprocess that it is in emacstool */ | |
314 | |
287 | 315 if (putenv("TERM=sun") != 0) /* TTY_WIN will be a TERM=sun window */ |
36 | 316 {fprintf (stderr, "%s: Could not set TERM=sun, using `%s'\n", |
317 argv[0], (char *)getenv("TERM")) ;}; | |
318 /* | |
319 * If TERMCAP starts with a slash, it is the pathname of the | |
320 * termcap file, not an entry extracted from it, so KEEP it! | |
321 * Otherwise, it may not relate to the new TERM, so Nuke-It. | |
322 * If there is no TERMCAP environment variable, don't make one. | |
323 */ | |
324 { | |
325 char *termcap ; /* Current TERMCAP value */ | |
326 termcap = (char *)getenv("TERMCAP") ; | |
327 if (termcap && (*termcap != '/')) | |
328 { | |
329 if (putenv("TERMCAP=") != 0) | |
330 {fprintf (stderr, "%s: Could not clear TERMCAP\n", argv[0]) ;} ; | |
331 } ; | |
332 } ; | |
333 | |
334 /* find command to run as subprocess in window */ | |
287 | 335 if (!(argv[0] = (char *)getenv("EMACSTOOL"))) /* Set emacs command name */ |
36 | 336 argv[0] = emacs_name; |
287 | 337 /* Emacstool recognizes two special args: -rc <file> and -bold <bold-name> */ |
36 | 338 for (argc = 1; argv[argc]; argc++) /* Use last one on line */ |
287 | 339 { |
340 if(!(strcmp ("-rc", argv[argc]))) /* Override if -rc given */ | |
341 {int i = argc; | |
342 argv[argc--]=0; /* kill the -rc argument */ | |
343 if (argv[i+1]) { /* move to argv[0] and squeeze the rest */ | |
344 argv[0]=argv[i+1]; | |
345 for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0)); | |
346 } | |
347 } | |
348 | |
349 if (!(strcmp ("-bold", argv[argc]))) | |
350 {int i = argc; | |
351 argv[argc--]=0; /* kill the -bold argument */ | |
352 if (argv[i+1]) { /* move to bold_name and squeeze the rest */ | |
353 bold_name = argv[i+1]; | |
354 for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0)); | |
355 } | |
356 } | |
357 }; | |
36 | 358 |
359 strcpy (buffer, title); | |
360 strncat (buffer, argv[0], /* append run command name */ | |
361 (BUFFER_SIZE - (strlen (buffer)) - (strlen (argv[0]))) - 1); | |
362 | |
287 | 363 error_code = interpose_on_window(argc,argv); |
364 if (error_code != 0) { /* Barf */ | |
365 fprintf (stderr, "notify_interpose_event_func returns %d.\n", error_code); | |
366 exit (1); | |
367 } | |
368 | |
369 #ifdef XVIEW | |
370 xv_main_loop (frame); /* And away we go */ | |
371 #else | |
372 window_main_loop (frame); | |
373 #endif XVIEW | |
374 } | |
36 | 375 |
287 | 376 #ifdef XVIEW |
377 int interpose_on_window(argc,argv) | |
378 int argc; | |
379 char **argv; | |
380 { | |
381 #ifndef TTERM | |
14036 | 382 int i, font_width_adjust = 1; /* hackery, and heuristics */ |
287 | 383 /* if -Wt is not supplied, then font comes out as lucida-14 (width=8) |
384 * rather than the screen.r.12 (width=7) typically used | |
385 * this hack attempts to workaround it. | |
386 * could use a env var EMACSTOOL_DEFAULT_FONT_WIDTH instead */ | |
387 for (i = 1; argv[i]; i++) { | |
388 if (!(strcmp ("-Wt", argv[i]))) | |
389 {font_width_adjust = 0; | |
390 if (console_fd) fprintf(console, "-Wt = %d\n", font_width_adjust); | |
391 break;} | |
392 } | |
393 #endif TTERM | |
394 /* initialize Xview, and strip window args */ | |
395 xv_init(XV_INIT_ARGC_PTR_ARGV, &argc, argv, 0); | |
396 | |
397 /* do this first, so arglist can override it */ | |
398 frame_icon = icon_create (ICON_LABEL, "Emacstool", | |
399 ICON_IMAGE, &icon_image, | |
400 0); | |
401 | |
402 /* Build a frame to run in */ | |
403 frame = xv_create ((Xv_Window)NULL, FRAME, | |
404 FRAME_LABEL, buffer, | |
405 FRAME_ICON, frame_icon, | |
406 0); | |
407 | |
408 /* Create a tty with emacs in it */ | |
409 tty_win = xv_create (frame, SWTYPE, WIN_IS_CLIENT_PANE, | |
36 | 410 TTY_QUIT_ON_CHILD_DEATH, TRUE, |
287 | 411 TTY_BOLDSTYLE, TTYSW_BOLD_INVERT, |
36 | 412 TTY_ARGV, argv, |
413 0); | |
414 | |
287 | 415 if (bold_name) { |
416 (void)xv_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0); | |
36 | 417 } |
418 | |
287 | 419 { |
420 Xv_font font; /* declare temp font variable */ | |
421 font = (Xv_font)xv_get (tty_win, XV_FONT); | |
422 font_height = (int)xv_get (font, FONT_DEFAULT_CHAR_HEIGHT); | |
423 font_width = (int)xv_get (font, FONT_DEFAULT_CHAR_WIDTH); | |
424 } | |
425 if (console_fd) fprintf(console, "Width = %d\n", font_width); | |
426 | |
427 #ifndef TTERM | |
428 font_width -= font_width_adjust; /* A guess! font bug in ttysw*/ | |
429 #else | |
430 /* make the termsw act as a tty */ | |
431 xv_set(tty_win, TERMSW_MODE, TTYSW_MODE_TYPE, 0); | |
432 /* termsw has variable offset depending on scrollbar size/location */ | |
433 left_margin = (int)xv_get (tty_win, TEXTSW_LEFT_MARGIN); | |
434 #endif TTERM | |
435 | |
436 tty_view = (Xv_Window) xv_get (tty_win, OPENWIN_NTH_VIEW, 0); | |
437 xv_set(tty_view, | |
438 WIN_CONSUME_EVENTS, | |
439 WIN_MOUSE_BUTTONS, WIN_UP_EVENTS, | |
440 ACTION_ADJUST, ACTION_MENU, | |
441 WIN_ASCII_EVENTS, | |
442 WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS, | |
443 0, | |
444 0); | |
445 /* Interpose my event function */ | |
446 return (int) notify_interpose_event_func | |
447 (tty_view, input_event_filter_function, NOTIFY_SAFE); | |
36 | 448 } |
287 | 449 #else |
450 int interpose_on_window (argc, argv) | |
451 int argc; | |
452 char **argv; | |
453 { | |
454 /* do this first, so arglist can override it */ | |
455 frame_icon = icon_create (ICON_LABEL, "Emacstool", | |
456 ICON_IMAGE, &icon_image, | |
457 0); | |
458 | |
459 /* Build a frame to run in */ | |
460 frame = window_create ((Window)NULL, FRAME, | |
461 FRAME_LABEL, buffer, | |
462 FRAME_ICON, frame_icon, | |
463 FRAME_ARGC_PTR_ARGV, &argc, argv, | |
464 0); | |
465 | |
466 /* Create a tty with emacs in it */ | |
467 tty_win = window_create (frame, TTY, | |
468 TTY_QUIT_ON_CHILD_DEATH, TRUE, | |
469 TTY_BOLDSTYLE, TTYSW_BOLD_INVERT, | |
470 TTY_ARGV, argv, | |
471 0); | |
472 | |
473 if (bold_name) { | |
474 (void)window_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0); | |
475 } | |
476 | |
477 /* ttysw uses pf_default, one must set WIN_FONT explicitly */ | |
478 window_set (tty_win, WIN_FONT, pf_default(), 0); | |
479 font_height = (int)window_get (tty_win, WIN_ROW_HEIGHT); | |
480 font_width = (int)window_get (tty_win, WIN_COLUMN_WIDTH); | |
481 | |
482 tty_view = tty_win; | |
483 window_set(tty_view, | |
484 WIN_CONSUME_PICK_EVENTS, | |
485 WIN_STOP, | |
486 WIN_MOUSE_BUTTONS, WIN_UP_EVENTS, | |
487 /* LOC_WINENTER, LOC_WINEXIT, LOC_MOVE, */ | |
488 0, | |
489 WIN_CONSUME_KBD_EVENTS, | |
490 WIN_STOP, | |
491 WIN_ASCII_EVENTS, | |
492 WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS, | |
493 /* WIN_UP_ASCII_EVENTS, */ | |
494 0, | |
495 0); | |
496 /* Interpose my event function */ | |
497 return (int) notify_interpose_event_func | |
498 (tty_view, input_event_filter_function, NOTIFY_SAFE); | |
499 } | |
500 #endif XVIEW |