Mercurial > emacs
annotate src/xterm.c @ 51683:fb960854a12c
(VECTOR_MARK, VECTOR_UNMARK, VECTOR_MARKED_P): New macros.
(GC_STRING_BYTES): Don't mask markbit (it's only used on `size').
(allocate_buffer): Move.
(string_bytes): Don't mask markbit of `size_byte'.
(mark_maybe_object, mark_maybe_pointer, Fgarbage_collect)
(mark_object, mark_buffer, survives_gc_p, gc_sweep):
Use the `size' field of buffers (rather than the `name' field) for
the mark bit, as is done for all other vectorlike objects.
Use the new macros to access the mark bit of vectorlike objects.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 27 Jun 2003 21:54:20 +0000 |
parents | f9d7d97a1d37 |
children | 01bf5601e788 |
rev | line source |
---|---|
286 | 1 /* X Communication module for terminals which understand the X protocol. |
51048
7ac9c3bea5ea
(Fselect_window): Add optional arg `norecord'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50521
diff
changeset
|
2 Copyright (C) 1989, 93, 94, 95, 96, 97, 98, 1999, 2000, 01, 02, 2003 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3 Free Software Foundation, Inc. |
286 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
621 | 9 the Free Software Foundation; either version 2, or (at your option) |
286 | 10 any later version. |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14165
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14165
diff
changeset
|
20 Boston, MA 02111-1307, USA. */ |
286 | 21 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
22 /* New display code by Gerd Moellmann <gerd@gnu.org>. */ |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
23 /* Xt features made by Fred Pierresteguy. */ |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
24 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25921
diff
changeset
|
25 #include <config.h> |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25921
diff
changeset
|
26 |
2977
ddcad1457cd5
Move signal.h and stdio.h before config.h.
Richard M. Stallman <rms@gnu.org>
parents:
2958
diff
changeset
|
27 /* On 4.3 these lose if they come after xterm.h. */ |
ddcad1457cd5
Move signal.h and stdio.h before config.h.
Richard M. Stallman <rms@gnu.org>
parents:
2958
diff
changeset
|
28 /* Putting these at the beginning seems to be standard for other .c files. */ |
ddcad1457cd5
Move signal.h and stdio.h before config.h.
Richard M. Stallman <rms@gnu.org>
parents:
2958
diff
changeset
|
29 #include <signal.h> |
ddcad1457cd5
Move signal.h and stdio.h before config.h.
Richard M. Stallman <rms@gnu.org>
parents:
2958
diff
changeset
|
30 |
7902
22b9aaaf0302
Put stdio.h after config.h.
Richard M. Stallman <rms@gnu.org>
parents:
7870
diff
changeset
|
31 #include <stdio.h> |
22b9aaaf0302
Put stdio.h after config.h.
Richard M. Stallman <rms@gnu.org>
parents:
7870
diff
changeset
|
32 |
286 | 33 #ifdef HAVE_X_WINDOWS |
34 | |
35 #include "lisp.h" | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2353
diff
changeset
|
36 #include "blockinput.h" |
286 | 37 |
21933
58f3be08e692
Include syssignal.h after lisp.h.
Andreas Schwab <schwab@suse.de>
parents:
21903
diff
changeset
|
38 /* Need syssignal.h for various externs and definitions that may be required |
58f3be08e692
Include syssignal.h after lisp.h.
Andreas Schwab <schwab@suse.de>
parents:
21903
diff
changeset
|
39 by some configurations for calls to signal later in this source file. */ |
58f3be08e692
Include syssignal.h after lisp.h.
Andreas Schwab <schwab@suse.de>
parents:
21903
diff
changeset
|
40 #include "syssignal.h" |
58f3be08e692
Include syssignal.h after lisp.h.
Andreas Schwab <schwab@suse.de>
parents:
21903
diff
changeset
|
41 |
286 | 42 /* This may include sys/types.h, and that somehow loses |
43 if this is not done before the other system files. */ | |
44 #include "xterm.h" | |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
45 #include <X11/cursorfont.h> |
286 | 46 |
47 /* Load sys/types.h if not already loaded. | |
48 In some systems loading it twice is suicidal. */ | |
49 #ifndef makedev | |
50 #include <sys/types.h> | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
51 #endif /* makedev */ |
286 | 52 |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16209
diff
changeset
|
53 #ifdef BSD_SYSTEM |
286 | 54 #include <sys/ioctl.h> |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16209
diff
changeset
|
55 #endif /* ! defined (BSD_SYSTEM) */ |
286 | 56 |
3355
e0c2e8a2ef75
(XTread_socket, case KeyPress) [HPUX]: Test IsModifiedKey.
Richard M. Stallman <rms@gnu.org>
parents:
3284
diff
changeset
|
57 #include "systty.h" |
555 | 58 #include "systime.h" |
286 | 59 |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
60 #ifndef INCLUDED_FCNTL |
286 | 61 #include <fcntl.h> |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
62 #endif |
286 | 63 #include <ctype.h> |
64 #include <errno.h> | |
65 #include <setjmp.h> | |
66 #include <sys/stat.h> | |
10366 | 67 /* Caused redefinition of DBL_DIG on Netbsd; seems not to be needed. */ |
68 /* #include <sys/param.h> */ | |
286 | 69 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
70 #include "charset.h" |
30748 | 71 #include "coding.h" |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
72 #include "ccl.h" |
23515
1e52542fb338
Include frame.h before fontset.h.
Kenichi Handa <handa@m17n.org>
parents:
23162
diff
changeset
|
73 #include "frame.h" |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
74 #include "dispextern.h" |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
75 #include "fontset.h" |
286 | 76 #include "termhooks.h" |
77 #include "termopts.h" | |
78 #include "termchar.h" | |
79 #include "gnu.h" | |
80 #include "disptab.h" | |
81 #include "buffer.h" | |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
82 #include "window.h" |
8652 | 83 #include "keyboard.h" |
8848 | 84 #include "intervals.h" |
21514 | 85 #include "process.h" |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
86 #include "atimer.h" |
39697
0b986bb45526
Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39682
diff
changeset
|
87 #include "keymap.h" |
286 | 88 |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
89 #ifdef USE_X_TOOLKIT |
15117
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
90 #include <X11/Shell.h> |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
91 #endif |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
92 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
93 #ifdef HAVE_SYS_TIME_H |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
94 #include <sys/time.h> |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
95 #endif |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
96 #ifdef HAVE_UNISTD_H |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
97 #include <unistd.h> |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
98 #endif |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
99 |
49322 | 100 #ifdef USE_GTK |
101 #include "gtkutil.h" | |
102 #endif | |
103 | |
39922
538760a4422e
(xlwmenu_window_p, xlwmenu_redisplay): Add prototypes.
Pavel Janík <Pavel@Janik.cz>
parents:
39914
diff
changeset
|
104 #ifdef USE_LUCID |
46113 | 105 extern int xlwmenu_window_p P_ ((Widget w, Window window)); |
39922
538760a4422e
(xlwmenu_window_p, xlwmenu_redisplay): Add prototypes.
Pavel Janík <Pavel@Janik.cz>
parents:
39914
diff
changeset
|
106 extern void xlwmenu_redisplay P_ ((Widget)); |
538760a4422e
(xlwmenu_window_p, xlwmenu_redisplay): Add prototypes.
Pavel Janík <Pavel@Janik.cz>
parents:
39914
diff
changeset
|
107 #endif |
538760a4422e
(xlwmenu_window_p, xlwmenu_redisplay): Add prototypes.
Pavel Janík <Pavel@Janik.cz>
parents:
39914
diff
changeset
|
108 |
49322 | 109 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
110 |
30321 | 111 extern void free_frame_menubar P_ ((struct frame *)); |
112 extern struct frame *x_menubar_window_to_frame P_ ((struct x_display_info *, | |
113 int)); | |
49322 | 114 #endif |
115 | |
116 #ifdef USE_X_TOOLKIT | |
13507
9a9f459075af
(HACK_EDITRES): Define here as in xfns.c.
Richard M. Stallman <rms@gnu.org>
parents:
13363
diff
changeset
|
117 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES) |
9a9f459075af
(HACK_EDITRES): Define here as in xfns.c.
Richard M. Stallman <rms@gnu.org>
parents:
13363
diff
changeset
|
118 #define HACK_EDITRES |
6941
a914781ef58a
(Xatom_editres_name): Variable defined.
Richard M. Stallman <rms@gnu.org>
parents:
6934
diff
changeset
|
119 extern void _XEditResCheckMessages (); |
13507
9a9f459075af
(HACK_EDITRES): Define here as in xfns.c.
Richard M. Stallman <rms@gnu.org>
parents:
13363
diff
changeset
|
120 #endif /* not NO_EDITRES */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
121 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
122 /* Include toolkit specific headers for the scroll bar widget. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
123 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
124 #ifdef USE_TOOLKIT_SCROLL_BARS |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
125 #if defined USE_MOTIF |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
126 #include <Xm/Xm.h> /* for LESSTIF_VERSION */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
127 #include <Xm/ScrollBar.h> |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
128 #else /* !USE_MOTIF i.e. use Xaw */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
129 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
130 #ifdef HAVE_XAW3D |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
131 #include <X11/Xaw3d/Simple.h> |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
132 #include <X11/Xaw3d/Scrollbar.h> |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
133 #define ARROW_SCROLLBAR |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
134 #include <X11/Xaw3d/ScrollbarP.h> |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
135 #else /* !HAVE_XAW3D */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
136 #include <X11/Xaw/Simple.h> |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
137 #include <X11/Xaw/Scrollbar.h> |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
138 #endif /* !HAVE_XAW3D */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
139 #ifndef XtNpickTop |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
140 #define XtNpickTop "pickTop" |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
141 #endif /* !XtNpickTop */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
142 #endif /* !USE_MOTIF */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
143 #endif /* USE_TOOLKIT_SCROLL_BARS */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
144 |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
145 #endif /* USE_X_TOOLKIT */ |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
146 |
49322 | 147 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK) |
6022
713d4d840a11
(x_had_errors_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6010
diff
changeset
|
148 #define x_any_window_to_frame x_window_to_frame |
6983
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
149 #define x_top_window_to_frame x_window_to_frame |
6022
713d4d840a11
(x_had_errors_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6010
diff
changeset
|
150 #endif |
713d4d840a11
(x_had_errors_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
6010
diff
changeset
|
151 |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
152 #ifdef USE_X_TOOLKIT |
12189 | 153 #include "widget.h" |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
154 #ifndef XtNinitialState |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
155 #define XtNinitialState "initialState" |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
156 #endif |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
157 #endif |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
158 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
159 #define abs(x) ((x) < 0 ? -(x) : (x)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
160 |
51129 | 161 /* Default to using XIM if available. */ |
162 int use_xim = 1; | |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
163 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
164 |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
165 /* Non-nil means Emacs uses toolkit scroll bars. */ |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
166 |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
167 Lisp_Object Vx_toolkit_scroll_bars; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
168 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
169 /* Non-zero means that a HELP_EVENT has been generated since Emacs |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
170 start. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
171 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
172 static int any_help_event_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
173 |
44359
ff9f7aee02c8
Rename autoselect_window_p to mouse_autoselect_window.
Pavel Janík <Pavel@Janik.cz>
parents:
44313
diff
changeset
|
174 /* Last window where we saw the mouse. Used by mouse-autoselect-window. */ |
44301
1892db006468
(autoselect_window_p): Renamed from `x_autoselect_window_p'.
Pavel Janík <Pavel@Janik.cz>
parents:
44275
diff
changeset
|
175 static Lisp_Object last_window; |
43343
ac7b0c0802cc
(x-autoselect-window): New variable.
Pavel Janík <Pavel@Janik.cz>
parents:
43302
diff
changeset
|
176 |
37153
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
177 /* Non-zero means make use of UNDERLINE_POSITION font properties. */ |
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
178 |
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
179 int x_use_underline_position_properties; |
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
180 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
181 /* This is a chain of structures for all the X displays currently in |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
182 use. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
183 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
184 struct x_display_info *x_display_list; |
286 | 185 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
186 /* This is a list of cons cells, each of the form (NAME |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
187 . FONT-LIST-CACHE), one for each element of x_display_list and in |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
188 the same order. NAME is the name of the frame. FONT-LIST-CACHE |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
189 records previous values returned by x-list-fonts. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
190 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
191 Lisp_Object x_display_name_list; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
192 |
2474
86c8a6e08fd4
Fix typo in comment delimiter.
Richard M. Stallman <rms@gnu.org>
parents:
2468
diff
changeset
|
193 /* Frame being updated by update_frame. This is declared in term.c. |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
194 This is set by update_begin and looked at by all the XT functions. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
195 It is zero while not inside an update. In that case, the XT |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
196 functions assume that `selected_frame' is the frame to apply to. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
197 |
2468
35aa32e1a003
* xterm.c (updating_frame): Declare this extern instead of static,
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
198 extern struct frame *updating_frame; |
771 | 199 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
200 /* This is a frame waiting to be auto-raised, within XTread_socket. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
201 |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
202 struct frame *pending_autoraise_frame; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
203 |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
204 #ifdef USE_X_TOOLKIT |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
205 /* The application context for Xt use. */ |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
206 XtAppContext Xt_app_con; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
207 static String Xt_default_resources[] = {0}; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
208 #endif /* USE_X_TOOLKIT */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
209 |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
210 /* Non-zero means user is interacting with a toolkit scroll bar. */ |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
211 |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
212 static int toolkit_scroll_bar_interaction; |
286 | 213 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
214 /* Mouse movement. |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
215 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
216 Formerly, we used PointerMotionHintMask (in standard_event_mask) |
15042
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
217 so that we would have to call XQueryPointer after each MotionNotify |
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
218 event to ask for another such event. However, this made mouse tracking |
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
219 slow, and there was a bug that made it eventually stop. |
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
220 |
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
221 Simply asking for MotionNotify all the time seems to work better. |
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
222 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
223 In order to avoid asking for motion events and then throwing most |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
224 of them away or busy-polling the server for mouse positions, we ask |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
225 the server for pointer motion hints. This means that we get only |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
226 one event per group of mouse movements. "Groups" are delimited by |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
227 other kinds of events (focus changes and button clicks, for |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
228 example), or by XQueryPointer calls; when one of these happens, we |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
229 get another MotionNotify event the next time the mouse moves. This |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
230 is at least as efficient as getting motion events when mouse |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
231 tracking is on, and I suspect only negligibly worse when tracking |
15042
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
232 is off. */ |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
233 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
234 /* Where the mouse was last time we reported a mouse event. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
235 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
236 static XRectangle last_mouse_glyph; |
15803
f214673e68a8
(XTread_socket): Pass keys in menu bar to toolkit alone
Richard M. Stallman <rms@gnu.org>
parents:
15794
diff
changeset
|
237 static Lisp_Object last_mouse_press_frame; |
f214673e68a8
(XTread_socket): Pass keys in menu bar to toolkit alone
Richard M. Stallman <rms@gnu.org>
parents:
15794
diff
changeset
|
238 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
239 /* The scroll bar in which the last X motion event occurred. |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
240 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
241 If the last X motion event occurred in a scroll bar, we set this so |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
242 XTmouse_position can know whether to report a scroll bar motion or |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
243 an ordinary motion. |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
244 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
245 If the last X motion event didn't occur in a scroll bar, we set |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
246 this to Qnil, to tell XTmouse_position to return an ordinary motion |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
247 event. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
248 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
249 static Lisp_Object last_mouse_scroll_bar; |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
250 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
251 /* This is a hack. We would really prefer that XTmouse_position would |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
252 return the time associated with the position it returns, but there |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
253 doesn't seem to be any way to wrest the time-stamp from the server |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
254 along with the position query. So, we just keep track of the time |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
255 of the last movement we received, and return that in hopes that |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
256 it's somewhat accurate. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
257 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
258 static Time last_mouse_movement_time; |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
259 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
260 /* Incremented by XTread_socket whenever it really tries to read |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
261 events. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
262 |
9337
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
263 #ifdef __STDC__ |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
264 static int volatile input_signal_count; |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
265 #else |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
266 static int input_signal_count; |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
267 #endif |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
268 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
269 /* Used locally within XTread_socket. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
270 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
271 static int x_noop_count; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
272 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
273 /* Initial values of argv and argc. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
274 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
275 extern char **initial_argv; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
276 extern int initial_argc; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
277 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
278 extern Lisp_Object Vcommand_line_args, Vsystem_name; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
279 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
280 /* Tells if a window manager is present or not. */ |
286 | 281 |
282 extern Lisp_Object Vx_no_window_manager; | |
283 | |
48085 | 284 extern Lisp_Object Qface, Qmouse_face, Qeql; |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
285 |
286 | 286 extern int errno; |
287 | |
2661
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
288 /* A mask of extra modifier bits to put into every keyboard char. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
289 |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43621
diff
changeset
|
290 extern EMACS_INT extra_keyboard_modifiers; |
1841
338e4ffdb54b
(XTread_socket): Support extra_keyboard_modifiers.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
291 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
292 /* The keysyms to use for the various modifiers. */ |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
293 |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
294 Lisp_Object Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym, Vx_super_keysym; |
48085 | 295 Lisp_Object Vx_keysym_table; |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
296 static Lisp_Object Qalt, Qhyper, Qmeta, Qsuper, Qmodifier_value; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
297 |
11807
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
298 static Lisp_Object Qvendor_specific_keysyms; |
51405 | 299 static Lisp_Object Qlatin_1; |
11807
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
300 |
30321 | 301 extern XrmDatabase x_load_resources P_ ((Display *, char *, char *, char *)); |
11915
e2ab839155e1
(XTflash): Use pointers as args to select.
Karl Heuer <kwzh@gnu.org>
parents:
11904
diff
changeset
|
302 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
303 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
304 static int x_alloc_nearest_color_1 P_ ((Display *, Colormap, XColor *)); |
35487
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
305 static void x_set_window_size_1 P_ ((struct frame *, int, int, int)); |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
306 static const XColor *x_color_cells P_ ((Display *, int *)); |
30160
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
307 static void x_update_window_end P_ ((struct window *, int, int)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
308 void x_delete_display P_ ((struct x_display_info *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
309 static unsigned int x_x_to_emacs_modifiers P_ ((struct x_display_info *, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
310 unsigned)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
311 static int x_io_error_quitter P_ ((Display *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
312 int x_catch_errors P_ ((Display *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
313 void x_uncatch_errors P_ ((Display *, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
314 void x_lower_frame P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
315 void x_scroll_bar_clear P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
316 int x_had_errors_p P_ ((Display *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
317 void x_wm_set_size_hint P_ ((struct frame *, long, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
318 void x_raise_frame P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
319 void x_set_window_size P_ ((struct frame *, int, int, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
320 void x_wm_set_window_state P_ ((struct frame *, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
321 void x_wm_set_icon_pixmap P_ ((struct frame *, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
322 void x_initialize P_ ((void)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
323 static void x_font_min_bounds P_ ((XFontStruct *, int *, int *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
324 static int x_compute_min_glyph_bounds P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
325 static void x_update_end P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
326 static void XTframe_up_to_date P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
327 static void XTset_terminal_modes P_ ((void)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
328 static void XTreset_terminal_modes P_ ((void)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
329 static void x_clear_frame P_ ((void)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
330 static void frame_highlight P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
331 static void frame_unhighlight P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
332 static void x_new_focus_frame P_ ((struct x_display_info *, struct frame *)); |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
333 static int x_focus_changed P_ ((int, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
334 int, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
335 struct x_display_info *, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
336 struct frame *, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
337 struct input_event *, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
338 int)); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
339 static int x_detect_focus_change P_ ((struct x_display_info *, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
340 XEvent *, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
341 struct input_event *, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
342 int)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
343 static void XTframe_rehighlight P_ ((struct frame *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
344 static void x_frame_rehighlight P_ ((struct x_display_info *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
345 static void x_draw_hollow_cursor P_ ((struct window *, struct glyph_row *)); |
44690
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
346 static void x_draw_bar_cursor P_ ((struct window *, struct glyph_row *, int, |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
347 enum text_cursor_kinds)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
348 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
349 static void x_clip_to_row P_ ((struct window *, struct glyph_row *, GC)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
350 static void x_flush P_ ((struct frame *f)); |
30321 | 351 static void x_update_begin P_ ((struct frame *)); |
352 static void x_update_window_begin P_ ((struct window *)); | |
353 static void x_after_update_window_line P_ ((struct glyph_row *)); | |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
354 static struct scroll_bar *x_window_to_scroll_bar P_ ((Window)); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
355 static void x_scroll_bar_report_motion P_ ((struct frame **, Lisp_Object *, |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
356 enum scroll_bar_part *, |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
357 Lisp_Object *, Lisp_Object *, |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
358 unsigned long *)); |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
359 static void x_check_fullscreen P_ ((struct frame *)); |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
360 static void x_check_fullscreen_move P_ ((struct frame *)); |
49322 | 361 static int handle_one_xevent P_ ((struct x_display_info *, |
362 XEvent *, | |
363 struct input_event **, | |
364 int *, | |
365 int *)); | |
366 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
367 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
368 /* Flush display of frame F, or of all frames if F is null. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
369 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
370 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
371 x_flush (f) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
372 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
373 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
374 BLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
375 if (f == NULL) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
376 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
377 Lisp_Object rest, frame; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
378 FOR_EACH_FRAME (rest, frame) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
379 x_flush (XFRAME (frame)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
380 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
381 else if (FRAME_X_P (f)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
382 XFlush (FRAME_X_DISPLAY (f)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
383 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
384 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
385 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
386 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
387 /* Remove calls to XFlush by defining XFlush to an empty replacement. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
388 Calls to XFlush should be unnecessary because the X output buffer |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
389 is flushed automatically as needed by calls to XPending, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
390 XNextEvent, or XWindowEvent according to the XFlush man page. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
391 XTread_socket calls XPending. Removing XFlush improves |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
392 performance. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
393 |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
394 #define XFlush(DISPLAY) (void) 0 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
395 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
396 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
397 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
398 Debugging |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
399 ***********************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
400 |
12192
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
401 #if 0 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
402 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
403 /* This is a function useful for recording debugging information about |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
404 the sequence of occurrences in this file. */ |
12192
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
405 |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
406 struct record |
12192
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
407 { |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
408 char *locus; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
409 int type; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
410 }; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
411 |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
412 struct record event_record[100]; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
413 |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
414 int event_record_index; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
415 |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
416 record_event (locus, type) |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
417 char *locus; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
418 int type; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
419 { |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
420 if (event_record_index == sizeof (event_record) / sizeof (struct record)) |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
421 event_record_index = 0; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
422 |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
423 event_record[event_record_index].locus = locus; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
424 event_record[event_record_index].type = type; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
425 event_record_index++; |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
426 } |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
427 |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
428 #endif /* 0 */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
429 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
430 |
12192
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
431 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
432 /* Return the struct x_display_info corresponding to DPY. */ |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
433 |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
434 struct x_display_info * |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
435 x_display_info_for_display (dpy) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
436 Display *dpy; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
437 { |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
438 struct x_display_info *dpyinfo; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
439 |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
440 for (dpyinfo = x_display_list; dpyinfo; dpyinfo = dpyinfo->next) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
441 if (dpyinfo->display == dpy) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
442 return dpyinfo; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
443 |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
444 return 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
445 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
446 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
447 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
448 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
449 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
450 Starting and ending an update |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
451 ***********************************************************************/ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
452 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
453 /* Start an update of frame F. This function is installed as a hook |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
454 for update_begin, i.e. it is called when update_begin is called. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
455 This function is called prior to calls to x_update_window_begin for |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
456 each window being updated. Currently, there is nothing to do here |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
457 because all interesting stuff is done on a window basis. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
458 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
459 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
460 x_update_begin (f) |
771 | 461 struct frame *f; |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
462 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
463 /* Nothing to do. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
464 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
465 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
466 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
467 /* Start update of window W. Set the global variable updated_window |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
468 to the window being updated and set output_cursor to the cursor |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
469 position of W. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
470 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
471 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
472 x_update_window_begin (w) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
473 struct window *w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
474 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
475 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
476 struct x_display_info *display_info = FRAME_X_DISPLAY_INFO (f); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
477 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
478 updated_window = w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
479 set_output_cursor (&w->cursor); |
286 | 480 |
481 BLOCK_INPUT; | |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
482 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
483 if (f == display_info->mouse_face_mouse_frame) |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
484 { |
6660
cb14d76e993c
(note_mouse_highlight): Do nothing if gc_in_progress.
Richard M. Stallman <rms@gnu.org>
parents:
6649
diff
changeset
|
485 /* Don't do highlighting for mouse motion during the update. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
486 display_info->mouse_face_defer = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
487 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
488 /* If F needs to be redrawn, simply forget about any prior mouse |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
489 highlighting. */ |
10274
83aaf59dabbe
(XTupdate_begin): Fix backward test in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
10223
diff
changeset
|
490 if (FRAME_GARBAGED_P (f)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
491 display_info->mouse_face_window = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
492 |
30153
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
493 #if 0 /* Rows in a current matrix containing glyphs in mouse-face have |
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
494 their mouse_face_p flag set, which means that they are always |
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
495 unequal to rows in a desired matrix which never have that |
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
496 flag set. So, rows containing mouse-face glyphs are never |
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
497 scrolled, and we don't have to switch the mouse highlight off |
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
498 here to prevent it from being scrolled. */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
499 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
500 /* Can we tell that this update does not affect the window |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
501 where the mouse highlight is? If so, no need to turn off. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
502 Likewise, don't do anything if the frame is garbaged; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
503 in that case, the frame's current matrix that we would use |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
504 is all wrong, and we will redisplay that line anyway. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
505 if (!NILP (display_info->mouse_face_window) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
506 && w == XWINDOW (display_info->mouse_face_window)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
507 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
508 int i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
509 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
510 for (i = 0; i < w->desired_matrix->nrows; ++i) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
511 if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i)) |
6660
cb14d76e993c
(note_mouse_highlight): Do nothing if gc_in_progress.
Richard M. Stallman <rms@gnu.org>
parents:
6649
diff
changeset
|
512 break; |
cb14d76e993c
(note_mouse_highlight): Do nothing if gc_in_progress.
Richard M. Stallman <rms@gnu.org>
parents:
6649
diff
changeset
|
513 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
514 if (i < w->desired_matrix->nrows) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
515 clear_mouse_face (display_info); |
6660
cb14d76e993c
(note_mouse_highlight): Do nothing if gc_in_progress.
Richard M. Stallman <rms@gnu.org>
parents:
6649
diff
changeset
|
516 } |
30153
1eb41ec71ea5
(x_update_window_begin): No need to turn off the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
30137
diff
changeset
|
517 #endif /* 0 */ |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
518 } |
8781
98741404d3e0
Delete X11 conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
8724
diff
changeset
|
519 |
286 | 520 UNBLOCK_INPUT; |
521 } | |
522 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
523 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
524 /* Draw a vertical window border from (x,y0) to (x,y1) */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
525 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
526 static void |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
527 x_draw_vertical_window_border (w, x, y0, y1) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
528 struct window *w; |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
529 int x, y0, y1; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
530 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
531 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
532 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
533 XDrawLine (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
534 f->output_data.x->normal_gc, x, y0, x, y1); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
535 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
536 |
30160
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
537 /* End update of window W (which is equal to updated_window). |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
538 |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
539 Draw vertical borders between horizontally adjacent windows, and |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
540 display W's cursor if CURSOR_ON_P is non-zero. |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
541 |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
542 MOUSE_FACE_OVERWRITTEN_P non-zero means that some row containing |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
543 glyphs in mouse-face were overwritten. In that case we have to |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
544 make sure that the mouse-highlight is properly redrawn. |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
545 |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
546 W may be a menu bar pseudo-window in case we don't have X toolkit |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
547 support. Such windows don't have a cursor, so don't display it |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
548 here. */ |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
549 |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
550 static void |
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
551 x_update_window_end (w, cursor_on_p, mouse_face_overwritten_p) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
552 struct window *w; |
30160
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
553 int cursor_on_p, mouse_face_overwritten_p; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
554 { |
36929
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
555 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (XFRAME (w->frame)); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
556 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
557 if (!w->pseudo_window_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
558 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
559 BLOCK_INPUT; |
30160
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
560 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
561 if (cursor_on_p) |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
562 display_and_set_cursor (w, 1, output_cursor.hpos, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
563 output_cursor.vpos, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
564 output_cursor.x, output_cursor.y); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
565 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
566 x_draw_vertical_border (w); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
567 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
568 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
569 |
36929
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
570 /* If a row with mouse-face was overwritten, arrange for |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
571 XTframe_up_to_date to redisplay the mouse highlight. */ |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
572 if (mouse_face_overwritten_p) |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
573 { |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
574 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1; |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
575 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1; |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
576 dpyinfo->mouse_face_window = Qnil; |
9d0ed4b0c89a
(x_update_window_end): Handle overwritten mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
36880
diff
changeset
|
577 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
578 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
579 updated_window = NULL; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
580 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
581 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
582 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
583 /* End update of frame F. This function is installed as a hook in |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
584 update_end. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
585 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
586 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
587 x_update_end (f) |
771 | 588 struct frame *f; |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
589 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
590 /* Mouse highlight may be displayed again. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
591 FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0; |
286 | 592 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
593 #ifndef XFlush |
286 | 594 BLOCK_INPUT; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
595 XFlush (FRAME_X_DISPLAY (f)); |
286 | 596 UNBLOCK_INPUT; |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
597 #endif |
286 | 598 } |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
599 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
600 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
601 /* This function is called from various places in xdisp.c whenever a |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
602 complete update has been performed. The global variable |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
603 updated_window is not available here. */ |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
604 |
21514 | 605 static void |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
606 XTframe_up_to_date (f) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
607 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
608 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
609 if (FRAME_X_P (f)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
610 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
611 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
30160
432da5a9f734
(x_update_window_end): Add parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30153
diff
changeset
|
612 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
613 if (dpyinfo->mouse_face_deferred_gc |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
614 || f == dpyinfo->mouse_face_mouse_frame) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
615 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
616 BLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
617 if (dpyinfo->mouse_face_mouse_frame) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
618 note_mouse_highlight (dpyinfo->mouse_face_mouse_frame, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
619 dpyinfo->mouse_face_mouse_x, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
620 dpyinfo->mouse_face_mouse_y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
621 dpyinfo->mouse_face_deferred_gc = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
622 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
623 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
624 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
625 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
626 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
627 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
628 /* Draw truncation mark bitmaps, continuation mark bitmaps, overlay |
41134 | 629 arrow bitmaps, or clear the fringes if no bitmaps are required |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
630 before DESIRED_ROW is made current. The window being updated is |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
631 found in updated_window. This function It is called from |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
632 update_window_line only if it is known that there are differences |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
633 between bitmaps to be drawn between current row and DESIRED_ROW. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
634 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
635 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
636 x_after_update_window_line (desired_row) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
637 struct glyph_row *desired_row; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
638 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
639 struct window *w = updated_window; |
40435
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
640 struct frame *f; |
40514
a4363606beb1
(x_after_update_window_line): Don't run the code
Gerd Moellmann <gerd@gnu.org>
parents:
40499
diff
changeset
|
641 int width, height; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
642 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
643 xassert (w); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
644 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
645 if (!desired_row->mode_line_p && !w->pseudo_window_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
646 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
647 BLOCK_INPUT; |
50097 | 648 draw_row_fringe_bitmaps (w, desired_row); |
40435
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
649 UNBLOCK_INPUT; |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
650 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
651 |
40435
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
652 /* When a window has disappeared, make sure that no rest of |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
653 full-width rows stays visible in the internal border. Could |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
654 check here if updated_window is the leftmost/rightmost window, |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
655 but I guess it's not worth doing since vertically split windows |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
656 are almost never used, internal border is rarely set, and the |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
657 overhead is very small. */ |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
658 if (windows_or_buffers_changed |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
659 && desired_row->full_width_p |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
660 && (f = XFRAME (w->frame), |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
661 width = FRAME_INTERNAL_BORDER_WIDTH (f), |
40514
a4363606beb1
(x_after_update_window_line): Don't run the code
Gerd Moellmann <gerd@gnu.org>
parents:
40499
diff
changeset
|
662 width != 0) |
a4363606beb1
(x_after_update_window_line): Don't run the code
Gerd Moellmann <gerd@gnu.org>
parents:
40499
diff
changeset
|
663 && (height = desired_row->visible_height, |
a4363606beb1
(x_after_update_window_line): Don't run the code
Gerd Moellmann <gerd@gnu.org>
parents:
40499
diff
changeset
|
664 height > 0)) |
a4363606beb1
(x_after_update_window_line): Don't run the code
Gerd Moellmann <gerd@gnu.org>
parents:
40499
diff
changeset
|
665 { |
40435
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
666 int y = WINDOW_TO_FRAME_PIXEL_Y (w, max (0, desired_row->y)); |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
667 |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
668 /* Internal border is drawn below the tool bar. */ |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
669 if (WINDOWP (f->tool_bar_window) |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
670 && w == XWINDOW (f->tool_bar_window)) |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
671 y -= width; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
672 |
40435
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
673 BLOCK_INPUT; |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
674 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
675 0, y, width, height, False); |
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
676 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
677 FRAME_PIXEL_WIDTH (f) - width, |
40435
b23a0899363f
(x_after_update_window_line): Clear internal border
Gerd Moellmann <gerd@gnu.org>
parents:
40433
diff
changeset
|
678 y, width, height, False); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
679 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
680 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
681 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
682 |
50097 | 683 static void |
684 x_draw_fringe_bitmap (w, row, p) | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
685 struct window *w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
686 struct glyph_row *row; |
50097 | 687 struct draw_fringe_bitmap_params *p; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
688 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
689 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
690 Display *display = FRAME_X_DISPLAY (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
691 Window window = FRAME_X_WINDOW (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
692 GC gc = f->output_data.x->normal_gc; |
50097 | 693 struct face *face = p->face; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
694 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
695 /* Must clip because of partially visible lines. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
696 x_clip_to_row (w, row, gc); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
697 |
50097 | 698 if (p->bx >= 0) |
699 { | |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
700 /* In case the same realized face is used for fringes and |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
701 for something displayed in the text (e.g. face `region' on |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
702 mono-displays, the fill style may have been changed to |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
703 FillSolid in x_draw_glyph_string_background. */ |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
704 if (face->stipple) |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
705 XSetFillStyle (display, face->gc, FillOpaqueStippled); |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
706 else |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
707 XSetForeground (display, face->gc, face->background); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
708 |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
709 XFillRectangle (display, window, face->gc, |
50097 | 710 p->bx, p->by, p->nx, p->ny); |
711 | |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
712 if (!face->stipple) |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
713 XSetForeground (display, face->gc, face->foreground); |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
714 } |
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
715 |
50097 | 716 if (p->which != NO_FRINGE_BITMAP) |
717 { | |
718 unsigned char *bits = fringe_bitmaps[p->which].bits + p->dh; | |
719 Pixmap pixmap; | |
720 int depth = DefaultDepthOfScreen (FRAME_X_SCREEN (f)); | |
721 | |
41741
c0edacaaaea8
(x_draw_fringe_bitmap): Always undo clipping.
Gerd Moellmann <gerd@gnu.org>
parents:
41721
diff
changeset
|
722 /* Draw the bitmap. I believe these small pixmaps can be cached |
c0edacaaaea8
(x_draw_fringe_bitmap): Always undo clipping.
Gerd Moellmann <gerd@gnu.org>
parents:
41721
diff
changeset
|
723 by the server. */ |
50097 | 724 pixmap = XCreatePixmapFromBitmapData (display, window, bits, p->wd, p->h, |
41741
c0edacaaaea8
(x_draw_fringe_bitmap): Always undo clipping.
Gerd Moellmann <gerd@gnu.org>
parents:
41721
diff
changeset
|
725 face->foreground, |
c0edacaaaea8
(x_draw_fringe_bitmap): Always undo clipping.
Gerd Moellmann <gerd@gnu.org>
parents:
41721
diff
changeset
|
726 face->background, depth); |
50097 | 727 XCopyArea (display, pixmap, window, gc, 0, 0, |
728 p->wd, p->h, p->x, p->y); | |
41741
c0edacaaaea8
(x_draw_fringe_bitmap): Always undo clipping.
Gerd Moellmann <gerd@gnu.org>
parents:
41721
diff
changeset
|
729 XFreePixmap (display, pixmap); |
c0edacaaaea8
(x_draw_fringe_bitmap): Always undo clipping.
Gerd Moellmann <gerd@gnu.org>
parents:
41721
diff
changeset
|
730 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
731 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
732 XSetClipMask (display, gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
733 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
734 |
286 | 735 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
736 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
737 /* This is called when starting Emacs and when restarting after |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
738 suspend. When starting Emacs, no X window is mapped. And nothing |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
739 must be done to Emacs's own window if it is suspended (though that |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
740 rarely happens). */ |
286 | 741 |
21514 | 742 static void |
286 | 743 XTset_terminal_modes () |
744 { | |
745 } | |
746 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
747 /* This is called when exiting or suspending Emacs. Exiting will make |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
748 the X-windows go away, and suspending requires no action. */ |
286 | 749 |
21514 | 750 static void |
286 | 751 XTreset_terminal_modes () |
752 { | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
753 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
754 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
755 |
286 | 756 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
757 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
758 Display Iterator |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
759 ***********************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
760 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
761 /* Function prototypes of this page. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
762 |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
763 static int x_encode_char P_ ((int, XChar2b *, struct font_info *, int *)); |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
764 |
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
765 |
27974
d443ad369a18
(PER_CHAR_METRIC): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
27967
diff
changeset
|
766 /* Get metrics of character CHAR2B in FONT. Value is null if CHAR2B |
d443ad369a18
(PER_CHAR_METRIC): Removed.
Gerd Moellmann <gerd@gnu.org>
parents:
27967
diff
changeset
|
767 is not contained in the font. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
768 |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
769 static XCharStruct * |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
770 x_per_char_metric (font, char2b, font_type) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
771 XFontStruct *font; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
772 XChar2b *char2b; |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
773 int font_type; /* unused on X */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
774 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
775 /* The result metric information. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
776 XCharStruct *pcm = NULL; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
777 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
778 xassert (font && char2b); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
779 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
780 if (font->per_char != NULL) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
781 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
782 if (font->min_byte1 == 0 && font->max_byte1 == 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
783 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
784 /* min_char_or_byte2 specifies the linear character index |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
785 corresponding to the first element of the per_char array, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
786 max_char_or_byte2 is the index of the last character. A |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
787 character with non-zero CHAR2B->byte1 is not in the font. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
788 A character with byte2 less than min_char_or_byte2 or |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
789 greater max_char_or_byte2 is not in the font. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
790 if (char2b->byte1 == 0 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
791 && char2b->byte2 >= font->min_char_or_byte2 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
792 && char2b->byte2 <= font->max_char_or_byte2) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
793 pcm = font->per_char + char2b->byte2 - font->min_char_or_byte2; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
794 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
795 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
796 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
797 /* If either min_byte1 or max_byte1 are nonzero, both |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
798 min_char_or_byte2 and max_char_or_byte2 are less than |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
799 256, and the 2-byte character index values corresponding |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
800 to the per_char array element N (counting from 0) are: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
801 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
802 byte1 = N/D + min_byte1 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
803 byte2 = N\D + min_char_or_byte2 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
804 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
805 where: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
806 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
807 D = max_char_or_byte2 - min_char_or_byte2 + 1 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
808 / = integer division |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
809 \ = integer modulus */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
810 if (char2b->byte1 >= font->min_byte1 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
811 && char2b->byte1 <= font->max_byte1 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
812 && char2b->byte2 >= font->min_char_or_byte2 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
813 && char2b->byte2 <= font->max_char_or_byte2) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
814 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
815 pcm = (font->per_char |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
816 + ((font->max_char_or_byte2 - font->min_char_or_byte2 + 1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
817 * (char2b->byte1 - font->min_byte1)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
818 + (char2b->byte2 - font->min_char_or_byte2)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
819 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
820 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
821 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
822 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
823 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
824 /* If the per_char pointer is null, all glyphs between the first |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
825 and last character indexes inclusive have the same |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
826 information, as given by both min_bounds and max_bounds. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
827 if (char2b->byte2 >= font->min_char_or_byte2 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
828 && char2b->byte2 <= font->max_char_or_byte2) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
829 pcm = &font->max_bounds; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
830 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
831 |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
832 return ((pcm == NULL |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
833 || (pcm->width == 0 && (pcm->rbearing - pcm->lbearing) == 0)) |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
834 ? NULL : pcm); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
835 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
836 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
837 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
838 /* Encode CHAR2B using encoding information from FONT_INFO. CHAR2B is |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
839 the two-byte form of C. Encoding is returned in *CHAR2B. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
840 |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
841 static int |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
842 x_encode_char (c, char2b, font_info, two_byte_p) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
843 int c; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
844 XChar2b *char2b; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
845 struct font_info *font_info; |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
846 int *two_byte_p; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
847 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
848 int charset = CHAR_CHARSET (c); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
849 XFontStruct *font = font_info->font; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
850 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
851 /* FONT_INFO may define a scheme by which to encode byte1 and byte2. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
852 This may be either a program in a special encoder language or a |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
853 fixed encoding. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
854 if (font_info->font_encoder) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
855 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
856 /* It's a program. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
857 struct ccl_program *ccl = font_info->font_encoder; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
858 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
859 if (CHARSET_DIMENSION (charset) == 1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
860 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
861 ccl->reg[0] = charset; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
862 ccl->reg[1] = char2b->byte2; |
47699
a8e563d6dbb3
(x_encode_char): For DIM=1 charset, set ccl->reg[2] to
Kenichi Handa <handa@m17n.org>
parents:
47143
diff
changeset
|
863 ccl->reg[2] = -1; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
864 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
865 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
866 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
867 ccl->reg[0] = charset; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
868 ccl->reg[1] = char2b->byte1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
869 ccl->reg[2] = char2b->byte2; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
870 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
871 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
872 ccl_driver (ccl, NULL, NULL, 0, 0, NULL); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
873 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
874 /* We assume that MSBs are appropriately set/reset by CCL |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
875 program. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
876 if (font->max_byte1 == 0) /* 1-byte font */ |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
877 char2b->byte1 = 0, char2b->byte2 = ccl->reg[1]; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
878 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
879 char2b->byte1 = ccl->reg[1], char2b->byte2 = ccl->reg[2]; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
880 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
881 else if (font_info->encoding[charset]) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
882 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
883 /* Fixed encoding scheme. See fontset.h for the meaning of the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
884 encoding numbers. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
885 int enc = font_info->encoding[charset]; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
886 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
887 if ((enc == 1 || enc == 2) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
888 && CHARSET_DIMENSION (charset) == 2) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
889 char2b->byte1 |= 0x80; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
890 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
891 if (enc == 1 || enc == 3) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
892 char2b->byte2 |= 0x80; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
893 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
894 |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
895 if (two_byte_p) |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
896 *two_byte_p = ((XFontStruct *) (font_info->font))->max_byte1 > 0; |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
897 |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
898 return FONT_TYPE_UNKNOWN; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
899 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
900 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
901 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
902 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
903 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
904 Glyph display |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
905 ***********************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
906 |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
907 |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
908 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
909 static void x_set_glyph_string_clipping P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
910 static void x_set_glyph_string_gc P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
911 static void x_draw_glyph_string_background P_ ((struct glyph_string *, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
912 int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
913 static void x_draw_glyph_string_foreground P_ ((struct glyph_string *)); |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
914 static void x_draw_composite_glyph_string_foreground P_ ((struct glyph_string *)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
915 static void x_draw_glyph_string_box P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
916 static void x_draw_glyph_string P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
917 static void x_compute_glyph_string_overhangs P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
918 static void x_set_cursor_gc P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
919 static void x_set_mode_line_face_gc P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
920 static void x_set_mouse_face_gc P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
921 static int x_alloc_lighter_color P_ ((struct frame *, Display *, Colormap, |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25921
diff
changeset
|
922 unsigned long *, double, int)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
923 static void x_setup_relief_color P_ ((struct frame *, struct relief *, |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25921
diff
changeset
|
924 double, int, unsigned long)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
925 static void x_setup_relief_colors P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
926 static void x_draw_image_glyph_string P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
927 static void x_draw_image_relief P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
928 static void x_draw_image_foreground P_ ((struct glyph_string *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
929 static void x_draw_image_foreground_1 P_ ((struct glyph_string *, Pixmap)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
930 static void x_clear_glyph_string_rect P_ ((struct glyph_string *, int, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
931 int, int, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
932 static void x_draw_relief_rect P_ ((struct frame *, int, int, int, int, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
933 int, int, int, int, XRectangle *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
934 static void x_draw_box_rect P_ ((struct glyph_string *, int, int, int, int, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
935 int, int, int, XRectangle *)); |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
936 |
29619
d171b4754825
(x_check_font) [GLYPH_DEBUG]: Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents:
29600
diff
changeset
|
937 #if GLYPH_DEBUG |
d171b4754825
(x_check_font) [GLYPH_DEBUG]: Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents:
29600
diff
changeset
|
938 static void x_check_font P_ ((struct frame *, XFontStruct *)); |
d171b4754825
(x_check_font) [GLYPH_DEBUG]: Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents:
29600
diff
changeset
|
939 #endif |
d171b4754825
(x_check_font) [GLYPH_DEBUG]: Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents:
29600
diff
changeset
|
940 |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
941 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
942 /* Set S->gc to a suitable GC for drawing glyph string S in cursor |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
943 face. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
944 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
945 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
946 x_set_cursor_gc (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
947 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
948 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
949 if (s->font == FRAME_FONT (s->f) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
950 && s->face->background == FRAME_BACKGROUND_PIXEL (s->f) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
951 && s->face->foreground == FRAME_FOREGROUND_PIXEL (s->f) |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
952 && !s->cmp) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
953 s->gc = s->f->output_data.x->cursor_gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
954 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
955 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
956 /* Cursor on non-default face: must merge. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
957 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
958 unsigned long mask; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
959 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
960 xgcv.background = s->f->output_data.x->cursor_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
961 xgcv.foreground = s->face->background; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
962 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
963 /* If the glyph would be invisible, try a different foreground. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
964 if (xgcv.foreground == xgcv.background) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
965 xgcv.foreground = s->face->foreground; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
966 if (xgcv.foreground == xgcv.background) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
967 xgcv.foreground = s->f->output_data.x->cursor_foreground_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
968 if (xgcv.foreground == xgcv.background) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
969 xgcv.foreground = s->face->foreground; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
970 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
971 /* Make sure the cursor is distinct from text in this face. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
972 if (xgcv.background == s->face->background |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
973 && xgcv.foreground == s->face->foreground) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
974 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
975 xgcv.background = s->face->foreground; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
976 xgcv.foreground = s->face->background; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
977 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
978 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
979 IF_DEBUG (x_check_font (s->f, s->font)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
980 xgcv.font = s->font->fid; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
981 xgcv.graphics_exposures = False; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
982 mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
983 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
984 if (FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
985 XChangeGC (s->display, FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
986 mask, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
987 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
988 FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
989 = XCreateGC (s->display, s->window, mask, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
990 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
991 s->gc = FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
992 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
993 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
994 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
995 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
996 /* Set up S->gc of glyph string S for drawing text in mouse face. */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
997 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
998 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
999 x_set_mouse_face_gc (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1000 struct glyph_string *s; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1001 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1002 int face_id; |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
1003 struct face *face; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1004 |
35315
1f5511b1d5ea
(x_set_mouse_face_gc): If the last use mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
35309
diff
changeset
|
1005 /* What face has to be used last for the mouse face? */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1006 face_id = FRAME_X_DISPLAY_INFO (s->f)->mouse_face_face_id; |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
1007 face = FACE_FROM_ID (s->f, face_id); |
35315
1f5511b1d5ea
(x_set_mouse_face_gc): If the last use mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
35309
diff
changeset
|
1008 if (face == NULL) |
1f5511b1d5ea
(x_set_mouse_face_gc): If the last use mouse face
Gerd Moellmann <gerd@gnu.org>
parents:
35309
diff
changeset
|
1009 face = FACE_FROM_ID (s->f, MOUSE_FACE_ID); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1010 |
29393
3ad9354ade23
(x_set_mouse_face_gc): If first glyph isn't a character
Gerd Moellmann <gerd@gnu.org>
parents:
28793
diff
changeset
|
1011 if (s->first_glyph->type == CHAR_GLYPH) |
3ad9354ade23
(x_set_mouse_face_gc): If first glyph isn't a character
Gerd Moellmann <gerd@gnu.org>
parents:
28793
diff
changeset
|
1012 face_id = FACE_FOR_CHAR (s->f, face, s->first_glyph->u.ch); |
3ad9354ade23
(x_set_mouse_face_gc): If first glyph isn't a character
Gerd Moellmann <gerd@gnu.org>
parents:
28793
diff
changeset
|
1013 else |
3ad9354ade23
(x_set_mouse_face_gc): If first glyph isn't a character
Gerd Moellmann <gerd@gnu.org>
parents:
28793
diff
changeset
|
1014 face_id = FACE_FOR_CHAR (s->f, face, 0); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1015 s->face = FACE_FROM_ID (s->f, face_id); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1016 PREPARE_FACE_FOR_DISPLAY (s->f, s->face); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1017 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1018 /* If font in this face is same as S->font, use it. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1019 if (s->font == s->face->font) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1020 s->gc = s->face->gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1021 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1022 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1023 /* Otherwise construct scratch_cursor_gc with values from FACE |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1024 but font FONT. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1025 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1026 unsigned long mask; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1027 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1028 xgcv.background = s->face->background; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1029 xgcv.foreground = s->face->foreground; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1030 IF_DEBUG (x_check_font (s->f, s->font)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1031 xgcv.font = s->font->fid; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1032 xgcv.graphics_exposures = False; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1033 mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1034 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1035 if (FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1036 XChangeGC (s->display, FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1037 mask, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1038 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1039 FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1040 = XCreateGC (s->display, s->window, mask, &xgcv); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1041 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1042 s->gc = FRAME_X_DISPLAY_INFO (s->f)->scratch_cursor_gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1043 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1044 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1045 xassert (s->gc != 0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1046 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1047 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1048 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1049 /* Set S->gc of glyph string S to a GC suitable for drawing a mode line. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1050 Faces to use in the mode line have already been computed when the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1051 matrix was built, so there isn't much to do, here. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1052 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1053 static INLINE void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1054 x_set_mode_line_face_gc (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1055 struct glyph_string *s; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1056 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1057 s->gc = s->face->gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1058 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1059 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1060 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1061 /* Set S->gc of glyph string S for drawing that glyph string. Set |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1062 S->stippled_p to a non-zero value if the face of S has a stipple |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1063 pattern. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1064 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1065 static INLINE void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1066 x_set_glyph_string_gc (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1067 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1068 { |
30137
4a3808257cf4
(x_fill_stretch_glyph_string): Consume runs of stretch
Gerd Moellmann <gerd@gnu.org>
parents:
30083
diff
changeset
|
1069 PREPARE_FACE_FOR_DISPLAY (s->f, s->face); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1070 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1071 if (s->hl == DRAW_NORMAL_TEXT) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1072 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1073 s->gc = s->face->gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1074 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1075 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1076 else if (s->hl == DRAW_INVERSE_VIDEO) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1077 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1078 x_set_mode_line_face_gc (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1079 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1080 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1081 else if (s->hl == DRAW_CURSOR) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1082 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1083 x_set_cursor_gc (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1084 s->stippled_p = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1085 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1086 else if (s->hl == DRAW_MOUSE_FACE) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1087 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1088 x_set_mouse_face_gc (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1089 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1090 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1091 else if (s->hl == DRAW_IMAGE_RAISED |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1092 || s->hl == DRAW_IMAGE_SUNKEN) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1093 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1094 s->gc = s->face->gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1095 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1096 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1097 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1098 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1099 s->gc = s->face->gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1100 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1101 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1102 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1103 /* GC must have been set. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1104 xassert (s->gc != 0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1105 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1106 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1107 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1108 /* Set clipping for output of glyph string S. S may be part of a mode |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1109 line or menu if we don't have X toolkit support. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1110 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1111 static INLINE void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1112 x_set_glyph_string_clipping (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1113 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1114 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1115 XRectangle r; |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
1116 get_glyph_string_clip_rect (s, &r); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1117 XSetClipRectangles (s->display, s->gc, 0, 0, &r, 1, Unsorted); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1118 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1119 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1120 |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
1121 /* RIF: |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
1122 Compute left and right overhang of glyph string S. If S is a glyph |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1123 string for a composition, assume overhangs don't exist. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1124 |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
1125 static void |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1126 x_compute_glyph_string_overhangs (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1127 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1128 { |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1129 if (s->cmp == NULL |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1130 && s->first_glyph->type == CHAR_GLYPH) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1131 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1132 XCharStruct cs; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1133 int direction, font_ascent, font_descent; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1134 XTextExtents16 (s->font, s->char2b, s->nchars, &direction, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1135 &font_ascent, &font_descent, &cs); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1136 s->right_overhang = cs.rbearing > cs.width ? cs.rbearing - cs.width : 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1137 s->left_overhang = cs.lbearing < 0 ? -cs.lbearing : 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1138 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1139 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1140 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1141 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1142 /* Fill rectangle X, Y, W, H with background color of glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1143 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1144 static INLINE void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1145 x_clear_glyph_string_rect (s, x, y, w, h) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1146 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1147 int x, y, w, h; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1148 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1149 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1150 XGetGCValues (s->display, s->gc, GCForeground | GCBackground, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1151 XSetForeground (s->display, s->gc, xgcv.background); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1152 XFillRectangle (s->display, s->window, s->gc, x, y, w, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1153 XSetForeground (s->display, s->gc, xgcv.foreground); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1154 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1155 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1156 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1157 /* Draw the background of glyph_string S. If S->background_filled_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1158 is non-zero don't draw it. FORCE_P non-zero means draw the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1159 background even if it wouldn't be drawn normally. This is used |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1160 when a string preceding S draws into the background of S, or S |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1161 contains the first component of a composition. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1162 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1163 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1164 x_draw_glyph_string_background (s, force_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1165 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1166 int force_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1167 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1168 /* Nothing to do if background has already been drawn or if it |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1169 shouldn't be drawn in the first place. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1170 if (!s->background_filled_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1171 { |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1172 int box_line_width = max (s->face->box_line_width, 0); |
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1173 |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1174 if (s->stippled_p) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1175 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1176 /* Fill background with a stipple pattern. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1177 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1178 XFillRectangle (s->display, s->window, s->gc, s->x, |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1179 s->y + box_line_width, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1180 s->background_width, |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1181 s->height - 2 * box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1182 XSetFillStyle (s->display, s->gc, FillSolid); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1183 s->background_filled_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1184 } |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1185 else if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1186 || s->font_not_found_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1187 || s->extends_to_end_of_line_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1188 || force_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1189 { |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1190 x_clear_glyph_string_rect (s, s->x, s->y + box_line_width, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1191 s->background_width, |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1192 s->height - 2 * box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1193 s->background_filled_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1194 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1195 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1196 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1197 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1198 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1199 /* Draw the foreground of glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1200 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1201 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1202 x_draw_glyph_string_foreground (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1203 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1204 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1205 int i, x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1206 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1207 /* If first glyph of S has a left box line, start drawing the text |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1208 of S to the right of that box line. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1209 if (s->face->box != FACE_NO_BOX |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1210 && s->first_glyph->left_box_line_p) |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1211 x = s->x + abs (s->face->box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1212 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1213 x = s->x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1214 |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1215 /* Draw characters of S as rectangles if S's font could not be |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1216 loaded. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1217 if (s->font_not_found_p) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1218 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1219 for (i = 0; i < s->nchars; ++i) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1220 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1221 struct glyph *g = s->first_glyph + i; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1222 XDrawRectangle (s->display, s->window, |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1223 s->gc, x, s->y, g->pixel_width - 1, |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1224 s->height - 1); |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1225 x += g->pixel_width; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1226 } |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1227 } |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1228 else |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1229 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1230 char *char1b = (char *) s->char2b; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1231 int boff = s->font_info->baseline_offset; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1232 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1233 if (s->font_info->vertical_centering) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1234 boff = VCENTER_BASELINE_OFFSET (s->font, s->f) - boff; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1235 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1236 /* If we can use 8-bit functions, condense S->char2b. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1237 if (!s->two_byte_p) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1238 for (i = 0; i < s->nchars; ++i) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1239 char1b[i] = s->char2b[i].byte2; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1240 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1241 /* Draw text with XDrawString if background has already been |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1242 filled. Otherwise, use XDrawImageString. (Note that |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1243 XDrawImageString is usually faster than XDrawString.) Always |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1244 use XDrawImageString when drawing the cursor so that there is |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1245 no chance that characters under a box cursor are invisible. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1246 if (s->for_overlaps_p |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1247 || (s->background_filled_p && s->hl != DRAW_CURSOR)) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1248 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1249 /* Draw characters with 16-bit or 8-bit functions. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1250 if (s->two_byte_p) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1251 XDrawString16 (s->display, s->window, s->gc, x, |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1252 s->ybase - boff, s->char2b, s->nchars); |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1253 else |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1254 XDrawString (s->display, s->window, s->gc, x, |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1255 s->ybase - boff, char1b, s->nchars); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1256 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1257 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1258 { |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1259 if (s->two_byte_p) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1260 XDrawImageString16 (s->display, s->window, s->gc, x, |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1261 s->ybase - boff, s->char2b, s->nchars); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
1262 else |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1263 XDrawImageString (s->display, s->window, s->gc, x, |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1264 s->ybase - boff, char1b, s->nchars); |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1265 } |
48383
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1266 |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1267 if (s->face->overstrike) |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1268 { |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1269 /* For overstriking (to simulate bold-face), draw the |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1270 characters again shifted to the right by one pixel. */ |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1271 if (s->two_byte_p) |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1272 XDrawString16 (s->display, s->window, s->gc, x + 1, |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1273 s->ybase - boff, s->char2b, s->nchars); |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1274 else |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1275 XDrawString (s->display, s->window, s->gc, x + 1, |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1276 s->ybase - boff, char1b, s->nchars); |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1277 } |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1278 } |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1279 } |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1280 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1281 /* Draw the foreground of composite glyph string S. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1282 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1283 static void |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1284 x_draw_composite_glyph_string_foreground (s) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1285 struct glyph_string *s; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1286 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1287 int i, x; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1288 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1289 /* If first glyph of S has a left box line, start drawing the text |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1290 of S to the right of that box line. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1291 if (s->face->box != FACE_NO_BOX |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1292 && s->first_glyph->left_box_line_p) |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
1293 x = s->x + abs (s->face->box_line_width); |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1294 else |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1295 x = s->x; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1296 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1297 /* S is a glyph string for a composition. S->gidx is the index of |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1298 the first character drawn for glyphs of this composition. |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1299 S->gidx == 0 means we are drawing the very first character of |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1300 this composition. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1301 |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1302 /* Draw a rectangle for the composition if the font for the very |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1303 first character of the composition could not be loaded. */ |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1304 if (s->font_not_found_p) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1305 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1306 if (s->gidx == 0) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1307 XDrawRectangle (s->display, s->window, s->gc, x, s->y, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1308 s->width - 1, s->height - 1); |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1309 } |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1310 else |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1311 { |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
1312 for (i = 0; i < s->nchars; i++, ++s->gidx) |
48383
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1313 { |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1314 XDrawString16 (s->display, s->window, s->gc, |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1315 x + s->cmp->offsets[s->gidx * 2], |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1316 s->ybase - s->cmp->offsets[s->gidx * 2 + 1], |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1317 s->char2b + i, 1); |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1318 if (s->face->overstrike) |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1319 XDrawString16 (s->display, s->window, s->gc, |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1320 x + s->cmp->offsets[s->gidx * 2] + 1, |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1321 s->ybase - s->cmp->offsets[s->gidx * 2 + 1], |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1322 s->char2b + i, 1); |
c44793510100
(x_draw_glyph_string_foreground)
Miles Bader <miles@gnu.org>
parents:
48330
diff
changeset
|
1323 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1324 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1325 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1326 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1327 |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1328 #ifdef USE_X_TOOLKIT |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1329 |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1330 static struct frame *x_frame_of_widget P_ ((Widget)); |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1331 static Boolean cvt_string_to_pixel P_ ((Display *, XrmValue *, Cardinal *, |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1332 XrmValue *, XrmValue *, XtPointer *)); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1333 static void cvt_pixel_dtor P_ ((XtAppContext, XrmValue *, XtPointer, |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1334 XrmValue *, Cardinal *)); |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1335 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1336 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1337 /* Return the frame on which widget WIDGET is used.. Abort if frame |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1338 cannot be determined. */ |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1339 |
29749
4235764941b5
(x_frame_of_widget): Add `static' to declaration (for pcc).
Dave Love <fx@gnu.org>
parents:
29744
diff
changeset
|
1340 static struct frame * |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1341 x_frame_of_widget (widget) |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1342 Widget widget; |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1343 { |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1344 struct x_display_info *dpyinfo; |
25716
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
1345 Lisp_Object tail; |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1346 struct frame *f; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1347 |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1348 dpyinfo = x_display_info_for_display (XtDisplay (widget)); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1349 |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1350 /* Find the top-level shell of the widget. Note that this function |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1351 can be called when the widget is not yet realized, so XtWindow |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1352 (widget) == 0. That's the reason we can't simply use |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1353 x_any_window_to_frame. */ |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1354 while (!XtIsTopLevelShell (widget)) |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1355 widget = XtParent (widget); |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1356 |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1357 /* Look for a frame with that top-level widget. Allocate the color |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1358 on that frame to get the right gamma correction value. */ |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1359 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1360 if (GC_FRAMEP (XCAR (tail)) |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1361 && (f = XFRAME (XCAR (tail)), |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1362 (f->output_data.nothing != 1 |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1363 && FRAME_X_DISPLAY_INFO (f) == dpyinfo)) |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1364 && f->output_data.x->widget == widget) |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1365 return f; |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1366 |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1367 abort (); |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1368 } |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1369 |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1370 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1371 /* Allocate the color COLOR->pixel on the screen and display of |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1372 widget WIDGET in colormap CMAP. If an exact match cannot be |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1373 allocated, try the nearest color available. Value is non-zero |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1374 if successful. This is called from lwlib. */ |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1375 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1376 int |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1377 x_alloc_nearest_color_for_widget (widget, cmap, color) |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1378 Widget widget; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1379 Colormap cmap; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1380 XColor *color; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1381 { |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1382 struct frame *f = x_frame_of_widget (widget); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1383 return x_alloc_nearest_color (f, cmap, color); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1384 } |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1385 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1386 |
31340
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1387 /* Allocate a color which is lighter or darker than *PIXEL by FACTOR |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1388 or DELTA. Try a color with RGB values multiplied by FACTOR first. |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1389 If this produces the same color as PIXEL, try a color where all RGB |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1390 values have DELTA added. Return the allocated color in *PIXEL. |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1391 DISPLAY is the X display, CMAP is the colormap to operate on. |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1392 Value is non-zero if successful. */ |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1393 |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1394 int |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1395 x_alloc_lighter_color_for_widget (widget, display, cmap, pixel, factor, delta) |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1396 Widget widget; |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1397 Display *display; |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1398 Colormap cmap; |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1399 unsigned long *pixel; |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1400 double factor; |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1401 int delta; |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1402 { |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1403 struct frame *f = x_frame_of_widget (widget); |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1404 return x_alloc_lighter_color (f, display, cmap, pixel, factor, delta); |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1405 } |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1406 |
6b2ed557e09c
(x_alloc_lighter_color_for_widget): New function.
Miles Bader <miles@gnu.org>
parents:
31011
diff
changeset
|
1407 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1408 /* Structure specifying which arguments should be passed by Xt to |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1409 cvt_string_to_pixel. We want the widget's screen and colormap. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1410 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1411 static XtConvertArgRec cvt_string_to_pixel_args[] = |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1412 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1413 {XtWidgetBaseOffset, (XtPointer) XtOffset (Widget, core.screen), |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1414 sizeof (Screen *)}, |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1415 {XtWidgetBaseOffset, (XtPointer) XtOffset (Widget, core.colormap), |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1416 sizeof (Colormap)} |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1417 }; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1418 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1419 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1420 /* The address of this variable is returned by |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1421 cvt_string_to_pixel. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1422 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1423 static Pixel cvt_string_to_pixel_value; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1424 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1425 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1426 /* Convert a color name to a pixel color. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1427 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1428 DPY is the display we are working on. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1429 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1430 ARGS is an array of *NARGS XrmValue structures holding additional |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1431 information about the widget for which the conversion takes place. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1432 The contents of this array are determined by the specification |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1433 in cvt_string_to_pixel_args. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1434 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1435 FROM is a pointer to an XrmValue which points to the color name to |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1436 convert. TO is an XrmValue in which to return the pixel color. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1437 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1438 CLOSURE_RET is a pointer to user-data, in which we record if |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1439 we allocated the color or not. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1440 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1441 Value is True if successful, False otherwise. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1442 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1443 static Boolean |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1444 cvt_string_to_pixel (dpy, args, nargs, from, to, closure_ret) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1445 Display *dpy; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1446 XrmValue *args; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1447 Cardinal *nargs; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1448 XrmValue *from, *to; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1449 XtPointer *closure_ret; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1450 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1451 Screen *screen; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1452 Colormap cmap; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1453 Pixel pixel; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1454 String color_name; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1455 XColor color; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1456 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1457 if (*nargs != 2) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1458 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1459 XtAppWarningMsg (XtDisplayToApplicationContext (dpy), |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1460 "wrongParameters", "cvt_string_to_pixel", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1461 "XtToolkitError", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1462 "Screen and colormap args required", NULL, NULL); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1463 return False; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1464 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1465 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1466 screen = *(Screen **) args[0].addr; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1467 cmap = *(Colormap *) args[1].addr; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1468 color_name = (String) from->addr; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1469 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1470 if (strcmp (color_name, XtDefaultBackground) == 0) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1471 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1472 *closure_ret = (XtPointer) False; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1473 pixel = WhitePixelOfScreen (screen); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1474 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1475 else if (strcmp (color_name, XtDefaultForeground) == 0) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1476 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1477 *closure_ret = (XtPointer) False; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1478 pixel = BlackPixelOfScreen (screen); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1479 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1480 else if (XParseColor (dpy, cmap, color_name, &color) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1481 && x_alloc_nearest_color_1 (dpy, cmap, &color)) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1482 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1483 pixel = color.pixel; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1484 *closure_ret = (XtPointer) True; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1485 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1486 else |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1487 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1488 String params[1]; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1489 Cardinal nparams = 1; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1490 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1491 params[0] = color_name; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1492 XtAppWarningMsg (XtDisplayToApplicationContext (dpy), |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1493 "badValue", "cvt_string_to_pixel", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1494 "XtToolkitError", "Invalid color `%s'", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1495 params, &nparams); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1496 return False; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1497 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1498 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1499 if (to->addr != NULL) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1500 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1501 if (to->size < sizeof (Pixel)) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1502 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1503 to->size = sizeof (Pixel); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1504 return False; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1505 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1506 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1507 *(Pixel *) to->addr = pixel; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1508 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1509 else |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1510 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1511 cvt_string_to_pixel_value = pixel; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1512 to->addr = (XtPointer) &cvt_string_to_pixel_value; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1513 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1514 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1515 to->size = sizeof (Pixel); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1516 return True; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1517 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1518 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1519 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1520 /* Free a pixel color which was previously allocated via |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1521 cvt_string_to_pixel. This is registered as the destructor |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1522 for this type of resource via XtSetTypeConverter. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1523 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1524 APP is the application context in which we work. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1525 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1526 TO is a pointer to an XrmValue holding the color to free. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1527 CLOSURE is the value we stored in CLOSURE_RET for this color |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1528 in cvt_string_to_pixel. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1529 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1530 ARGS and NARGS are like for cvt_string_to_pixel. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1531 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1532 static void |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1533 cvt_pixel_dtor (app, to, closure, args, nargs) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1534 XtAppContext app; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1535 XrmValuePtr to; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1536 XtPointer closure; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1537 XrmValuePtr args; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1538 Cardinal *nargs; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1539 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1540 if (*nargs != 2) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1541 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1542 XtAppWarningMsg (app, "wrongParameters", "cvt_pixel_dtor", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1543 "XtToolkitError", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1544 "Screen and colormap arguments required", |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1545 NULL, NULL); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1546 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1547 else if (closure != NULL) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1548 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1549 /* We did allocate the pixel, so free it. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1550 Screen *screen = *(Screen **) args[0].addr; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1551 Colormap cmap = *(Colormap *) args[1].addr; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1552 x_free_dpy_colors (DisplayOfScreen (screen), screen, cmap, |
38255
9ec233999747
* xterm.c (cvt_pixel_dtor): Call x_free_dpy_colors with the
Gerd Moellmann <gerd@gnu.org>
parents:
38246
diff
changeset
|
1553 (Pixel *) to->addr, 1); |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1554 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1555 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1556 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1557 |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1558 #endif /* USE_X_TOOLKIT */ |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1559 |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1560 |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1561 /* Value is an array of XColor structures for the contents of the |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1562 color map of display DPY. Set *NCELLS to the size of the array. |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1563 Note that this probably shouldn't be called for large color maps, |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1564 say a 24-bit TrueColor map. */ |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1565 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1566 static const XColor * |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1567 x_color_cells (dpy, ncells) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1568 Display *dpy; |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1569 int *ncells; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1570 { |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1571 struct x_display_info *dpyinfo = x_display_info_for_display (dpy); |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1572 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1573 if (dpyinfo->color_cells == NULL) |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1574 { |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1575 Screen *screen = dpyinfo->screen; |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1576 int i; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1577 |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1578 dpyinfo->ncolor_cells |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1579 = XDisplayCells (dpy, XScreenNumberOfScreen (screen)); |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1580 dpyinfo->color_cells |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1581 = (XColor *) xmalloc (dpyinfo->ncolor_cells |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1582 * sizeof *dpyinfo->color_cells); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1583 |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1584 for (i = 0; i < dpyinfo->ncolor_cells; ++i) |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1585 dpyinfo->color_cells[i].pixel = i; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1586 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1587 XQueryColors (dpy, dpyinfo->cmap, |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1588 dpyinfo->color_cells, dpyinfo->ncolor_cells); |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1589 } |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1590 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1591 *ncells = dpyinfo->ncolor_cells; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1592 return dpyinfo->color_cells; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1593 } |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1594 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1595 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1596 /* On frame F, translate pixel colors to RGB values for the NCOLORS |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1597 colors in COLORS. Use cached information, if available. */ |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1598 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1599 void |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1600 x_query_colors (f, colors, ncolors) |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1601 struct frame *f; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1602 XColor *colors; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1603 int ncolors; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1604 { |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1605 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1606 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1607 if (dpyinfo->color_cells) |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1608 { |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1609 int i; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1610 for (i = 0; i < ncolors; ++i) |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1611 { |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1612 unsigned long pixel = colors[i].pixel; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1613 xassert (pixel < dpyinfo->ncolor_cells); |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1614 xassert (dpyinfo->color_cells[pixel].pixel == pixel); |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1615 colors[i] = dpyinfo->color_cells[pixel]; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1616 } |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1617 } |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1618 else |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1619 XQueryColors (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), colors, ncolors); |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1620 } |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1621 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1622 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1623 /* On frame F, translate pixel color to RGB values for the color in |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1624 COLOR. Use cached information, if available. */ |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1625 |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1626 void |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1627 x_query_color (f, color) |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1628 struct frame *f; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1629 XColor *color; |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1630 { |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1631 x_query_colors (f, color, 1); |
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1632 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1633 |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1634 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1635 /* Allocate the color COLOR->pixel on DISPLAY, colormap CMAP. If an |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1636 exact match can't be allocated, try the nearest color available. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1637 Value is non-zero if successful. Set *COLOR to the color |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1638 allocated. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1639 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1640 static int |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1641 x_alloc_nearest_color_1 (dpy, cmap, color) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1642 Display *dpy; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1643 Colormap cmap; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1644 XColor *color; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1645 { |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1646 int rc; |
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1647 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1648 rc = XAllocColor (dpy, cmap, color); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1649 if (rc == 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1650 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1651 /* If we got to this point, the colormap is full, so we're going |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1652 to try to get the next closest color. The algorithm used is |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1653 a least-squares matching, which is what X uses for closest |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1654 color matching with StaticColor visuals. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1655 int nearest, i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1656 unsigned long nearest_delta = ~0; |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1657 int ncells; |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1658 const XColor *cells = x_color_cells (dpy, &ncells); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1659 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1660 for (nearest = i = 0; i < ncells; ++i) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1661 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1662 long dred = (color->red >> 8) - (cells[i].red >> 8); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1663 long dgreen = (color->green >> 8) - (cells[i].green >> 8); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1664 long dblue = (color->blue >> 8) - (cells[i].blue >> 8); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1665 unsigned long delta = dred * dred + dgreen * dgreen + dblue * dblue; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1666 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1667 if (delta < nearest_delta) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1668 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1669 nearest = i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1670 nearest_delta = delta; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1671 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1672 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1673 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1674 color->red = cells[nearest].red; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1675 color->green = cells[nearest].green; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1676 color->blue = cells[nearest].blue; |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1677 rc = XAllocColor (dpy, cmap, color); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1678 } |
33062
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1679 else |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1680 { |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1681 /* If allocation succeeded, and the allocated pixel color is not |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1682 equal to a cached pixel color recorded earlier, there was a |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1683 change in the colormap, so clear the color cache. */ |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1684 struct x_display_info *dpyinfo = x_display_info_for_display (dpy); |
33062
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1685 XColor *cached_color; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1686 |
33062
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1687 if (dpyinfo->color_cells |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1688 && (cached_color = &dpyinfo->color_cells[color->pixel], |
33064
9de33d895c6c
(x_alloc_nearest_color): Fix last change to compare
Gerd Moellmann <gerd@gnu.org>
parents:
33062
diff
changeset
|
1689 (cached_color->red != color->red |
9de33d895c6c
(x_alloc_nearest_color): Fix last change to compare
Gerd Moellmann <gerd@gnu.org>
parents:
33062
diff
changeset
|
1690 || cached_color->blue != color->blue |
9de33d895c6c
(x_alloc_nearest_color): Fix last change to compare
Gerd Moellmann <gerd@gnu.org>
parents:
33062
diff
changeset
|
1691 || cached_color->green != color->green))) |
33062
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1692 { |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1693 xfree (dpyinfo->color_cells); |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1694 dpyinfo->color_cells = NULL; |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1695 dpyinfo->ncolor_cells = 0; |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1696 } |
c236bd0d44c3
(x_alloc_nearest_color): If allocation succeeds, and
Gerd Moellmann <gerd@gnu.org>
parents:
32988
diff
changeset
|
1697 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1698 |
28356
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1699 #ifdef DEBUG_X_COLORS |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1700 if (rc) |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1701 register_color (color->pixel); |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1702 #endif /* DEBUG_X_COLORS */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1703 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1704 return rc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1705 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1706 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1707 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1708 /* Allocate the color COLOR->pixel on frame F, colormap CMAP. If an |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1709 exact match can't be allocated, try the nearest color available. |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1710 Value is non-zero if successful. Set *COLOR to the color |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1711 allocated. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1712 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1713 int |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1714 x_alloc_nearest_color (f, cmap, color) |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1715 struct frame *f; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1716 Colormap cmap; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1717 XColor *color; |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1718 { |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1719 gamma_correct (f, color); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1720 return x_alloc_nearest_color_1 (FRAME_X_DISPLAY (f), cmap, color); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1721 } |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1722 |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
1723 |
28356
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1724 /* Allocate color PIXEL on frame F. PIXEL must already be allocated. |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1725 It's necessary to do this instead of just using PIXEL directly to |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1726 get color reference counts right. */ |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1727 |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1728 unsigned long |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1729 x_copy_color (f, pixel) |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1730 struct frame *f; |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1731 unsigned long pixel; |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1732 { |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1733 XColor color; |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1734 |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1735 color.pixel = pixel; |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1736 BLOCK_INPUT; |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1737 x_query_color (f, &color); |
28356
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1738 XAllocColor (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), &color); |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1739 UNBLOCK_INPUT; |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1740 #ifdef DEBUG_X_COLORS |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1741 register_color (pixel); |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1742 #endif |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1743 return color.pixel; |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1744 } |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1745 |
c94ec7e56746
(x_copy_color): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
28321
diff
changeset
|
1746 |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1747 /* Allocate color PIXEL on display DPY. PIXEL must already be allocated. |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1748 It's necessary to do this instead of just using PIXEL directly to |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1749 get color reference counts right. */ |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1750 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1751 unsigned long |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1752 x_copy_dpy_color (dpy, cmap, pixel) |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1753 Display *dpy; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1754 Colormap cmap; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1755 unsigned long pixel; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1756 { |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1757 XColor color; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1758 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1759 color.pixel = pixel; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1760 BLOCK_INPUT; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1761 XQueryColor (dpy, cmap, &color); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1762 XAllocColor (dpy, cmap, &color); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1763 UNBLOCK_INPUT; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1764 #ifdef DEBUG_X_COLORS |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1765 register_color (pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1766 #endif |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1767 return color.pixel; |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1768 } |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1769 |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
1770 |
33456
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1771 /* Brightness beyond which a color won't have its highlight brightness |
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1772 boosted. |
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1773 |
33449
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1774 Nominally, highlight colors for `3d' faces are calculated by |
33456
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1775 brightening an object's color by a constant scale factor, but this |
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1776 doesn't yield good results for dark colors, so for colors who's |
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1777 brightness is less than this value (on a scale of 0-65535) have an |
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1778 use an additional additive factor. |
33449
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1779 |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1780 The value here is set so that the default menu-bar/mode-line color |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1781 (grey75) will not have its highlights changed at all. */ |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1782 #define HIGHLIGHT_COLOR_DARK_BOOST_LIMIT 48000 |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1783 |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1784 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1785 /* Allocate a color which is lighter or darker than *PIXEL by FACTOR |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1786 or DELTA. Try a color with RGB values multiplied by FACTOR first. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1787 If this produces the same color as PIXEL, try a color where all RGB |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1788 values have DELTA added. Return the allocated color in *PIXEL. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1789 DISPLAY is the X display, CMAP is the colormap to operate on. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1790 Value is non-zero if successful. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1791 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1792 static int |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1793 x_alloc_lighter_color (f, display, cmap, pixel, factor, delta) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1794 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1795 Display *display; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1796 Colormap cmap; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1797 unsigned long *pixel; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25921
diff
changeset
|
1798 double factor; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1799 int delta; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1800 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1801 XColor color, new; |
33449
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1802 long bright; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1803 int success_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1804 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1805 /* Get RGB color values. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1806 color.pixel = *pixel; |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
1807 x_query_color (f, &color); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1808 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1809 /* Change RGB values by specified FACTOR. Avoid overflow! */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1810 xassert (factor >= 0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1811 new.red = min (0xffff, factor * color.red); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1812 new.green = min (0xffff, factor * color.green); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1813 new.blue = min (0xffff, factor * color.blue); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1814 |
33456
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1815 /* Calculate brightness of COLOR. */ |
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1816 bright = (2 * color.red + 3 * color.green + color.blue) / 6; |
33449
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1817 |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1818 /* We only boost colors that are darker than |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1819 HIGHLIGHT_COLOR_DARK_BOOST_LIMIT. */ |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1820 if (bright < HIGHLIGHT_COLOR_DARK_BOOST_LIMIT) |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1821 /* Make an additive adjustment to NEW, because it's dark enough so |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1822 that scaling by FACTOR alone isn't enough. */ |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1823 { |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1824 /* How far below the limit this color is (0 - 1, 1 being darker). */ |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1825 double dimness = 1 - (double)bright / HIGHLIGHT_COLOR_DARK_BOOST_LIMIT; |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1826 /* The additive adjustment. */ |
33456
d8d4ecfa24fd
(x_alloc_lighter_color): Use real brightness calculation.
Miles Bader <miles@gnu.org>
parents:
33449
diff
changeset
|
1827 int min_delta = delta * dimness * factor / 2; |
33449
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1828 |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1829 if (factor < 1) |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1830 { |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1831 new.red = max (0, new.red - min_delta); |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1832 new.green = max (0, new.green - min_delta); |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1833 new.blue = max (0, new.blue - min_delta); |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1834 } |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1835 else |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1836 { |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1837 new.red = min (0xffff, min_delta + new.red); |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1838 new.green = min (0xffff, min_delta + new.green); |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1839 new.blue = min (0xffff, min_delta + new.blue); |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1840 } |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1841 } |
41fcaa0b864b
(x_alloc_lighter_color): Include an additive component too for dark
Miles Bader <miles@gnu.org>
parents:
33303
diff
changeset
|
1842 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1843 /* Try to allocate the color. */ |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1844 success_p = x_alloc_nearest_color (f, cmap, &new); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1845 if (success_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1846 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1847 if (new.pixel == *pixel) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1848 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1849 /* If we end up with the same color as before, try adding |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1850 delta to the RGB values. */ |
27962
048184bb751e
(x_alloc_lighter_color, x_setup_relief_color): Use
Gerd Moellmann <gerd@gnu.org>
parents:
27857
diff
changeset
|
1851 x_free_colors (f, &new.pixel, 1); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1852 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1853 new.red = min (0xffff, delta + color.red); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1854 new.green = min (0xffff, delta + color.green); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1855 new.blue = min (0xffff, delta + color.blue); |
25529
7ae6423812ae
(XTset_vertical_scroll_bar): Block input when clearing
Gerd Moellmann <gerd@gnu.org>
parents:
25512
diff
changeset
|
1856 success_p = x_alloc_nearest_color (f, cmap, &new); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1857 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1858 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1859 success_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1860 *pixel = new.pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1861 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1862 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1863 return success_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1864 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1865 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1866 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1867 /* Set up the foreground color for drawing relief lines of glyph |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1868 string S. RELIEF is a pointer to a struct relief containing the GC |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1869 with which lines will be drawn. Use a color that is FACTOR or |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1870 DELTA lighter or darker than the relief's background which is found |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1871 in S->f->output_data.x->relief_background. If such a color cannot |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1872 be allocated, use DEFAULT_PIXEL, instead. */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1873 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1874 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1875 x_setup_relief_color (f, relief, factor, delta, default_pixel) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1876 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1877 struct relief *relief; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25921
diff
changeset
|
1878 double factor; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1879 int delta; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1880 unsigned long default_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1881 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1882 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1883 struct x_output *di = f->output_data.x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1884 unsigned long mask = GCForeground | GCLineWidth | GCGraphicsExposures; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1885 unsigned long pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1886 unsigned long background = di->relief_background; |
27985
4ba445af210b
(x_term_init): Set Colormap member of x_display_info
Gerd Moellmann <gerd@gnu.org>
parents:
27974
diff
changeset
|
1887 Colormap cmap = FRAME_X_COLORMAP (f); |
25091
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1888 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1889 Display *dpy = FRAME_X_DISPLAY (f); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1890 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1891 xgcv.graphics_exposures = False; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1892 xgcv.line_width = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1893 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1894 /* Free previously allocated color. The color cell will be reused |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1895 when it has been freed as many times as it was allocated, so this |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1896 doesn't affect faces using the same colors. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1897 if (relief->gc |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1898 && relief->allocated_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1899 { |
27962
048184bb751e
(x_alloc_lighter_color, x_setup_relief_color): Use
Gerd Moellmann <gerd@gnu.org>
parents:
27857
diff
changeset
|
1900 x_free_colors (f, &relief->pixel, 1); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1901 relief->allocated_p = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1902 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1903 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1904 /* Allocate new color. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1905 xgcv.foreground = default_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1906 pixel = background; |
25091
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1907 if (dpyinfo->n_planes != 1 |
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1908 && x_alloc_lighter_color (f, dpy, cmap, &pixel, factor, delta)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1909 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1910 relief->allocated_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1911 xgcv.foreground = relief->pixel = pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1912 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1913 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1914 if (relief->gc == 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1915 { |
25091
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1916 xgcv.stipple = dpyinfo->gray; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1917 mask |= GCStipple; |
25091
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1918 relief->gc = XCreateGC (dpy, FRAME_X_WINDOW (f), mask, &xgcv); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1919 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1920 else |
25091
c3dc74005d22
(x_set_toolkit_scroll_bar_thumb): Don't call
Gerd Moellmann <gerd@gnu.org>
parents:
25085
diff
changeset
|
1921 XChangeGC (dpy, relief->gc, mask, &xgcv); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1922 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1923 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1924 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1925 /* Set up colors for the relief lines around glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1926 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1927 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1928 x_setup_relief_colors (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1929 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1930 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1931 struct x_output *di = s->f->output_data.x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1932 unsigned long color; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1933 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1934 if (s->face->use_box_color_for_shadows_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1935 color = s->face->box_color; |
40265
44df655be97a
(x_setup_relief_colors): Use `IMAGE_BACKGROUND' and
Miles Bader <miles@gnu.org>
parents:
40259
diff
changeset
|
1936 else if (s->first_glyph->type == IMAGE_GLYPH |
42376
0f408d016a15
(x_setup_relief_colors): Don't compute an image's
Gerd Moellmann <gerd@gnu.org>
parents:
42374
diff
changeset
|
1937 && s->img->pixmap |
40265
44df655be97a
(x_setup_relief_colors): Use `IMAGE_BACKGROUND' and
Miles Bader <miles@gnu.org>
parents:
40259
diff
changeset
|
1938 && !IMAGE_BACKGROUND_TRANSPARENT (s->img, s->f, 0)) |
44df655be97a
(x_setup_relief_colors): Use `IMAGE_BACKGROUND' and
Miles Bader <miles@gnu.org>
parents:
40259
diff
changeset
|
1939 color = IMAGE_BACKGROUND (s->img, s->f, 0); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1940 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1941 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1942 XGCValues xgcv; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1943 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1944 /* Get the background color of the face. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1945 XGetGCValues (s->display, s->gc, GCBackground, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1946 color = xgcv.background; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1947 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1948 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1949 if (di->white_relief.gc == 0 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1950 || color != di->relief_background) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1951 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1952 di->relief_background = color; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1953 x_setup_relief_color (s->f, &di->white_relief, 1.2, 0x8000, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1954 WHITE_PIX_DEFAULT (s->f)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1955 x_setup_relief_color (s->f, &di->black_relief, 0.6, 0x4000, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1956 BLACK_PIX_DEFAULT (s->f)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1957 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1958 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1959 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1960 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1961 /* Draw a relief on frame F inside the rectangle given by LEFT_X, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1962 TOP_Y, RIGHT_X, and BOTTOM_Y. WIDTH is the thickness of the relief |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1963 to draw, it must be >= 0. RAISED_P non-zero means draw a raised |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1964 relief. LEFT_P non-zero means draw a relief on the left side of |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1965 the rectangle. RIGHT_P non-zero means draw a relief on the right |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1966 side of the rectangle. CLIP_RECT is the clipping rectangle to use |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1967 when drawing. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1968 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1969 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1970 x_draw_relief_rect (f, left_x, top_y, right_x, bottom_y, width, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1971 raised_p, left_p, right_p, clip_rect) |
771 | 1972 struct frame *f; |
48330
e5d539ae9468
(x_draw_relief_rect, x_draw_box_rect, x_update_cursor):
Dave Love <fx@gnu.org>
parents:
48169
diff
changeset
|
1973 int left_x, top_y, right_x, bottom_y, width, left_p, right_p, raised_p; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1974 XRectangle *clip_rect; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1975 { |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
1976 Display *dpy = FRAME_X_DISPLAY (f); |
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
1977 Window window = FRAME_X_WINDOW (f); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1978 int i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1979 GC gc; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
1980 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1981 if (raised_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1982 gc = f->output_data.x->white_relief.gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1983 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1984 gc = f->output_data.x->black_relief.gc; |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
1985 XSetClipRectangles (dpy, gc, 0, 0, clip_rect, 1, Unsorted); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1986 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1987 /* Top. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1988 for (i = 0; i < width; ++i) |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
1989 XDrawLine (dpy, window, gc, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1990 left_x + i * left_p, top_y + i, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1991 right_x + 1 - i * right_p, top_y + i); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1992 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1993 /* Left. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1994 if (left_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1995 for (i = 0; i < width; ++i) |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
1996 XDrawLine (dpy, window, gc, |
37033
fe7885cc9458
(x_draw_relief_rect): Extend left shadow to the
Gerd Moellmann <gerd@gnu.org>
parents:
37031
diff
changeset
|
1997 left_x + i, top_y + i, left_x + i, bottom_y - i + 1); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
1998 |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
1999 XSetClipMask (dpy, gc, None); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2000 if (raised_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2001 gc = f->output_data.x->black_relief.gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2002 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2003 gc = f->output_data.x->white_relief.gc; |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
2004 XSetClipRectangles (dpy, gc, 0, 0, clip_rect, 1, Unsorted); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2005 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2006 /* Bottom. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2007 for (i = 0; i < width; ++i) |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
2008 XDrawLine (dpy, window, gc, |
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
2009 left_x + i * left_p, bottom_y - i, |
40499
55065421f9e7
(x_draw_relief_rect): Correct bottom relief by 1 pixel.
Gerd Moellmann <gerd@gnu.org>
parents:
40446
diff
changeset
|
2010 right_x + 1 - i * right_p, bottom_y - i); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2011 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2012 /* Right. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2013 if (right_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2014 for (i = 0; i < width; ++i) |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
2015 XDrawLine (dpy, window, gc, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2016 right_x - i, top_y + i + 1, right_x - i, bottom_y - i); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2017 |
39474
5f9f7d59fd79
(x_draw_relief_rect): Draw bottom relief 1 pixel more
Gerd Moellmann <gerd@gnu.org>
parents:
39434
diff
changeset
|
2018 XSetClipMask (dpy, gc, None); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2019 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2020 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2021 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2022 /* Draw a box on frame F inside the rectangle given by LEFT_X, TOP_Y, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2023 RIGHT_X, and BOTTOM_Y. WIDTH is the thickness of the lines to |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2024 draw, it must be >= 0. LEFT_P non-zero means draw a line on the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2025 left side of the rectangle. RIGHT_P non-zero means draw a line |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2026 on the right side of the rectangle. CLIP_RECT is the clipping |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2027 rectangle to use when drawing. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2028 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2029 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2030 x_draw_box_rect (s, left_x, top_y, right_x, bottom_y, width, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2031 left_p, right_p, clip_rect) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2032 struct glyph_string *s; |
48330
e5d539ae9468
(x_draw_relief_rect, x_draw_box_rect, x_update_cursor):
Dave Love <fx@gnu.org>
parents:
48169
diff
changeset
|
2033 int left_x, top_y, right_x, bottom_y, width, left_p, right_p; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2034 XRectangle *clip_rect; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2035 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2036 XGCValues xgcv; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2037 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2038 XGetGCValues (s->display, s->gc, GCForeground, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2039 XSetForeground (s->display, s->gc, s->face->box_color); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2040 XSetClipRectangles (s->display, s->gc, 0, 0, clip_rect, 1, Unsorted); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2041 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2042 /* Top. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2043 XFillRectangle (s->display, s->window, s->gc, |
32513
545db232e60c
(x_draw_box_rect): Fix the calculation of width and height for
Kenichi Handa <handa@m17n.org>
parents:
32401
diff
changeset
|
2044 left_x, top_y, right_x - left_x + 1, width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2045 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2046 /* Left. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2047 if (left_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2048 XFillRectangle (s->display, s->window, s->gc, |
32513
545db232e60c
(x_draw_box_rect): Fix the calculation of width and height for
Kenichi Handa <handa@m17n.org>
parents:
32401
diff
changeset
|
2049 left_x, top_y, width, bottom_y - top_y + 1); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2050 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2051 /* Bottom. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2052 XFillRectangle (s->display, s->window, s->gc, |
32513
545db232e60c
(x_draw_box_rect): Fix the calculation of width and height for
Kenichi Handa <handa@m17n.org>
parents:
32401
diff
changeset
|
2053 left_x, bottom_y - width + 1, right_x - left_x + 1, width); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2054 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2055 /* Right. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2056 if (right_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2057 XFillRectangle (s->display, s->window, s->gc, |
32513
545db232e60c
(x_draw_box_rect): Fix the calculation of width and height for
Kenichi Handa <handa@m17n.org>
parents:
32401
diff
changeset
|
2058 right_x - width + 1, top_y, width, bottom_y - top_y + 1); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2059 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2060 XSetForeground (s->display, s->gc, xgcv.foreground); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2061 XSetClipMask (s->display, s->gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2062 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2063 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2064 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2065 /* Draw a box around glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2066 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2067 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2068 x_draw_glyph_string_box (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2069 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2070 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2071 int width, left_x, right_x, top_y, bottom_y, last_x, raised_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2072 int left_p, right_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2073 struct glyph *last_glyph; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2074 XRectangle clip_rect; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2075 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2076 last_x = window_box_right (s->w, s->area); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2077 if (s->row->full_width_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2078 && !s->w->pseudo_window_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2079 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2080 last_x += WINDOW_RIGHT_SCROLL_BAR_AREA_WIDTH (s->w); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2081 if (s->area != RIGHT_MARGIN_AREA |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2082 || WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (s->w)) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2083 last_x += WINDOW_RIGHT_FRINGE_WIDTH (s->w); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2084 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2085 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2086 /* The glyph that may have a right box line. */ |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2087 last_glyph = (s->cmp || s->img |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2088 ? s->first_glyph |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2089 : s->first_glyph + s->nchars - 1); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2090 |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2091 width = abs (s->face->box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2092 raised_p = s->face->box == FACE_RAISED_BOX; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2093 left_x = s->x; |
36795
e7722a221c28
(x_draw_glyph_string_box): Don't draw a full-width
Gerd Moellmann <gerd@gnu.org>
parents:
36776
diff
changeset
|
2094 right_x = (s->row->full_width_p && s->extends_to_end_of_line_p |
e7722a221c28
(x_draw_glyph_string_box): Don't draw a full-width
Gerd Moellmann <gerd@gnu.org>
parents:
36776
diff
changeset
|
2095 ? last_x - 1 |
e7722a221c28
(x_draw_glyph_string_box): Don't draw a full-width
Gerd Moellmann <gerd@gnu.org>
parents:
36776
diff
changeset
|
2096 : min (last_x, s->x + s->background_width) - 1); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2097 top_y = s->y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2098 bottom_y = top_y + s->height - 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2099 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2100 left_p = (s->first_glyph->left_box_line_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2101 || (s->hl == DRAW_MOUSE_FACE |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2102 && (s->prev == NULL |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2103 || s->prev->hl != s->hl))); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2104 right_p = (last_glyph->right_box_line_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2105 || (s->hl == DRAW_MOUSE_FACE |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2106 && (s->next == NULL |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2107 || s->next->hl != s->hl))); |
40499
55065421f9e7
(x_draw_relief_rect): Correct bottom relief by 1 pixel.
Gerd Moellmann <gerd@gnu.org>
parents:
40446
diff
changeset
|
2108 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2109 get_glyph_string_clip_rect (s, &clip_rect); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2110 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2111 if (s->face->box == FACE_SIMPLE_BOX) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2112 x_draw_box_rect (s, left_x, top_y, right_x, bottom_y, width, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2113 left_p, right_p, &clip_rect); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2114 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2115 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2116 x_setup_relief_colors (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2117 x_draw_relief_rect (s->f, left_x, top_y, right_x, bottom_y, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2118 width, raised_p, left_p, right_p, &clip_rect); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2119 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2120 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2121 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2122 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2123 /* Draw foreground of image glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2124 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2125 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2126 x_draw_image_foreground (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2127 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2128 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2129 int x; |
28785
796eafcfc070
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
28686
diff
changeset
|
2130 int y = s->ybase - image_ascent (s->img, s->face); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2131 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2132 /* If first glyph of S has a left box line, start drawing it to the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2133 right of that line. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2134 if (s->face->box != FACE_NO_BOX |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2135 && s->first_glyph->left_box_line_p) |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2136 x = s->x + abs (s->face->box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2137 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2138 x = s->x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2139 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2140 /* If there is a margin around the image, adjust x- and y-position |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2141 by that margin. */ |
35276
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2142 x += s->img->hmargin; |
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2143 y += s->img->vmargin; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2144 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2145 if (s->img->pixmap) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2146 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2147 if (s->img->mask) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2148 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2149 /* We can't set both a clip mask and use XSetClipRectangles |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2150 because the latter also sets a clip mask. We also can't |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2151 trust on the shape extension to be available |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2152 (XShapeCombineRegion). So, compute the rectangle to draw |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2153 manually. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2154 unsigned long mask = (GCClipMask | GCClipXOrigin | GCClipYOrigin |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2155 | GCFunction); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2156 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2157 XRectangle clip_rect, image_rect, r; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2158 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2159 xgcv.clip_mask = s->img->mask; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2160 xgcv.clip_x_origin = x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2161 xgcv.clip_y_origin = y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2162 xgcv.function = GXcopy; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2163 XChangeGC (s->display, s->gc, mask, &xgcv); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2164 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2165 get_glyph_string_clip_rect (s, &clip_rect); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2166 image_rect.x = x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2167 image_rect.y = y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2168 image_rect.width = s->img->width; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2169 image_rect.height = s->img->height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2170 if (x_intersect_rectangles (&clip_rect, &image_rect, &r)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2171 XCopyArea (s->display, s->img->pixmap, s->window, s->gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2172 r.x - x, r.y - y, r.width, r.height, r.x, r.y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2173 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2174 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2175 { |
30653
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2176 XRectangle clip_rect, image_rect, r; |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2177 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2178 get_glyph_string_clip_rect (s, &clip_rect); |
30653
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2179 image_rect.x = x; |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2180 image_rect.y = y; |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2181 image_rect.width = s->img->width; |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2182 image_rect.height = s->img->height; |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2183 if (x_intersect_rectangles (&clip_rect, &image_rect, &r)) |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2184 XCopyArea (s->display, s->img->pixmap, s->window, s->gc, |
319c3bad8ada
(x_draw_image_foreground): Avoid drawing outside
Gerd Moellmann <gerd@gnu.org>
parents:
30371
diff
changeset
|
2185 r.x - x, r.y - y, r.width, r.height, r.x, r.y); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2186 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2187 /* When the image has a mask, we can expect that at |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2188 least part of a mouse highlight or a block cursor will |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2189 be visible. If the image doesn't have a mask, make |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2190 a block cursor visible by drawing a rectangle around |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2191 the image. I believe it's looking better if we do |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2192 nothing here for mouse-face. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2193 if (s->hl == DRAW_CURSOR) |
45197
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2194 { |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2195 int r = s->img->relief; |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2196 if (r < 0) r = -r; |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2197 XDrawRectangle (s->display, s->window, s->gc, x - r, y - r, |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2198 s->img->width + r*2 - 1, s->img->height + r*2 - 1); |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2199 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2200 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2201 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2202 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2203 /* Draw a rectangle if image could not be loaded. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2204 XDrawRectangle (s->display, s->window, s->gc, x, y, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2205 s->img->width - 1, s->img->height - 1); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2206 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2207 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2208 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2209 /* Draw a relief around the image glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2210 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2211 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2212 x_draw_image_relief (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2213 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2214 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2215 int x0, y0, x1, y1, thick, raised_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2216 XRectangle r; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2217 int x; |
28785
796eafcfc070
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
28686
diff
changeset
|
2218 int y = s->ybase - image_ascent (s->img, s->face); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2219 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2220 /* If first glyph of S has a left box line, start drawing it to the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2221 right of that line. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2222 if (s->face->box != FACE_NO_BOX |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2223 && s->first_glyph->left_box_line_p) |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2224 x = s->x + abs (s->face->box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2225 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2226 x = s->x; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2227 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2228 /* If there is a margin around the image, adjust x- and y-position |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2229 by that margin. */ |
35276
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2230 x += s->img->hmargin; |
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2231 y += s->img->vmargin; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2232 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2233 if (s->hl == DRAW_IMAGE_SUNKEN |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2234 || s->hl == DRAW_IMAGE_RAISED) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2235 { |
41791
fcab0e888c5c
(x_draw_image_relief): Use predefined macro instead of constant when the
Pavel Janík <Pavel@Janik.cz>
parents:
41788
diff
changeset
|
2236 thick = tool_bar_button_relief >= 0 ? tool_bar_button_relief : DEFAULT_TOOL_BAR_BUTTON_RELIEF; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2237 raised_p = s->hl == DRAW_IMAGE_RAISED; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2238 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2239 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2240 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2241 thick = abs (s->img->relief); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2242 raised_p = s->img->relief > 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2243 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2244 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2245 x0 = x - thick; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2246 y0 = y - thick; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2247 x1 = x + s->img->width + thick - 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2248 y1 = y + s->img->height + thick - 1; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2249 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2250 x_setup_relief_colors (s); |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2251 get_glyph_string_clip_rect (s, &r); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2252 x_draw_relief_rect (s->f, x0, y0, x1, y1, thick, raised_p, 1, 1, &r); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2253 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2254 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2255 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2256 /* Draw the foreground of image glyph string S to PIXMAP. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2257 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2258 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2259 x_draw_image_foreground_1 (s, pixmap) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2260 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2261 Pixmap pixmap; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2262 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2263 int x; |
28785
796eafcfc070
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
28686
diff
changeset
|
2264 int y = s->ybase - s->y - image_ascent (s->img, s->face); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2265 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2266 /* If first glyph of S has a left box line, start drawing it to the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2267 right of that line. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2268 if (s->face->box != FACE_NO_BOX |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2269 && s->first_glyph->left_box_line_p) |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2270 x = abs (s->face->box_line_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2271 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2272 x = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2273 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2274 /* If there is a margin around the image, adjust x- and y-position |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2275 by that margin. */ |
35276
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2276 x += s->img->hmargin; |
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2277 y += s->img->vmargin; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2278 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2279 if (s->img->pixmap) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2280 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2281 if (s->img->mask) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2282 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2283 /* We can't set both a clip mask and use XSetClipRectangles |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2284 because the latter also sets a clip mask. We also can't |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2285 trust on the shape extension to be available |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2286 (XShapeCombineRegion). So, compute the rectangle to draw |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2287 manually. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2288 unsigned long mask = (GCClipMask | GCClipXOrigin | GCClipYOrigin |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2289 | GCFunction); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2290 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2291 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2292 xgcv.clip_mask = s->img->mask; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2293 xgcv.clip_x_origin = x; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2294 xgcv.clip_y_origin = y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2295 xgcv.function = GXcopy; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2296 XChangeGC (s->display, s->gc, mask, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2297 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2298 XCopyArea (s->display, s->img->pixmap, pixmap, s->gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2299 0, 0, s->img->width, s->img->height, x, y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2300 XSetClipMask (s->display, s->gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2301 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2302 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2303 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2304 XCopyArea (s->display, s->img->pixmap, pixmap, s->gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2305 0, 0, s->img->width, s->img->height, x, y); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2306 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2307 /* When the image has a mask, we can expect that at |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2308 least part of a mouse highlight or a block cursor will |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2309 be visible. If the image doesn't have a mask, make |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2310 a block cursor visible by drawing a rectangle around |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2311 the image. I believe it's looking better if we do |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2312 nothing here for mouse-face. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2313 if (s->hl == DRAW_CURSOR) |
45197
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2314 { |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2315 int r = s->img->relief; |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2316 if (r < 0) r = -r; |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2317 XDrawRectangle (s->display, s->window, s->gc, x - r, y - r, |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2318 s->img->width + r*2 - 1, s->img->height + r*2 - 1); |
0b6da8b7d7ac
(x_draw_image_foreground, x_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44974
diff
changeset
|
2319 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2320 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2321 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2322 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2323 /* Draw a rectangle if image could not be loaded. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2324 XDrawRectangle (s->display, pixmap, s->gc, x, y, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2325 s->img->width - 1, s->img->height - 1); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2326 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2327 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2328 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2329 /* Draw part of the background of glyph string S. X, Y, W, and H |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2330 give the rectangle to draw. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2331 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2332 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2333 x_draw_glyph_string_bg_rect (s, x, y, w, h) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2334 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2335 int x, y, w, h; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2336 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2337 if (s->stippled_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2338 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2339 /* Fill background with a stipple pattern. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2340 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2341 XFillRectangle (s->display, s->window, s->gc, x, y, w, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2342 XSetFillStyle (s->display, s->gc, FillSolid); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2343 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2344 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2345 x_clear_glyph_string_rect (s, x, y, w, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2346 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2347 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2348 |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2349 /* Draw image glyph string S. |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2350 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2351 s->y |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2352 s->x +------------------------- |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2353 | s->face->box |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2354 | |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2355 | +------------------------- |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2356 | | s->img->margin |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2357 | | |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2358 | | +------------------- |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2359 | | | the image |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2360 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2361 */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2362 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2363 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2364 x_draw_image_glyph_string (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2365 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2366 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2367 int x, y; |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2368 int box_line_hwidth = abs (s->face->box_line_width); |
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2369 int box_line_vwidth = max (s->face->box_line_width, 0); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2370 int height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2371 Pixmap pixmap = None; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2372 |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2373 height = s->height - 2 * box_line_vwidth; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2374 |
49322 | 2375 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2376 /* Fill background with face under the image. Do it only if row is |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2377 taller than image or if image has a clip mask to reduce |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2378 flickering. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2379 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2380 if (height > s->img->height |
35276
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2381 || s->img->hmargin |
008aea836cbc
(x_produce_image_glyph, x_draw_image_foreground)
Gerd Moellmann <gerd@gnu.org>
parents:
35272
diff
changeset
|
2382 || s->img->vmargin |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2383 || s->img->mask |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2384 || s->img->pixmap == 0 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2385 || s->width != s->background_width) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2386 { |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2387 if (box_line_hwidth && s->first_glyph->left_box_line_p) |
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2388 x = s->x + box_line_hwidth; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2389 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2390 x = s->x; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2391 |
36005
58a1ada9bf57
(x_produce_image_glyph): Pay attention to the case that
Kenichi Handa <handa@m17n.org>
parents:
35897
diff
changeset
|
2392 y = s->y + box_line_vwidth; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2393 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2394 if (s->img->mask) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2395 { |
31694
97c48afc4c5a
(x_draw_image_glyph_string): Remove a comment describing
Gerd Moellmann <gerd@gnu.org>
parents:
31614
diff
changeset
|
2396 /* Create a pixmap as large as the glyph string. Fill it |
97c48afc4c5a
(x_draw_image_glyph_string): Remove a comment describing
Gerd Moellmann <gerd@gnu.org>
parents:
31614
diff
changeset
|
2397 with the background color. Copy the image to it, using |
97c48afc4c5a
(x_draw_image_glyph_string): Remove a comment describing
Gerd Moellmann <gerd@gnu.org>
parents:
31614
diff
changeset
|
2398 its mask. Copy the temporary pixmap to the display. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2399 Screen *screen = FRAME_X_SCREEN (s->f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2400 int depth = DefaultDepthOfScreen (screen); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2401 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2402 /* Create a pixmap as large as the glyph string. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2403 pixmap = XCreatePixmap (s->display, s->window, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2404 s->background_width, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2405 s->height, depth); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2406 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2407 /* Don't clip in the following because we're working on the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2408 pixmap. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2409 XSetClipMask (s->display, s->gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2410 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2411 /* Fill the pixmap with the background color/stipple. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2412 if (s->stippled_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2413 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2414 /* Fill background with a stipple pattern. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2415 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2416 XFillRectangle (s->display, pixmap, s->gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2417 0, 0, s->background_width, s->height); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2418 XSetFillStyle (s->display, s->gc, FillSolid); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2419 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2420 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2421 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2422 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2423 XGetGCValues (s->display, s->gc, GCForeground | GCBackground, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2424 &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2425 XSetForeground (s->display, s->gc, xgcv.background); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2426 XFillRectangle (s->display, pixmap, s->gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2427 0, 0, s->background_width, s->height); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2428 XSetForeground (s->display, s->gc, xgcv.foreground); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2429 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2430 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2431 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2432 x_draw_glyph_string_bg_rect (s, x, y, s->background_width, height); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2433 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2434 s->background_filled_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2435 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2436 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2437 /* Draw the foreground. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2438 if (pixmap != None) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2439 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2440 x_draw_image_foreground_1 (s, pixmap); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2441 x_set_glyph_string_clipping (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2442 XCopyArea (s->display, pixmap, s->window, s->gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2443 0, 0, s->background_width, s->height, s->x, s->y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2444 XFreePixmap (s->display, pixmap); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2445 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2446 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2447 x_draw_image_foreground (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2448 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2449 /* If we must draw a relief around the image, do it. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2450 if (s->img->relief |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2451 || s->hl == DRAW_IMAGE_RAISED |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2452 || s->hl == DRAW_IMAGE_SUNKEN) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2453 x_draw_image_relief (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2454 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2455 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2456 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2457 /* Draw stretch glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2458 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2459 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2460 x_draw_stretch_glyph_string (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2461 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2462 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2463 xassert (s->first_glyph->type == STRETCH_GLYPH); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2464 s->stippled_p = s->face->stipple != 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2465 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2466 if (s->hl == DRAW_CURSOR |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2467 && !x_stretch_cursor_p) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2468 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2469 /* If `x-stretch-block-cursor' is nil, don't draw a block cursor |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2470 as wide as the stretch glyph. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2471 int width = min (FRAME_COLUMN_WIDTH (s->f), s->background_width); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2472 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2473 /* Draw cursor. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2474 x_draw_glyph_string_bg_rect (s, s->x, s->y, width, s->height); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2475 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2476 /* Clear rest using the GC of the original non-cursor face. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2477 if (width < s->background_width) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2478 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2479 int x = s->x + width, y = s->y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2480 int w = s->background_width - width, h = s->height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2481 XRectangle r; |
37922
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2482 GC gc; |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2483 |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2484 if (s->row->mouse_face_p |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2485 && cursor_in_mouse_face_p (s->w)) |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2486 { |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2487 x_set_mouse_face_gc (s); |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2488 gc = s->gc; |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2489 } |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2490 else |
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
2491 gc = s->face->gc; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2492 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2493 get_glyph_string_clip_rect (s, &r); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2494 XSetClipRectangles (s->display, gc, 0, 0, &r, 1, Unsorted); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2495 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2496 if (s->face->stipple) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2497 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2498 /* Fill background with a stipple pattern. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2499 XSetFillStyle (s->display, gc, FillOpaqueStippled); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2500 XFillRectangle (s->display, s->window, gc, x, y, w, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2501 XSetFillStyle (s->display, gc, FillSolid); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2502 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2503 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2504 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2505 XGCValues xgcv; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2506 XGetGCValues (s->display, gc, GCForeground | GCBackground, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2507 XSetForeground (s->display, gc, xgcv.background); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2508 XFillRectangle (s->display, s->window, gc, x, y, w, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2509 XSetForeground (s->display, gc, xgcv.foreground); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2510 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2511 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2512 } |
37535
6c6b5bd0f257
(x_draw_stretch_glyph_string): Don't draw background
Gerd Moellmann <gerd@gnu.org>
parents:
37525
diff
changeset
|
2513 else if (!s->background_filled_p) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2514 x_draw_glyph_string_bg_rect (s, s->x, s->y, s->background_width, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2515 s->height); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2516 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2517 s->background_filled_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2518 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2519 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2520 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2521 /* Draw glyph string S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2522 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2523 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2524 x_draw_glyph_string (s) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2525 struct glyph_string *s; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2526 { |
36800
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2527 int relief_drawn_p = 0; |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2528 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2529 /* If S draws into the background of its successor, draw the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2530 background of the successor first so that S can draw into it. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2531 This makes S->next use XDrawString instead of XDrawImageString. */ |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2532 if (s->next && s->right_overhang && !s->for_overlaps_p) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2533 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2534 xassert (s->next->img == NULL); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2535 x_set_glyph_string_gc (s->next); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2536 x_set_glyph_string_clipping (s->next); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2537 x_draw_glyph_string_background (s->next, 1); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2538 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2539 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2540 /* Set up S->gc, set clipping and draw S. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2541 x_set_glyph_string_gc (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2542 |
36800
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2543 /* Draw relief (if any) in advance for char/composition so that the |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2544 glyph string can be drawn over it. */ |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2545 if (!s->for_overlaps_p |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2546 && s->face->box != FACE_NO_BOX |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2547 && (s->first_glyph->type == CHAR_GLYPH |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2548 || s->first_glyph->type == COMPOSITE_GLYPH)) |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2549 |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2550 { |
39950
df00f7799bb7
(x_draw_glyph_string): Restore clipping after
Gerd Moellmann <gerd@gnu.org>
parents:
39922
diff
changeset
|
2551 x_set_glyph_string_clipping (s); |
36800
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2552 x_draw_glyph_string_background (s, 1); |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2553 x_draw_glyph_string_box (s); |
39950
df00f7799bb7
(x_draw_glyph_string): Restore clipping after
Gerd Moellmann <gerd@gnu.org>
parents:
39922
diff
changeset
|
2554 x_set_glyph_string_clipping (s); |
36800
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2555 relief_drawn_p = 1; |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2556 } |
39950
df00f7799bb7
(x_draw_glyph_string): Restore clipping after
Gerd Moellmann <gerd@gnu.org>
parents:
39922
diff
changeset
|
2557 else |
df00f7799bb7
(x_draw_glyph_string): Restore clipping after
Gerd Moellmann <gerd@gnu.org>
parents:
39922
diff
changeset
|
2558 x_set_glyph_string_clipping (s); |
36800
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2559 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2560 switch (s->first_glyph->type) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2561 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2562 case IMAGE_GLYPH: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2563 x_draw_image_glyph_string (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2564 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2565 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2566 case STRETCH_GLYPH: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2567 x_draw_stretch_glyph_string (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2568 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2569 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2570 case CHAR_GLYPH: |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2571 if (s->for_overlaps_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2572 s->background_filled_p = 1; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2573 else |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2574 x_draw_glyph_string_background (s, 0); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2575 x_draw_glyph_string_foreground (s); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2576 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2577 |
26879
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2578 case COMPOSITE_GLYPH: |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2579 if (s->for_overlaps_p || s->gidx > 0) |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2580 s->background_filled_p = 1; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2581 else |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2582 x_draw_glyph_string_background (s, 1); |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2583 x_draw_composite_glyph_string_foreground (s); |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2584 break; |
b4de7fa9866e
(x_append_glyph): Setup members of struct glyph properly
Kenichi Handa <handa@m17n.org>
parents:
26829
diff
changeset
|
2585 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2586 default: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2587 abort (); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2588 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2589 |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2590 if (!s->for_overlaps_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2591 { |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2592 /* Draw underline. */ |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2593 if (s->face->underline_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2594 { |
32945
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2595 unsigned long tem, h; |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2596 int y; |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2597 |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2598 /* Get the underline thickness. Default is 1 pixel. */ |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2599 if (!XGetFontProperty (s->font, XA_UNDERLINE_THICKNESS, &h)) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2600 h = 1; |
32945
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2601 |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2602 /* Get the underline position. This is the recommended |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2603 vertical offset in pixels from the baseline to the top of |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2604 the underline. This is a signed value according to the |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2605 specs, and its default is |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2606 |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2607 ROUND ((maximum descent) / 2), with |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2608 ROUND(x) = floor (x + 0.5) */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2609 |
37153
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
2610 if (x_use_underline_position_properties |
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
2611 && XGetFontProperty (s->font, XA_UNDERLINE_POSITION, &tem)) |
32945
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2612 y = s->ybase + (long) tem; |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2613 else if (s->face->font) |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2614 y = s->ybase + (s->face->font->max_bounds.descent + 1) / 2; |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2615 else |
37031
5cb404651755
(expose_window_tree, expose_frame): Don't compute
Gerd Moellmann <gerd@gnu.org>
parents:
36948
diff
changeset
|
2616 y = s->y + s->height - h; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2617 |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2618 if (s->face->underline_defaulted_p) |
32945
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2619 XFillRectangle (s->display, s->window, s->gc, |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2620 s->x, y, s->width, h); |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2621 else |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2622 { |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2623 XGCValues xgcv; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2624 XGetGCValues (s->display, s->gc, GCForeground, &xgcv); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2625 XSetForeground (s->display, s->gc, s->face->underline_color); |
32945
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2626 XFillRectangle (s->display, s->window, s->gc, |
1b418a786c41
(x_draw_glyph_string): Treat XA_UNDERLINE_POSITION as a
Gerd Moellmann <gerd@gnu.org>
parents:
32938
diff
changeset
|
2627 s->x, y, s->width, h); |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2628 XSetForeground (s->display, s->gc, xgcv.foreground); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2629 } |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2630 } |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2631 |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2632 /* Draw overline. */ |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2633 if (s->face->overline_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2634 { |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2635 unsigned long dy = 0, h = 1; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2636 |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2637 if (s->face->overline_color_defaulted_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2638 XFillRectangle (s->display, s->window, s->gc, s->x, s->y + dy, |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2639 s->width, h); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2640 else |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2641 { |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2642 XGCValues xgcv; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2643 XGetGCValues (s->display, s->gc, GCForeground, &xgcv); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2644 XSetForeground (s->display, s->gc, s->face->overline_color); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2645 XFillRectangle (s->display, s->window, s->gc, s->x, s->y + dy, |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2646 s->width, h); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2647 XSetForeground (s->display, s->gc, xgcv.foreground); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2648 } |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2649 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2650 |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2651 /* Draw strike-through. */ |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2652 if (s->face->strike_through_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2653 { |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2654 unsigned long h = 1; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2655 unsigned long dy = (s->height - h) / 2; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2656 |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2657 if (s->face->strike_through_color_defaulted_p) |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2658 XFillRectangle (s->display, s->window, s->gc, s->x, s->y + dy, |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2659 s->width, h); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2660 else |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2661 { |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2662 XGCValues xgcv; |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2663 XGetGCValues (s->display, s->gc, GCForeground, &xgcv); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2664 XSetForeground (s->display, s->gc, s->face->strike_through_color); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2665 XFillRectangle (s->display, s->window, s->gc, s->x, s->y + dy, |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2666 s->width, h); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2667 XSetForeground (s->display, s->gc, xgcv.foreground); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2668 } |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2669 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2670 |
36800
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2671 /* Draw relief if not yet drawn. */ |
7a809e9fc67e
(x_draw_glyph_string): Draw relief (if any) before
Kenichi Handa <handa@m17n.org>
parents:
36795
diff
changeset
|
2672 if (!relief_drawn_p && s->face->box != FACE_NO_BOX) |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2673 x_draw_glyph_string_box (s); |
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
2674 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2675 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2676 /* Reset clipping. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2677 XSetClipMask (s->display, s->gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2678 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2679 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2680 /* Shift display to make room for inserted glyphs. */ |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2681 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2682 void |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2683 x_shift_glyphs_for_insert (f, x, y, width, height, shift_by) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2684 struct frame *f; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2685 int x, y, width, height, shift_by; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2686 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2687 XCopyArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), FRAME_X_WINDOW (f), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2688 f->output_data.x->normal_gc, |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2689 x, y, width, height, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2690 x + shift_by, y); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
2691 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2692 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2693 /* Delete N glyphs at the nominal cursor position. Not implemented |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2694 for X frames. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2695 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2696 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2697 x_delete_glyphs (n) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2698 register int n; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2699 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2700 abort (); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2701 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2702 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2703 |
35581
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2704 /* Like XClearArea, but check that WIDTH and HEIGHT are reasonable. |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2705 If they are <= 0, this is probably an error. */ |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2706 |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2707 void |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2708 x_clear_area (dpy, window, x, y, width, height, exposures) |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2709 Display *dpy; |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2710 Window window; |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2711 int x, y; |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2712 int width, height; |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2713 int exposures; |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2714 { |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2715 xassert (width > 0 && height > 0); |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2716 XClearArea (dpy, window, x, y, width, height, exposures); |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2717 } |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2718 |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
2719 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2720 /* Clear entire frame. If updating_frame is non-null, clear that |
25682
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2721 frame. Otherwise clear the selected frame. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2722 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2723 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2724 x_clear_frame () |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2725 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2726 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2727 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2728 if (updating_frame) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2729 f = updating_frame; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2730 else |
25682
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2731 f = SELECTED_FRAME (); |
771 | 2732 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2733 /* Clearing the frame will erase any cursor, so mark them all as no |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2734 longer visible. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2735 mark_window_cursors_off (XWINDOW (FRAME_ROOT_WINDOW (f))); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2736 output_cursor.hpos = output_cursor.vpos = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2737 output_cursor.x = -1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2738 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2739 /* We don't set the output cursor here because there will always |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2740 follow an explicit cursor_to. */ |
286 | 2741 BLOCK_INPUT; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
2742 XClearWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f)); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2743 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
2744 /* We have to clear the scroll bars, too. If we have changed |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2745 colors or something like that, then they should be notified. */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
2746 x_scroll_bar_clear (f); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2747 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
2748 XFlush (FRAME_X_DISPLAY (f)); |
50130
66a7f2850b56
Clear frame didn't redraw scrollbars, fixed that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50103
diff
changeset
|
2749 |
66a7f2850b56
Clear frame didn't redraw scrollbars, fixed that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50103
diff
changeset
|
2750 #ifdef USE_GTK |
66a7f2850b56
Clear frame didn't redraw scrollbars, fixed that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50103
diff
changeset
|
2751 xg_frame_cleared (f); |
66a7f2850b56
Clear frame didn't redraw scrollbars, fixed that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50103
diff
changeset
|
2752 #endif |
66a7f2850b56
Clear frame didn't redraw scrollbars, fixed that.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50103
diff
changeset
|
2753 |
286 | 2754 UNBLOCK_INPUT; |
2755 } | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2756 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2757 |
6791
7036e4fd549f
(dumpglyphs): Clear any extra pixel rows below the text.
Richard M. Stallman <rms@gnu.org>
parents:
6767
diff
changeset
|
2758 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2759 /* Invert the middle quarter of the frame for .15 sec. */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2760 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2761 /* We use the select system call to do the waiting, so we have to make |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2762 sure it's available. If it isn't, we just won't do visual bells. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2763 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2764 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2765 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2766 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2767 /* Subtract the `struct timeval' values X and Y, storing the result in |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2768 *RESULT. Return 1 if the difference is negative, otherwise 0. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2769 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2770 static int |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2771 timeval_subtract (result, x, y) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2772 struct timeval *result, x, y; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2773 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2774 /* Perform the carry for the later subtraction by updating y. This |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2775 is safer because on some systems the tv_sec member is unsigned. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2776 if (x.tv_usec < y.tv_usec) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2777 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2778 int nsec = (y.tv_usec - x.tv_usec) / 1000000 + 1; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2779 y.tv_usec -= 1000000 * nsec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2780 y.tv_sec += nsec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2781 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2782 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2783 if (x.tv_usec - y.tv_usec > 1000000) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2784 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2785 int nsec = (y.tv_usec - x.tv_usec) / 1000000; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2786 y.tv_usec += 1000000 * nsec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2787 y.tv_sec -= nsec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2788 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2789 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2790 /* Compute the time remaining to wait. tv_usec is certainly |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2791 positive. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2792 result->tv_sec = x.tv_sec - y.tv_sec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2793 result->tv_usec = x.tv_usec - y.tv_usec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2794 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2795 /* Return indication of whether the result should be considered |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2796 negative. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2797 return x.tv_sec < y.tv_sec; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2798 } |
286 | 2799 |
21514 | 2800 void |
771 | 2801 XTflash (f) |
2802 struct frame *f; | |
286 | 2803 { |
2804 BLOCK_INPUT; | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2805 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2806 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2807 GC gc; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2808 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2809 /* Create a GC that will use the GXxor function to flip foreground |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2810 pixels into background pixels. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2811 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2812 XGCValues values; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2813 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2814 values.function = GXxor; |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
2815 values.foreground = (f->output_data.x->foreground_pixel |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
2816 ^ f->output_data.x->background_pixel); |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
2817 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
2818 gc = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2819 GCFunction | GCForeground, &values); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2820 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2821 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2822 { |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2823 /* Get the height not including a menu bar widget. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2824 int height = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, FRAME_LINES (f)); |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2825 /* Height of each line to flash. */ |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2826 int flash_height = FRAME_LINE_HEIGHT (f); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2827 /* These will be the left and right margins of the rectangles. */ |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2828 int flash_left = FRAME_INTERNAL_BORDER_WIDTH (f); |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2829 int flash_right = FRAME_PIXEL_WIDTH (f) - FRAME_INTERNAL_BORDER_WIDTH (f); |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2830 |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2831 int width; |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2832 |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2833 /* Don't flash the area between a scroll bar and the frame |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2834 edge it is next to. */ |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2835 switch (FRAME_VERTICAL_SCROLL_BAR_TYPE (f)) |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2836 { |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2837 case vertical_scroll_bar_left: |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2838 flash_left += VERTICAL_SCROLL_BAR_WIDTH_TRIM; |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2839 break; |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2840 |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2841 case vertical_scroll_bar_right: |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2842 flash_right -= VERTICAL_SCROLL_BAR_WIDTH_TRIM; |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2843 break; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2844 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2845 default: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2846 break; |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2847 } |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2848 |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2849 width = flash_right - flash_left; |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2850 |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2851 /* If window is tall, flash top and bottom line. */ |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2852 if (height > 3 * FRAME_LINE_HEIGHT (f)) |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2853 { |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2854 XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2855 flash_left, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2856 (FRAME_INTERNAL_BORDER_WIDTH (f) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2857 + FRAME_TOOL_BAR_LINES (f) * FRAME_LINE_HEIGHT (f)), |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2858 width, flash_height); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2859 XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2860 flash_left, |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2861 (height - flash_height |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2862 - FRAME_INTERNAL_BORDER_WIDTH (f)), |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2863 width, flash_height); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2864 } |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2865 else |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2866 /* If it is short, flash it all. */ |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2867 XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2868 flash_left, FRAME_INTERNAL_BORDER_WIDTH (f), |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2869 width, height - 2 * FRAME_INTERNAL_BORDER_WIDTH (f)); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2870 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2871 x_flush (f); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2872 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2873 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2874 struct timeval wakeup; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2875 |
5362
d1fa597d923d
(XTflush): FIx typo in last change.
Richard M. Stallman <rms@gnu.org>
parents:
5357
diff
changeset
|
2876 EMACS_GET_TIME (wakeup); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2877 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2878 /* Compute time to wait until, propagating carry from usecs. */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2879 wakeup.tv_usec += 150000; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2880 wakeup.tv_sec += (wakeup.tv_usec / 1000000); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2881 wakeup.tv_usec %= 1000000; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2882 |
36599
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2883 /* Keep waiting until past the time wakeup or any input gets |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2884 available. */ |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2885 while (! detect_input_pending ()) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2886 { |
36599
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2887 struct timeval current; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2888 struct timeval timeout; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2889 |
36599
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2890 EMACS_GET_TIME (current); |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2891 |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2892 /* Break if result would be negative. */ |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2893 if (timeval_subtract (¤t, wakeup, current)) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2894 break; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2895 |
36599
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2896 /* How long `select' should wait. */ |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2897 timeout.tv_sec = 0; |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2898 timeout.tv_usec = 10000; |
3813a1116259
(XTflash): Make the timeout of select shorter, and call
Gerd Moellmann <gerd@gnu.org>
parents:
36587
diff
changeset
|
2899 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2900 /* Try to wait that long--but we might wake up sooner. */ |
11915
e2ab839155e1
(XTflash): Use pointers as args to select.
Karl Heuer <kwzh@gnu.org>
parents:
11904
diff
changeset
|
2901 select (0, NULL, NULL, NULL, &timeout); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2902 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2903 } |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
2904 |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2905 /* If window is tall, flash top and bottom line. */ |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2906 if (height > 3 * FRAME_LINE_HEIGHT (f)) |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2907 { |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2908 XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2909 flash_left, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2910 (FRAME_INTERNAL_BORDER_WIDTH (f) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
2911 + FRAME_TOOL_BAR_LINES (f) * FRAME_LINE_HEIGHT (f)), |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2912 width, flash_height); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2913 XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2914 flash_left, |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2915 (height - flash_height |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2916 - FRAME_INTERNAL_BORDER_WIDTH (f)), |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2917 width, flash_height); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2918 } |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2919 else |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2920 /* If it is short, flash it all. */ |
16352
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2921 XFillRectangle (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), gc, |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2922 flash_left, FRAME_INTERNAL_BORDER_WIDTH (f), |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2923 width, height - 2 * FRAME_INTERNAL_BORDER_WIDTH (f)); |
dfe3713f8c75
(XTflash): Don't flash in the internal borders.
Richard M. Stallman <rms@gnu.org>
parents:
16330
diff
changeset
|
2924 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
2925 XFreeGC (FRAME_X_DISPLAY (f), gc); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2926 x_flush (f); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2927 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2928 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2929 |
286 | 2930 UNBLOCK_INPUT; |
2931 } | |
2932 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2933 #endif /* defined (HAVE_TIMEVAL) && defined (HAVE_SELECT) */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2934 |
286 | 2935 |
2936 /* Make audible bell. */ | |
2937 | |
21514 | 2938 void |
286 | 2939 XTring_bell () |
2940 { | |
25682
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2941 struct frame *f = SELECTED_FRAME (); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
2942 |
25682
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2943 if (FRAME_X_DISPLAY (f)) |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2944 { |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
2945 #if defined (HAVE_TIMEVAL) && defined (HAVE_SELECT) |
25682
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2946 if (visible_bell) |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2947 XTflash (f); |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2948 else |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2949 #endif |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2950 { |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2951 BLOCK_INPUT; |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2952 XBell (FRAME_X_DISPLAY (f), 0); |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2953 XFlush (FRAME_X_DISPLAY (f)); |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2954 UNBLOCK_INPUT; |
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
2955 } |
286 | 2956 } |
2957 } | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2958 |
286 | 2959 |
2960 /* Specify how many text lines, from the top of the window, | |
2961 should be affected by insert-lines and delete-lines operations. | |
2962 This, and those operations, are used only within an update | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2963 that is bounded by calls to x_update_begin and x_update_end. */ |
286 | 2964 |
21514 | 2965 static void |
286 | 2966 XTset_terminal_window (n) |
2967 register int n; | |
2968 { | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2969 /* This function intentionally left blank. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2970 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2971 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2972 |
286 | 2973 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2974 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2975 Line Dance |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2976 ***********************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2977 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2978 /* Perform an insert-lines or delete-lines operation, inserting N |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2979 lines or deleting -N lines at vertical position VPOS. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2980 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2981 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2982 x_ins_del_lines (vpos, n) |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
2983 int vpos, n; |
286 | 2984 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2985 abort (); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2986 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2987 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2988 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2989 /* Scroll part of the display as described by RUN. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2990 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2991 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2992 x_scroll_run (w, run) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2993 struct window *w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2994 struct run *run; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2995 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2996 struct frame *f = XFRAME (w->frame); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2997 int x, y, width, height, from_y, to_y, bottom_y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2998 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
2999 /* Get frame-relative bounding box of the text display area of W, |
41134 | 3000 without mode lines. Include in this box the left and right |
3001 fringe of W. */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3002 window_box (w, -1, &x, &y, &width, &height); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3003 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3004 from_y = WINDOW_TO_FRAME_PIXEL_Y (w, run->current_y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3005 to_y = WINDOW_TO_FRAME_PIXEL_Y (w, run->desired_y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3006 bottom_y = y + height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3007 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3008 if (to_y < from_y) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3009 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3010 /* Scrolling up. Make sure we don't copy part of the mode |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3011 line at the bottom. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3012 if (from_y + run->height > bottom_y) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3013 height = bottom_y - from_y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3014 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3015 height = run->height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3016 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3017 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3018 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3019 /* Scolling down. Make sure we don't copy over the mode line. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3020 at the bottom. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3021 if (to_y + run->height > bottom_y) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3022 height = bottom_y - to_y; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3023 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3024 height = run->height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3025 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3026 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3027 BLOCK_INPUT; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3028 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3029 /* Cursor off. Will be switched on again in x_update_window_end. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3030 updated_window = w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3031 x_clear_cursor (w); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3032 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3033 XCopyArea (FRAME_X_DISPLAY (f), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3034 FRAME_X_WINDOW (f), FRAME_X_WINDOW (f), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3035 f->output_data.x->normal_gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3036 x, from_y, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3037 width, height, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3038 x, to_y); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3039 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3040 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3041 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3042 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3043 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3044 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3045 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3046 Exposure Events |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3047 ***********************************************************************/ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3048 |
286 | 3049 |
3050 static void | |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3051 frame_highlight (f) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3052 struct frame *f; |
286 | 3053 { |
3943
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3054 /* We used to only do this if Vx_no_window_manager was non-nil, but |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3055 the ICCCM (section 4.1.6) says that the window's border pixmap |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3056 and border pixel are window attributes which are "private to the |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3057 client", so we can always change it to whatever we want. */ |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3058 BLOCK_INPUT; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3059 XSetWindowBorder (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
3060 f->output_data.x->border_pixel); |
3943
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3061 UNBLOCK_INPUT; |
12431
80a5aedfb4c7
(XTread_socket): Turn off meta, super, hyper and alt bits
Richard M. Stallman <rms@gnu.org>
parents:
12192
diff
changeset
|
3062 x_update_cursor (f, 1); |
286 | 3063 } |
3064 | |
3065 static void | |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3066 frame_unhighlight (f) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3067 struct frame *f; |
286 | 3068 { |
3943
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3069 /* We used to only do this if Vx_no_window_manager was non-nil, but |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3070 the ICCCM (section 4.1.6) says that the window's border pixmap |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3071 and border pixel are window attributes which are "private to the |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3072 client", so we can always change it to whatever we want. */ |
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3073 BLOCK_INPUT; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3074 XSetWindowBorderPixmap (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
3075 f->output_data.x->border_tile); |
3943
cbdf67dd68d0
* xterm.c (frame_highlight, frame_unhighlight): Don't test
Jim Blandy <jimb@redhat.com>
parents:
3938
diff
changeset
|
3076 UNBLOCK_INPUT; |
12431
80a5aedfb4c7
(XTread_socket): Turn off meta, super, hyper and alt bits
Richard M. Stallman <rms@gnu.org>
parents:
12192
diff
changeset
|
3077 x_update_cursor (f, 1); |
286 | 3078 } |
3079 | |
771 | 3080 /* The focus has changed. Update the frames as necessary to reflect |
3081 the new situation. Note that we can't change the selected frame | |
10546
7515c28a59d9
(x_destroy_window): Don't let frame being destroyed remain in
Richard M. Stallman <rms@gnu.org>
parents:
10366
diff
changeset
|
3082 here, because the Lisp code we are interrupting might become confused. |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3585
diff
changeset
|
3083 Each event gets marked with the frame in which it occurred, so the |
10546
7515c28a59d9
(x_destroy_window): Don't let frame being destroyed remain in
Richard M. Stallman <rms@gnu.org>
parents:
10366
diff
changeset
|
3084 Lisp code can tell when the switch took place by examining the events. */ |
369 | 3085 |
3086 static void | |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3087 x_new_focus_frame (dpyinfo, frame) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3088 struct x_display_info *dpyinfo; |
771 | 3089 struct frame *frame; |
286 | 3090 { |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3091 struct frame *old_focus = dpyinfo->x_focus_frame; |
286 | 3092 |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3093 if (frame != dpyinfo->x_focus_frame) |
286 | 3094 { |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3095 /* Set this before calling other routines, so that they see |
771 | 3096 the correct value of x_focus_frame. */ |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3097 dpyinfo->x_focus_frame = frame; |
369 | 3098 |
3099 if (old_focus && old_focus->auto_lower) | |
771 | 3100 x_lower_frame (old_focus); |
286 | 3101 |
3102 #if 0 | |
771 | 3103 selected_frame = frame; |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
3104 XSETFRAME (XWINDOW (selected_frame->selected_window)->frame, |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
3105 selected_frame); |
51048
7ac9c3bea5ea
(Fselect_window): Add optional arg `norecord'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50521
diff
changeset
|
3106 Fselect_window (selected_frame->selected_window, Qnil); |
771 | 3107 choose_minibuf_frame (); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
3108 #endif /* ! 0 */ |
286 | 3109 |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3110 if (dpyinfo->x_focus_frame && dpyinfo->x_focus_frame->auto_raise) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3111 pending_autoraise_frame = dpyinfo->x_focus_frame; |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
3112 else |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
3113 pending_autoraise_frame = 0; |
369 | 3114 } |
3115 | |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3116 x_frame_rehighlight (dpyinfo); |
369 | 3117 } |
3118 | |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3119 /* Handle FocusIn and FocusOut state changes for FRAME. |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3120 If FRAME has focus and there exists more than one frame, puts |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3121 a FOCUS_IN_EVENT into BUFP. |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3122 Returns number of events inserted into BUFP. */ |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3123 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3124 static int |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3125 x_focus_changed (type, state, dpyinfo, frame, bufp, numchars) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3126 int type; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3127 int state; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3128 struct x_display_info *dpyinfo; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3129 struct frame *frame; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3130 struct input_event *bufp; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3131 int numchars; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3132 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3133 int nr_events = 0; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3134 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3135 if (type == FocusIn) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3136 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3137 if (dpyinfo->x_focus_event_frame != frame) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3138 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3139 x_new_focus_frame (dpyinfo, frame); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3140 dpyinfo->x_focus_event_frame = frame; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3141 |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3142 /* Don't stop displaying the initial startup message |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3143 for a switch-frame event we don't need. */ |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3144 if (numchars > 0 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3145 && GC_NILP (Vterminal_frame) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3146 && GC_CONSP (Vframe_list) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3147 && !GC_NILP (XCDR (Vframe_list))) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3148 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3149 bufp->kind = FOCUS_IN_EVENT; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3150 XSETFRAME (bufp->frame_or_window, frame); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3151 bufp->arg = Qnil; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3152 ++bufp; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3153 numchars--; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3154 ++nr_events; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3155 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3156 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3157 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3158 frame->output_data.x->focus_state |= state; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3159 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3160 #ifdef HAVE_X_I18N |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3161 if (FRAME_XIC (frame)) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3162 XSetICFocus (FRAME_XIC (frame)); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3163 #endif |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3164 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3165 else if (type == FocusOut) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3166 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3167 frame->output_data.x->focus_state &= ~state; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3168 |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3169 if (dpyinfo->x_focus_event_frame == frame) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3170 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3171 dpyinfo->x_focus_event_frame = 0; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3172 x_new_focus_frame (dpyinfo, 0); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3173 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3174 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3175 #ifdef HAVE_X_I18N |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3176 if (FRAME_XIC (frame)) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3177 XUnsetICFocus (FRAME_XIC (frame)); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3178 #endif |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3179 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3180 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3181 return nr_events; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3182 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3183 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3184 /* The focus may have changed. Figure out if it is a real focus change, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3185 by checking both FocusIn/Out and Enter/LeaveNotify events. |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3186 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3187 Returns number of events inserted into BUFP. */ |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3188 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3189 static int |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3190 x_detect_focus_change (dpyinfo, event, bufp, numchars) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3191 struct x_display_info *dpyinfo; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3192 XEvent *event; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3193 struct input_event *bufp; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3194 int numchars; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3195 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3196 struct frame *frame; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3197 int nr_events = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3198 |
50021
b5ec65424fcc
* xterm.c (x_detect_focus_change): Call x_any_window_to_frame
Jan Djärv <jan.h.d@swipnet.se>
parents:
49859
diff
changeset
|
3199 frame = x_any_window_to_frame (dpyinfo, event->xany.window); |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3200 if (! frame) return nr_events; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3201 |
46076
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3202 switch (event->type) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3203 { |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3204 case EnterNotify: |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3205 case LeaveNotify: |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3206 if (event->xcrossing.detail != NotifyInferior |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3207 && event->xcrossing.focus |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3208 && ! (frame->output_data.x->focus_state & FOCUS_EXPLICIT)) |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3209 nr_events = x_focus_changed ((event->type == EnterNotify |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3210 ? FocusIn : FocusOut), |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3211 FOCUS_IMPLICIT, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3212 dpyinfo, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3213 frame, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3214 bufp, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3215 numchars); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3216 break; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3217 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3218 case FocusIn: |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3219 case FocusOut: |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3220 nr_events = x_focus_changed (event->type, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3221 (event->xfocus.detail == NotifyPointer |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3222 ? FOCUS_IMPLICIT : FOCUS_EXPLICIT), |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3223 dpyinfo, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3224 frame, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3225 bufp, |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3226 numchars); |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3227 break; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3228 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3229 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3230 return nr_events; |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3231 } |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3232 |
819af351608b
(x_focus_changed): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45986
diff
changeset
|
3233 |
10223
97fc8c6b4a74
(XTupdate_begin): Discard records of prior mouse highlight
Richard M. Stallman <rms@gnu.org>
parents:
9823
diff
changeset
|
3234 /* Handle an event saying the mouse has moved out of an Emacs frame. */ |
97fc8c6b4a74
(XTupdate_begin): Discard records of prior mouse highlight
Richard M. Stallman <rms@gnu.org>
parents:
9823
diff
changeset
|
3235 |
97fc8c6b4a74
(XTupdate_begin): Discard records of prior mouse highlight
Richard M. Stallman <rms@gnu.org>
parents:
9823
diff
changeset
|
3236 void |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3237 x_mouse_leave (dpyinfo) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3238 struct x_display_info *dpyinfo; |
10223
97fc8c6b4a74
(XTupdate_begin): Discard records of prior mouse highlight
Richard M. Stallman <rms@gnu.org>
parents:
9823
diff
changeset
|
3239 { |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3240 x_new_focus_frame (dpyinfo, dpyinfo->x_focus_event_frame); |
10223
97fc8c6b4a74
(XTupdate_begin): Discard records of prior mouse highlight
Richard M. Stallman <rms@gnu.org>
parents:
9823
diff
changeset
|
3241 } |
369 | 3242 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3243 /* The focus has changed, or we have redirected a frame's focus to |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3244 another frame (this happens when a frame uses a surrogate |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3245 mini-buffer frame). Shift the highlight as appropriate. |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3246 |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3247 The FRAME argument doesn't necessarily have anything to do with which |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3248 frame is being highlighted or un-highlighted; we only use it to find |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3249 the appropriate X display info. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3250 |
369 | 3251 static void |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3252 XTframe_rehighlight (frame) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3253 struct frame *frame; |
369 | 3254 { |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3255 x_frame_rehighlight (FRAME_X_DISPLAY_INFO (frame)); |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3256 } |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3257 |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3258 static void |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3259 x_frame_rehighlight (dpyinfo) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3260 struct x_display_info *dpyinfo; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3261 { |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3262 struct frame *old_highlight = dpyinfo->x_highlight_frame; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3263 |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3264 if (dpyinfo->x_focus_frame) |
286 | 3265 { |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3266 dpyinfo->x_highlight_frame |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3267 = ((GC_FRAMEP (FRAME_FOCUS_FRAME (dpyinfo->x_focus_frame))) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3268 ? XFRAME (FRAME_FOCUS_FRAME (dpyinfo->x_focus_frame)) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3269 : dpyinfo->x_focus_frame); |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3270 if (! FRAME_LIVE_P (dpyinfo->x_highlight_frame)) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3271 { |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3272 FRAME_FOCUS_FRAME (dpyinfo->x_focus_frame) = Qnil; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3273 dpyinfo->x_highlight_frame = dpyinfo->x_focus_frame; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3274 } |
286 | 3275 } |
369 | 3276 else |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3277 dpyinfo->x_highlight_frame = 0; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3278 |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3279 if (dpyinfo->x_highlight_frame != old_highlight) |
369 | 3280 { |
3281 if (old_highlight) | |
771 | 3282 frame_unhighlight (old_highlight); |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3283 if (dpyinfo->x_highlight_frame) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
3284 frame_highlight (dpyinfo->x_highlight_frame); |
369 | 3285 } |
286 | 3286 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3287 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3288 |
286 | 3289 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3290 /* Keyboard processing - modifier keys, vendor-specific keysyms, etc. */ |
286 | 3291 |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3292 /* Initialize mode_switch_bit and modifier_meaning. */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3293 static void |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3294 x_find_modifier_meanings (dpyinfo) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3295 struct x_display_info *dpyinfo; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3296 { |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3297 int min_code, max_code; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3298 KeySym *syms; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3299 int syms_per_code; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3300 XModifierKeymap *mods; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3301 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3302 dpyinfo->meta_mod_mask = 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3303 dpyinfo->shift_lock_mask = 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3304 dpyinfo->alt_mod_mask = 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3305 dpyinfo->super_mod_mask = 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3306 dpyinfo->hyper_mod_mask = 0; |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3307 |
2127
adaf588e32a6
* xterm.c (x_find_modifier_meanings): XDisplayKeycodes only
Jim Blandy <jimb@redhat.com>
parents:
2064
diff
changeset
|
3308 #ifdef HAVE_X11R4 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3309 XDisplayKeycodes (dpyinfo->display, &min_code, &max_code); |
2127
adaf588e32a6
* xterm.c (x_find_modifier_meanings): XDisplayKeycodes only
Jim Blandy <jimb@redhat.com>
parents:
2064
diff
changeset
|
3310 #else |
13884
26245345f6f1
(x_find_modifier_meanings): Fix !X11R4 code to use dpyinfo.
Richard M. Stallman <rms@gnu.org>
parents:
13782
diff
changeset
|
3311 min_code = dpyinfo->display->min_keycode; |
26245345f6f1
(x_find_modifier_meanings): Fix !X11R4 code to use dpyinfo.
Richard M. Stallman <rms@gnu.org>
parents:
13782
diff
changeset
|
3312 max_code = dpyinfo->display->max_keycode; |
2127
adaf588e32a6
* xterm.c (x_find_modifier_meanings): XDisplayKeycodes only
Jim Blandy <jimb@redhat.com>
parents:
2064
diff
changeset
|
3313 #endif |
adaf588e32a6
* xterm.c (x_find_modifier_meanings): XDisplayKeycodes only
Jim Blandy <jimb@redhat.com>
parents:
2064
diff
changeset
|
3314 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3315 syms = XGetKeyboardMapping (dpyinfo->display, |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3316 min_code, max_code - min_code + 1, |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3317 &syms_per_code); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3318 mods = XGetModifierMapping (dpyinfo->display); |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3319 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3320 /* Scan the modifier table to see which modifier bits the Meta and |
1436
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
3321 Alt keysyms are on. */ |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3322 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3323 int row, col; /* The row and column in the modifier table. */ |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3324 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3325 for (row = 3; row < 8; row++) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3326 for (col = 0; col < mods->max_keypermod; col++) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3327 { |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
3328 KeyCode code |
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
3329 = mods->modifiermap[(row * mods->max_keypermod) + col]; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3330 |
6560
a071babfa9ea
(x_find_modifier_meanings): Skip zero entries.
Karl Heuer <kwzh@gnu.org>
parents:
6521
diff
changeset
|
3331 /* Zeroes are used for filler. Skip them. */ |
a071babfa9ea
(x_find_modifier_meanings): Skip zero entries.
Karl Heuer <kwzh@gnu.org>
parents:
6521
diff
changeset
|
3332 if (code == 0) |
a071babfa9ea
(x_find_modifier_meanings): Skip zero entries.
Karl Heuer <kwzh@gnu.org>
parents:
6521
diff
changeset
|
3333 continue; |
a071babfa9ea
(x_find_modifier_meanings): Skip zero entries.
Karl Heuer <kwzh@gnu.org>
parents:
6521
diff
changeset
|
3334 |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3335 /* Are any of this keycode's keysyms a meta key? */ |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3336 { |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3337 int code_col; |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3338 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3339 for (code_col = 0; code_col < syms_per_code; code_col++) |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3340 { |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3341 int sym = syms[((code - min_code) * syms_per_code) + code_col]; |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3342 |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3343 switch (sym) |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3344 { |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3345 case XK_Meta_L: |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3346 case XK_Meta_R: |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3347 dpyinfo->meta_mod_mask |= (1 << row); |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3348 break; |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3349 |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3350 case XK_Alt_L: |
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3351 case XK_Alt_R: |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3352 dpyinfo->alt_mod_mask |= (1 << row); |
2047
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3353 break; |
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3354 |
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3355 case XK_Hyper_L: |
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3356 case XK_Hyper_R: |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3357 dpyinfo->hyper_mod_mask |= (1 << row); |
2047
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3358 break; |
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3359 |
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3360 case XK_Super_L: |
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3361 case XK_Super_R: |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3362 dpyinfo->super_mod_mask |= (1 << row); |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3363 break; |
1436
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
3364 |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
3365 case XK_Shift_Lock: |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
3366 /* Ignore this if it's not on the lock modifier. */ |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
3367 if ((1 << row) == LockMask) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3368 dpyinfo->shift_lock_mask = LockMask; |
1436
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
3369 break; |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3370 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3371 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3372 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3373 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3374 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3375 |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3376 /* If we couldn't find any meta keys, accept any alt keys as meta keys. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3377 if (! dpyinfo->meta_mod_mask) |
2047
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3378 { |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3379 dpyinfo->meta_mod_mask = dpyinfo->alt_mod_mask; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3380 dpyinfo->alt_mod_mask = 0; |
2047
e179f9f55aa8
(x_alt_mod_mask, x_super_mod_mask, x_hyper_mod_mask): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
2016
diff
changeset
|
3381 } |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3382 |
2923
c8997402dd6b
(x_find_modifier_meanings): If some keys are meta and alt,
Richard M. Stallman <rms@gnu.org>
parents:
2882
diff
changeset
|
3383 /* If some keys are both alt and meta, |
c8997402dd6b
(x_find_modifier_meanings): If some keys are meta and alt,
Richard M. Stallman <rms@gnu.org>
parents:
2882
diff
changeset
|
3384 make them just meta, not alt. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3385 if (dpyinfo->alt_mod_mask & dpyinfo->meta_mod_mask) |
2923
c8997402dd6b
(x_find_modifier_meanings): If some keys are meta and alt,
Richard M. Stallman <rms@gnu.org>
parents:
2882
diff
changeset
|
3386 { |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3387 dpyinfo->alt_mod_mask &= ~dpyinfo->meta_mod_mask; |
2923
c8997402dd6b
(x_find_modifier_meanings): If some keys are meta and alt,
Richard M. Stallman <rms@gnu.org>
parents:
2882
diff
changeset
|
3388 } |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3389 |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3390 XFree ((char *) syms); |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3391 XFreeModifiermap (mods); |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3392 } |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
3393 |
2661
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
3394 /* Convert between the modifier bits X uses and the modifier bits |
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
3395 Emacs uses. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3396 |
1530
a7f8a1fe258e
* xterm.c (x_convert_modifiers): Declare this to return an
Jim Blandy <jimb@redhat.com>
parents:
1436
diff
changeset
|
3397 static unsigned int |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3398 x_x_to_emacs_modifiers (dpyinfo, state) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3399 struct x_display_info *dpyinfo; |
286 | 3400 unsigned int state; |
3401 { | |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3402 EMACS_UINT mod_meta = meta_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3403 EMACS_UINT mod_alt = alt_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3404 EMACS_UINT mod_hyper = hyper_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3405 EMACS_UINT mod_super = super_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3406 Lisp_Object tem; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3407 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3408 tem = Fget (Vx_alt_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3409 if (! EQ (tem, Qnil)) mod_alt = XUINT (tem); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3410 tem = Fget (Vx_meta_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3411 if (! EQ (tem, Qnil)) mod_meta = XUINT (tem); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3412 tem = Fget (Vx_hyper_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3413 if (! EQ (tem, Qnil)) mod_hyper = XUINT (tem); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3414 tem = Fget (Vx_super_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3415 if (! EQ (tem, Qnil)) mod_super = XUINT (tem); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3416 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3417 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3418 return ( ((state & (ShiftMask | dpyinfo->shift_lock_mask)) ? shift_modifier : 0) |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3419 | ((state & ControlMask) ? ctrl_modifier : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3420 | ((state & dpyinfo->meta_mod_mask) ? mod_meta : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3421 | ((state & dpyinfo->alt_mod_mask) ? mod_alt : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3422 | ((state & dpyinfo->super_mod_mask) ? mod_super : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3423 | ((state & dpyinfo->hyper_mod_mask) ? mod_hyper : 0)); |
286 | 3424 } |
3425 | |
2661
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
3426 static unsigned int |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3427 x_emacs_to_x_modifiers (dpyinfo, state) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3428 struct x_display_info *dpyinfo; |
2661
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
3429 unsigned int state; |
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
3430 { |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3431 EMACS_UINT mod_meta = meta_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3432 EMACS_UINT mod_alt = alt_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3433 EMACS_UINT mod_hyper = hyper_modifier; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3434 EMACS_UINT mod_super = super_modifier; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3435 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3436 Lisp_Object tem; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3437 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3438 tem = Fget (Vx_alt_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3439 if (! EQ (tem, Qnil)) mod_alt = XUINT (tem); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3440 tem = Fget (Vx_meta_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3441 if (! EQ (tem, Qnil)) mod_meta = XUINT (tem); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3442 tem = Fget (Vx_hyper_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3443 if (! EQ (tem, Qnil)) mod_hyper = XUINT (tem); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3444 tem = Fget (Vx_super_keysym, Qmodifier_value); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3445 if (! EQ (tem, Qnil)) mod_super = XUINT (tem); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3446 |
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3447 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3448 return ( ((state & mod_alt) ? dpyinfo->alt_mod_mask : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3449 | ((state & mod_super) ? dpyinfo->super_mod_mask : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3450 | ((state & mod_hyper) ? dpyinfo->hyper_mod_mask : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3451 | ((state & shift_modifier) ? ShiftMask : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3452 | ((state & ctrl_modifier) ? ControlMask : 0) |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
3453 | ((state & mod_meta) ? dpyinfo->meta_mod_mask : 0)); |
2661
77f1457d000e
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2474
diff
changeset
|
3454 } |
12172
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3455 |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3456 /* Convert a keysym to its name. */ |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3457 |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3458 char * |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3459 x_get_keysym_name (keysym) |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3460 KeySym keysym; |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3461 { |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3462 char *value; |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3463 |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3464 BLOCK_INPUT; |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3465 value = XKeysymToString (keysym); |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3466 UNBLOCK_INPUT; |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3467 |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3468 return value; |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
3469 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3470 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3471 |
3585
19aab2d09a4d
* xterm.c (x_is_vendor_fkey): New function.
Jim Blandy <jimb@redhat.com>
parents:
3558
diff
changeset
|
3472 |
19aab2d09a4d
* xterm.c (x_is_vendor_fkey): New function.
Jim Blandy <jimb@redhat.com>
parents:
3558
diff
changeset
|
3473 /* Mouse clicks and mouse movement. Rah. */ |
19aab2d09a4d
* xterm.c (x_is_vendor_fkey): New function.
Jim Blandy <jimb@redhat.com>
parents:
3558
diff
changeset
|
3474 |
286 | 3475 /* Prepare a mouse-event in *RESULT for placement in the input queue. |
3476 | |
3477 If the event is a button press, then note that we have grabbed | |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3478 the mouse. */ |
286 | 3479 |
3480 static Lisp_Object | |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3481 construct_mouse_click (result, event, f) |
286 | 3482 struct input_event *result; |
3483 XButtonEvent *event; | |
771 | 3484 struct frame *f; |
286 | 3485 { |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
3486 /* Make the event type NO_EVENT; we'll change that when we decide |
286 | 3487 otherwise. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
3488 result->kind = MOUSE_CLICK_EVENT; |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3489 result->code = event->button - Button1; |
708 | 3490 result->timestamp = event->time; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3491 result->modifiers = (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3492 event->state) |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3493 | (event->type == ButtonRelease |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3494 ? up_modifier |
1324
44215417cf6e
* xterm.c (x_find_modifier_meanings): If there are no
Jim Blandy <jimb@redhat.com>
parents:
1279
diff
changeset
|
3495 : down_modifier)); |
286 | 3496 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3497 XSETINT (result->x, event->x); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3498 XSETINT (result->y, event->y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3499 XSETFRAME (result->frame_or_window, f); |
30197
3237a5529020
(construct_mouse_click, x_scroll_bar_to_input_event)
Gerd Moellmann <gerd@gnu.org>
parents:
30182
diff
changeset
|
3500 result->arg = Qnil; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3501 return Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3502 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3503 |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3504 |
429 | 3505 /* Function to report a mouse movement to the mainstream Emacs code. |
3506 The input handler calls this. | |
3507 | |
3508 We have received a mouse movement event, which is given in *event. | |
3509 If the mouse is over a different glyph than it was last time, tell | |
3510 the mainstream emacs code by setting mouse_moved. If not, ask for | |
3511 another motion event, so we can check again the next time it moves. */ | |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
3512 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3513 static XMotionEvent last_mouse_motion_event; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3514 static Lisp_Object last_mouse_motion_frame; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3515 |
429 | 3516 static void |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3517 note_mouse_movement (frame, event) |
771 | 3518 FRAME_PTR frame; |
429 | 3519 XMotionEvent *event; |
3520 { | |
732 | 3521 last_mouse_movement_time = event->time; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3522 last_mouse_motion_event = *event; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3523 XSETFRAME (last_mouse_motion_frame, frame); |
732 | 3524 |
7680
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3525 if (event->window != FRAME_X_WINDOW (frame)) |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3526 { |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3527 frame->mouse_moved = 1; |
7680
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3528 last_mouse_scroll_bar = Qnil; |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3529 note_mouse_highlight (frame, -1, -1); |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3530 } |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3531 |
429 | 3532 /* Has the mouse moved off the glyph it was on at the last sighting? */ |
7680
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3533 else if (event->x < last_mouse_glyph.x |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3534 || event->x >= last_mouse_glyph.x + last_mouse_glyph.width |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3535 || event->y < last_mouse_glyph.y |
8212755ff793
(note_mouse_movement): Use frame's window in XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
7651
diff
changeset
|
3536 || event->y >= last_mouse_glyph.y + last_mouse_glyph.height) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3537 { |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3538 frame->mouse_moved = 1; |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3539 last_mouse_scroll_bar = Qnil; |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
3540 note_mouse_highlight (frame, event->x, event->y); |
429 | 3541 } |
3542 } | |
3543 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3544 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3545 /************************************************************************ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3546 Mouse Face |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3547 ************************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3548 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3549 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3550 redo_mouse_highlight () |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3551 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3552 if (!NILP (last_mouse_motion_frame) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3553 && FRAME_LIVE_P (XFRAME (last_mouse_motion_frame))) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3554 note_mouse_highlight (XFRAME (last_mouse_motion_frame), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3555 last_mouse_motion_event.x, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3556 last_mouse_motion_event.y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3557 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3558 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3559 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3560 static int glyph_rect P_ ((struct frame *f, int, int, XRectangle *)); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3561 |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3562 |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3563 /* Try to determine frame pixel position and size of the glyph under |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3564 frame pixel coordinates X/Y on frame F . Return the position and |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3565 size in *RECT. Value is non-zero if we could compute these |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3566 values. */ |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3567 |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3568 static int |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3569 glyph_rect (f, x, y, rect) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3570 struct frame *f; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3571 int x, y; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3572 XRectangle *rect; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3573 { |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3574 Lisp_Object window; |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
3575 int found = 0; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
3576 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
3577 window = window_from_coordinates (f, x, y, 0, &x, &y, 0); |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3578 if (!NILP (window)) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3579 { |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3580 struct window *w = XWINDOW (window); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3581 struct glyph_row *r = MATRIX_FIRST_TEXT_ROW (w->current_matrix); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3582 struct glyph_row *end = r + w->current_matrix->nrows - 1; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3583 |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3584 for (; !found && r < end && r->enabled_p; ++r) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3585 if (r->y >= y) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3586 { |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3587 struct glyph *g = r->glyphs[TEXT_AREA]; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3588 struct glyph *end = g + r->used[TEXT_AREA]; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3589 int gx; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3590 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3591 for (gx = r->x; !found && g < end; gx += g->pixel_width, ++g) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3592 if (gx >= x) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3593 { |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3594 rect->width = g->pixel_width; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3595 rect->height = r->height; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3596 rect->x = WINDOW_TO_FRAME_PIXEL_X (w, gx); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3597 rect->y = WINDOW_TO_FRAME_PIXEL_Y (w, r->y); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3598 found = 1; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3599 } |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3600 } |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3601 } |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3602 |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3603 return found; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3604 } |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3605 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3606 |
429 | 3607 /* Return the current position of the mouse. |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3608 *FP should be a frame which indicates which display to ask about. |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3609 |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3610 If the mouse movement started in a scroll bar, set *FP, *BAR_WINDOW, |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3611 and *PART to the frame, window, and scroll bar part that the mouse |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3612 is over. Set *X and *Y to the portion and whole of the mouse's |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3613 position on the scroll bar. |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3614 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3615 If the mouse movement started elsewhere, set *FP to the frame the |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3616 mouse is on, *BAR_WINDOW to nil, and *X and *Y to the character cell |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3617 the mouse is over. |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3618 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3619 Set *TIME to the server time-stamp for the time at which the mouse |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3620 was at this position. |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3621 |
3669
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3622 Don't store anything if we don't have a valid set of values to report. |
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3623 |
429 | 3624 This clears the mouse_moved flag, so we can wait for the next mouse |
15042
c99dd01d9334
(note_mouse_movement): Don't call XQueryPointer.
Richard M. Stallman <rms@gnu.org>
parents:
14963
diff
changeset
|
3625 movement. */ |
429 | 3626 |
3627 static void | |
11122
ce63fb361ae9
(XTmouse_position): New arg `insist'.
Richard M. Stallman <rms@gnu.org>
parents:
11015
diff
changeset
|
3628 XTmouse_position (fp, insist, bar_window, part, x, y, time) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3629 FRAME_PTR *fp; |
11122
ce63fb361ae9
(XTmouse_position): New arg `insist'.
Richard M. Stallman <rms@gnu.org>
parents:
11015
diff
changeset
|
3630 int insist; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3631 Lisp_Object *bar_window; |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3632 enum scroll_bar_part *part; |
429 | 3633 Lisp_Object *x, *y; |
732 | 3634 unsigned long *time; |
429 | 3635 { |
3669
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3636 FRAME_PTR f1; |
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3637 |
429 | 3638 BLOCK_INPUT; |
3639 | |
20180
bfbf6a2939a3
(XTmouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents:
19447
diff
changeset
|
3640 if (! NILP (last_mouse_scroll_bar) && insist == 0) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3641 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time); |
429 | 3642 else |
3643 { | |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3644 Window root; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3645 int root_x, root_y; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3646 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3647 Window dummy_window; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3648 int dummy; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3649 |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3650 Lisp_Object frame, tail; |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3651 |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3652 /* Clear the mouse-moved flag for every frame on this display. */ |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3653 FOR_EACH_FRAME (tail, frame) |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3654 if (FRAME_X_DISPLAY (XFRAME (frame)) == FRAME_X_DISPLAY (*fp)) |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3655 XFRAME (frame)->mouse_moved = 0; |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
3656 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3657 last_mouse_scroll_bar = Qnil; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3658 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3659 /* Figure out which root window we're on. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3660 XQueryPointer (FRAME_X_DISPLAY (*fp), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3661 DefaultRootWindow (FRAME_X_DISPLAY (*fp)), |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3662 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3663 /* The root window which contains the pointer. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3664 &root, |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3665 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3666 /* Trash which we can't trust if the pointer is on |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3667 a different screen. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3668 &dummy_window, |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3669 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3670 /* The position on that root window. */ |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3671 &root_x, &root_y, |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3672 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3673 /* More trash we can't trust. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3674 &dummy, &dummy, |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3675 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3676 /* Modifier keys and pointer buttons, about which |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3677 we don't care. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3678 (unsigned int *) &dummy); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3679 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3680 /* Now we have a position on the root; find the innermost window |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3681 containing the pointer. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3682 { |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3683 Window win, child; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3684 int win_x, win_y; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3685 int parent_x = 0, parent_y = 0; |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
3686 int count; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3687 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3688 win = root; |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3689 |
11436
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3690 /* XTranslateCoordinates can get errors if the window |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3691 structure is changing at the same time this function |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3692 is running. So at least we must not crash from them. */ |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3693 |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
3694 count = x_catch_errors (FRAME_X_DISPLAY (*fp)); |
11436
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3695 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3696 if (FRAME_X_DISPLAY_INFO (*fp)->grabbed && last_mouse_frame |
8430
356e5509efda
(construct_mouse_click, construct_menu_click):
Richard M. Stallman <rms@gnu.org>
parents:
8353
diff
changeset
|
3697 && FRAME_LIVE_P (last_mouse_frame)) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3698 { |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3699 /* If mouse was grabbed on a frame, give coords for that frame |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3700 even if the mouse is now outside it. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3701 XTranslateCoordinates (FRAME_X_DISPLAY (*fp), |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3702 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3703 /* From-window, to-window. */ |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3704 root, FRAME_X_WINDOW (last_mouse_frame), |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3705 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3706 /* From-position, to-position. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3707 root_x, root_y, &win_x, &win_y, |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3708 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3709 /* Child of win. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3710 &child); |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3711 f1 = last_mouse_frame; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3712 } |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3713 else |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3714 { |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3715 while (1) |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3716 { |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3717 XTranslateCoordinates (FRAME_X_DISPLAY (*fp), |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3718 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3719 /* From-window, to-window. */ |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3720 root, win, |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3721 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3722 /* From-position, to-position. */ |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3723 root_x, root_y, &win_x, &win_y, |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3724 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3725 /* Child of win. */ |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3726 &child); |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3727 |
13627
8873aa3451dd
(XTmouse_position): Exit the loop if child == win.
Richard M. Stallman <rms@gnu.org>
parents:
13598
diff
changeset
|
3728 if (child == None || child == win) |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3729 break; |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3730 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3731 win = child; |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3732 parent_x = win_x; |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3733 parent_y = win_y; |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3734 } |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3735 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3736 /* Now we know that: |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3737 win is the innermost window containing the pointer |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3738 (XTC says it has no child containing the pointer), |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3739 win_x and win_y are the pointer's position in it |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3740 (XTC did this the last time through), and |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3741 parent_x and parent_y are the pointer's position in win's parent. |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3742 (They are what win_x and win_y were when win was child. |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3743 If win is the root window, it has no parent, and |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3744 parent_{x,y} are invalid, but that's okay, because we'll |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3745 never use them in that case.) */ |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3746 |
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3747 /* Is win one of our frames? */ |
11198
571306c7b038
New arg DPYINFO to all callers of x_window_to_frame, x_any_window_to_frame,
Karl Heuer <kwzh@gnu.org>
parents:
11166
diff
changeset
|
3748 f1 = x_any_window_to_frame (FRAME_X_DISPLAY_INFO (*fp), win); |
34008
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3749 |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3750 #ifdef USE_X_TOOLKIT |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3751 /* If we end up with the menu bar window, say it's not |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3752 on the frame. */ |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3753 if (f1 != NULL |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3754 && f1->output_data.x->menubar_widget |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3755 && win == XtWindow (f1->output_data.x->menubar_widget)) |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3756 f1 = NULL; |
8702e88a1669
(XTmouse_position) [USE_X_TOOLKIT]: When the mouse
Gerd Moellmann <gerd@gnu.org>
parents:
33958
diff
changeset
|
3757 #endif /* USE_X_TOOLKIT */ |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
3758 } |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
3759 |
11436
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3760 if (x_had_errors_p (FRAME_X_DISPLAY (*fp))) |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3761 f1 = 0; |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3762 |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
3763 x_uncatch_errors (FRAME_X_DISPLAY (*fp), count); |
11436
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
3764 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3765 /* If not, is it one of our scroll bars? */ |
3669
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3766 if (! f1) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3767 { |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3768 struct scroll_bar *bar = x_window_to_scroll_bar (win); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3769 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3770 if (bar) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3771 { |
3669
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3772 f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3773 win_x = parent_x; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3774 win_y = parent_y; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3775 } |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3776 } |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3777 |
20180
bfbf6a2939a3
(XTmouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents:
19447
diff
changeset
|
3778 if (f1 == 0 && insist > 0) |
25682
f8543a6d88ca
(XTcursor_to): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents:
25646
diff
changeset
|
3779 f1 = SELECTED_FRAME (); |
11122
ce63fb361ae9
(XTmouse_position): New arg `insist'.
Richard M. Stallman <rms@gnu.org>
parents:
11015
diff
changeset
|
3780 |
3669
fd4187a96445
(XTmouse_position): Don't set *f at all unless we win.
Richard M. Stallman <rms@gnu.org>
parents:
3639
diff
changeset
|
3781 if (f1) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3782 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3783 /* Ok, we found a frame. Store all the values. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3784 last_mouse_glyph is a rectangle used to reduce the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3785 generation of mouse events. To not miss any motion |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3786 events, we must divide the frame into rectangles of the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3787 size of the smallest character that could be displayed |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3788 on it, i.e. into the same rectangles that matrices on |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3789 the frame are divided into. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3790 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3791 int width, height, gx, gy; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3792 XRectangle rect; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3793 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3794 if (glyph_rect (f1, win_x, win_y, &rect)) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3795 last_mouse_glyph = rect; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3796 else |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3797 { |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3798 width = FRAME_SMALLEST_CHAR_WIDTH (f1); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3799 height = FRAME_SMALLEST_FONT_HEIGHT (f1); |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3800 gx = win_x; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3801 gy = win_y; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3802 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
3803 /* Arrange for the division in FRAME_PIXEL_X_TO_COL etc. to |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3804 round down even for negative values. */ |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3805 if (gx < 0) |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3806 gx -= width - 1; |
36555 | 3807 if (gy < 0) |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3808 gy -= height - 1; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3809 gx = (gx + width - 1) / width * width; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3810 gy = (gy + height - 1) / height * height; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3811 |
36492
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3812 last_mouse_glyph.width = width; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3813 last_mouse_glyph.height = height; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3814 last_mouse_glyph.x = gx; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3815 last_mouse_glyph.y = gy; |
da77079d6981
(glyph_rect): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
36475
diff
changeset
|
3816 } |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3817 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3818 *bar_window = Qnil; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3819 *part = 0; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
3820 *fp = f1; |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
3821 XSETINT (*x, win_x); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
3822 XSETINT (*y, win_y); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3823 *time = last_mouse_movement_time; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3824 } |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
3825 } |
429 | 3826 } |
3827 | |
3828 UNBLOCK_INPUT; | |
3829 } | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3830 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3831 |
429 | 3832 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
3833 /*********************************************************************** |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
3834 Scroll bars |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
3835 ***********************************************************************/ |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
3836 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3837 /* Scroll bar support. */ |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3838 |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3839 /* Given an X window ID, find the struct scroll_bar which manages it. |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3840 This can be called in GC, so we have to make sure to strip off mark |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3841 bits. */ |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
3842 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3843 static struct scroll_bar * |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3844 x_window_to_scroll_bar (window_id) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3845 Window window_id; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3846 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3847 Lisp_Object tail; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3848 |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
3849 #ifdef USE_GTK |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
3850 window_id = (Window) xg_get_scroll_id_for_window (window_id); |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
3851 #endif /* USE_GTK */ |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
3852 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3853 for (tail = Vframe_list; |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3854 XGCTYPE (tail) == Lisp_Cons; |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
3855 tail = XCDR (tail)) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3856 { |
6521
a975c5944916
(x_window_to_scroll_bar, x_new_font): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6413
diff
changeset
|
3857 Lisp_Object frame, bar, condemned; |
a975c5944916
(x_window_to_scroll_bar, x_new_font): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents:
6413
diff
changeset
|
3858 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
3859 frame = XCAR (tail); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3860 /* All elements of Vframe_list should be frames. */ |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
3861 if (! GC_FRAMEP (frame)) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3862 abort (); |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3863 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3864 /* Scan this frame's scroll bar list for a scroll bar with the |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3865 right window ID. */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3866 condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame)); |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3867 for (bar = FRAME_SCROLL_BARS (XFRAME (frame)); |
1803
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
3868 /* This trick allows us to search both the ordinary and |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3869 condemned scroll bar lists with one loop. */ |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3870 ! GC_NILP (bar) || (bar = condemned, |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3871 condemned = Qnil, |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3872 ! GC_NILP (bar)); |
5825
b1f35db748d8
(x_make_frame_invisible): Add USE_X_TOOLKIT conditional.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5753
diff
changeset
|
3873 bar = XSCROLL_BAR (bar)->next) |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3874 if (SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)) == window_id) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
3875 return XSCROLL_BAR (bar); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3876 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3877 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3878 return 0; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3879 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
3880 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3881 |
39671
45d46b88cdd1
USE_LUCID can be defined iff USE_X_TOOLKIT is defined.
Pavel Janík <Pavel@Janik.cz>
parents:
39618
diff
changeset
|
3882 #if defined USE_LUCID |
37525
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3883 |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3884 /* Return the Lucid menu bar WINDOW is part of. Return null |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3885 if WINDOW is not part of a menu bar. */ |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3886 |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3887 static Widget |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3888 x_window_to_menu_bar (window) |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3889 Window window; |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3890 { |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3891 Lisp_Object tail; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3892 |
37525
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3893 for (tail = Vframe_list; |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3894 XGCTYPE (tail) == Lisp_Cons; |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3895 tail = XCDR (tail)) |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3896 { |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3897 Lisp_Object frame = XCAR (tail); |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3898 Widget menu_bar = XFRAME (frame)->output_data.x->menubar_widget; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3899 |
37525
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3900 if (menu_bar && xlwmenu_window_p (menu_bar, window)) |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3901 return menu_bar; |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3902 } |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3903 |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3904 return NULL; |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3905 } |
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3906 |
39671
45d46b88cdd1
USE_LUCID can be defined iff USE_X_TOOLKIT is defined.
Pavel Janík <Pavel@Janik.cz>
parents:
39618
diff
changeset
|
3907 #endif /* USE_LUCID */ |
37525
3ae3b09f76a1
(x_window_to_menu_bar) [USE_LUCID]: New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37212
diff
changeset
|
3908 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3909 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3910 /************************************************************************ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3911 Toolkit scroll bars |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3912 ************************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3913 |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
3914 #ifdef USE_TOOLKIT_SCROLL_BARS |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3915 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3916 static void x_scroll_bar_to_input_event P_ ((XEvent *, struct input_event *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3917 static void x_send_scroll_bar_event P_ ((Lisp_Object, int, int, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3918 static void x_create_toolkit_scroll_bar P_ ((struct frame *, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3919 struct scroll_bar *)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3920 static void x_set_toolkit_scroll_bar_thumb P_ ((struct scroll_bar *, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3921 int, int, int)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3922 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3923 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3924 /* Lisp window being scrolled. Set when starting to interact with |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3925 a toolkit scroll bar, reset to nil when ending the interaction. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3926 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3927 static Lisp_Object window_being_scrolled; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3928 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3929 /* Last scroll bar part sent in xm_scroll_callback. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3930 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3931 static int last_scroll_bar_part; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3932 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3933 /* Whether this is an Xaw with arrow-scrollbars. This should imply |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3934 that movements of 1/20 of the screen size are mapped to up/down. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3935 |
49322 | 3936 #ifndef USE_GTK |
3937 /* Id of action hook installed for scroll bars. */ | |
3938 | |
3939 static XtActionHookId action_hook_id; | |
3940 | |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3941 static Boolean xaw3d_arrow_scroll; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3942 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3943 /* Whether the drag scrolling maintains the mouse at the top of the |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3944 thumb. If not, resizing the thumb needs to be done more carefully |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3945 to avoid jerkyness. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3946 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3947 static Boolean xaw3d_pick_top; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3948 |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
3949 extern void set_vertical_scroll_bar P_ ((struct window *)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3950 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3951 /* Action hook installed via XtAppAddActionHook when toolkit scroll |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3952 bars are used.. The hook is responsible for detecting when |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3953 the user ends an interaction with the scroll bar, and generates |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
3954 a `end-scroll' SCROLL_BAR_CLICK_EVENT' event if so. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3955 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3956 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3957 xt_action_hook (widget, client_data, action_name, event, params, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3958 num_params) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3959 Widget widget; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3960 XtPointer client_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3961 String action_name; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3962 XEvent *event; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3963 String *params; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3964 Cardinal *num_params; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3965 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3966 int scroll_bar_p; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3967 char *end_action; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3968 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3969 #ifdef USE_MOTIF |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3970 scroll_bar_p = XmIsScrollBar (widget); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3971 end_action = "Release"; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3972 #else /* !USE_MOTIF i.e. use Xaw */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3973 scroll_bar_p = XtIsSubclass (widget, scrollbarWidgetClass); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3974 end_action = "EndScroll"; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
3975 #endif /* USE_MOTIF */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3976 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3977 if (scroll_bar_p |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3978 && strcmp (action_name, end_action) == 0 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3979 && WINDOWP (window_being_scrolled)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3980 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3981 struct window *w; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
3982 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3983 x_send_scroll_bar_event (window_being_scrolled, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3984 scroll_bar_end_scroll, 0, 0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3985 w = XWINDOW (window_being_scrolled); |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
3986 |
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
3987 if (!NILP (XSCROLL_BAR (w->vertical_scroll_bar)->dragging)) |
50327
f139cd7e1d62
(xt_action_hook): Unset dragging so the reset does take place.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50326
diff
changeset
|
3988 { |
f139cd7e1d62
(xt_action_hook): Unset dragging so the reset does take place.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50326
diff
changeset
|
3989 XSCROLL_BAR (w->vertical_scroll_bar)->dragging = Qnil; |
f139cd7e1d62
(xt_action_hook): Unset dragging so the reset does take place.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50326
diff
changeset
|
3990 /* The thumb size is incorrect while dragging: fix it. */ |
f139cd7e1d62
(xt_action_hook): Unset dragging so the reset does take place.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50326
diff
changeset
|
3991 set_vertical_scroll_bar (w); |
f139cd7e1d62
(xt_action_hook): Unset dragging so the reset does take place.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50326
diff
changeset
|
3992 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3993 window_being_scrolled = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3994 last_scroll_bar_part = -1; |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
3995 |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
3996 /* Xt timeouts no longer needed. */ |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
3997 toolkit_scroll_bar_interaction = 0; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3998 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
3999 } |
49322 | 4000 #endif /* not USE_GTK */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4001 |
33643
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4002 /* A vector of windows used for communication between |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4003 x_send_scroll_bar_event and x_scroll_bar_to_input_event. */ |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4004 |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4005 static struct window **scroll_bar_windows; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4006 static int scroll_bar_windows_size; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4007 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4008 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4009 /* Send a client message with message type Xatom_Scrollbar for a |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4010 scroll action to the frame of WINDOW. PART is a value identifying |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4011 the part of the scroll bar that was clicked on. PORTION is the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4012 amount to scroll of a whole of WHOLE. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4013 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4014 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4015 x_send_scroll_bar_event (window, part, portion, whole) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4016 Lisp_Object window; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4017 int part, portion, whole; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4018 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4019 XEvent event; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4020 XClientMessageEvent *ev = (XClientMessageEvent *) &event; |
33643
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4021 struct window *w = XWINDOW (window); |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4022 struct frame *f = XFRAME (w->frame); |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4023 int i; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4024 |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4025 BLOCK_INPUT; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4026 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4027 /* Construct a ClientMessage event to send to the frame. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4028 ev->type = ClientMessage; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4029 ev->message_type = FRAME_X_DISPLAY_INFO (f)->Xatom_Scrollbar; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4030 ev->display = FRAME_X_DISPLAY (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4031 ev->window = FRAME_X_WINDOW (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4032 ev->format = 32; |
33643
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4033 |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4034 /* We can only transfer 32 bits in the XClientMessageEvent, which is |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4035 not enough to store a pointer or Lisp_Object on a 64 bit system. |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4036 So, store the window in scroll_bar_windows and pass the index |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4037 into that array in the event. */ |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4038 for (i = 0; i < scroll_bar_windows_size; ++i) |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4039 if (scroll_bar_windows[i] == NULL) |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4040 break; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4041 |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4042 if (i == scroll_bar_windows_size) |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4043 { |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4044 int new_size = max (10, 2 * scroll_bar_windows_size); |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4045 size_t nbytes = new_size * sizeof *scroll_bar_windows; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4046 size_t old_nbytes = scroll_bar_windows_size * sizeof *scroll_bar_windows; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4047 |
33643
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4048 scroll_bar_windows = (struct window **) xrealloc (scroll_bar_windows, |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4049 nbytes); |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4050 bzero (&scroll_bar_windows[i], nbytes - old_nbytes); |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4051 scroll_bar_windows_size = new_size; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4052 } |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4053 |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4054 scroll_bar_windows[i] = w; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4055 ev->data.l[0] = (long) i; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4056 ev->data.l[1] = (long) part; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4057 ev->data.l[2] = (long) 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4058 ev->data.l[3] = (long) portion; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4059 ev->data.l[4] = (long) whole; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4060 |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
4061 /* Make Xt timeouts work while the scroll bar is active. */ |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
4062 toolkit_scroll_bar_interaction = 1; |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
4063 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4064 /* Setting the event mask to zero means that the message will |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4065 be sent to the client that created the window, and if that |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4066 window no longer exists, no event will be sent. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4067 XSendEvent (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), False, 0, &event); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4068 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4069 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4070 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4071 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4072 /* Transform a scroll bar ClientMessage EVENT to an Emacs input event |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4073 in *IEVENT. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4074 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4075 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4076 x_scroll_bar_to_input_event (event, ievent) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4077 XEvent *event; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4078 struct input_event *ievent; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4079 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4080 XClientMessageEvent *ev = (XClientMessageEvent *) event; |
29717
acaa36b47f50
fix up more Lisp_Object/int conversion issues
Ken Raeburn <raeburn@raeburn.org>
parents:
29619
diff
changeset
|
4081 Lisp_Object window; |
acaa36b47f50
fix up more Lisp_Object/int conversion issues
Ken Raeburn <raeburn@raeburn.org>
parents:
29619
diff
changeset
|
4082 struct frame *f; |
33643
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4083 struct window *w; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4084 |
33643
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4085 w = scroll_bar_windows[ev->data.l[0]]; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4086 scroll_bar_windows[ev->data.l[0]] = NULL; |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4087 |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4088 XSETWINDOW (window, w); |
5c2be00ed2ba
(scroll_bar_windows, scroll_bar_windows_size): New
Gerd Moellmann <gerd@gnu.org>
parents:
33606
diff
changeset
|
4089 f = XFRAME (w->frame); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4090 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
4091 ievent->kind = SCROLL_BAR_CLICK_EVENT; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4092 ievent->frame_or_window = window; |
30197
3237a5529020
(construct_mouse_click, x_scroll_bar_to_input_event)
Gerd Moellmann <gerd@gnu.org>
parents:
30182
diff
changeset
|
4093 ievent->arg = Qnil; |
49322 | 4094 #ifdef USE_GTK |
4095 ievent->timestamp = CurrentTime; | |
4096 #else | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4097 ievent->timestamp = XtLastTimestampProcessed (FRAME_X_DISPLAY (f)); |
49322 | 4098 #endif |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4099 ievent->part = ev->data.l[1]; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4100 ievent->code = ev->data.l[2]; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4101 ievent->x = make_number ((int) ev->data.l[3]); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4102 ievent->y = make_number ((int) ev->data.l[4]); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4103 ievent->modifiers = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4104 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4105 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4106 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4107 #ifdef USE_MOTIF |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4108 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4109 /* Minimum and maximum values used for Motif scroll bars. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4110 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4111 #define XM_SB_MAX 10000000 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4112 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4113 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4114 /* Scroll bar callback for Motif scroll bars. WIDGET is the scroll |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4115 bar widget. CLIENT_DATA is a pointer to the scroll_bar structure. |
46159 | 4116 CALL_DATA is a pointer to a XmScrollBarCallbackStruct. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4117 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4118 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4119 xm_scroll_callback (widget, client_data, call_data) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4120 Widget widget; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4121 XtPointer client_data, call_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4122 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4123 struct scroll_bar *bar = (struct scroll_bar *) client_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4124 XmScrollBarCallbackStruct *cs = (XmScrollBarCallbackStruct *) call_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4125 int part = -1, whole = 0, portion = 0; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4126 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4127 switch (cs->reason) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4128 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4129 case XmCR_DECREMENT: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4130 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4131 part = scroll_bar_up_arrow; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4132 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4133 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4134 case XmCR_INCREMENT: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4135 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4136 part = scroll_bar_down_arrow; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4137 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4138 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4139 case XmCR_PAGE_DECREMENT: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4140 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4141 part = scroll_bar_above_handle; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4142 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4143 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4144 case XmCR_PAGE_INCREMENT: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4145 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4146 part = scroll_bar_below_handle; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4147 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4148 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4149 case XmCR_TO_TOP: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4150 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4151 part = scroll_bar_to_top; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4152 break; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4153 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4154 case XmCR_TO_BOTTOM: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4155 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4156 part = scroll_bar_to_bottom; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4157 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4158 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4159 case XmCR_DRAG: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4160 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4161 int slider_size; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4162 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4163 /* Get the slider size. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4164 BLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4165 XtVaGetValues (widget, XmNsliderSize, &slider_size, NULL); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4166 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4167 |
50326
d63b3eeca844
(xm_scroll_callback): Undo a tiny bit of the previous change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50324
diff
changeset
|
4168 whole = XM_SB_MAX - slider_size; |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
4169 portion = min (cs->value, whole); |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4170 part = scroll_bar_handle; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4171 bar->dragging = make_number (cs->value); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4172 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4173 break; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4174 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4175 case XmCR_VALUE_CHANGED: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4176 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4177 }; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4178 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4179 if (part >= 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4180 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4181 window_being_scrolled = bar->window; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4182 last_scroll_bar_part = part; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4183 x_send_scroll_bar_event (bar->window, part, portion, whole); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4184 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4185 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4186 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4187 |
49322 | 4188 #else /* !USE_MOTIF, i.e. Xaw or GTK */ |
4189 #ifdef USE_GTK | |
50177
297925dd73b1
New approach to scrolling and scroll bars for better redraw and smoother
Jan Djärv <jan.h.d@swipnet.se>
parents:
50151
diff
changeset
|
4190 /* Scroll bar callback for GTK scroll bars. WIDGET is the scroll |
50521
3b4cda88d7ef
* xterm.c (xg_scroll_callback): Call gtk_range_get_adjustment to
Jan Djärv <jan.h.d@swipnet.se>
parents:
50371
diff
changeset
|
4191 bar widget. DATA is a pointer to the scroll_bar structure. */ |
49322 | 4192 |
4193 static void | |
4194 xg_scroll_callback (widget, data) | |
50521
3b4cda88d7ef
* xterm.c (xg_scroll_callback): Call gtk_range_get_adjustment to
Jan Djärv <jan.h.d@swipnet.se>
parents:
50371
diff
changeset
|
4195 GtkRange *widget; |
49322 | 4196 gpointer data; |
4197 { | |
4198 struct scroll_bar *bar = (struct scroll_bar *) data; | |
4199 gdouble previous; | |
4200 gdouble position; | |
4201 gdouble *p; | |
4202 int diff; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
4203 |
49322 | 4204 int part = -1, whole = 0, portion = 0; |
50521
3b4cda88d7ef
* xterm.c (xg_scroll_callback): Call gtk_range_get_adjustment to
Jan Djärv <jan.h.d@swipnet.se>
parents:
50371
diff
changeset
|
4205 GtkAdjustment *adj = GTK_ADJUSTMENT (gtk_range_get_adjustment (widget)); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
4206 |
49322 | 4207 if (xg_ignore_gtk_scrollbar) return; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
4208 |
49322 | 4209 position = gtk_adjustment_get_value (adj); |
4210 | |
4211 p = g_object_get_data (G_OBJECT (widget), XG_LAST_SB_DATA); | |
4212 if (! p) | |
4213 { | |
4214 p = (gdouble*) xmalloc (sizeof (gdouble)); | |
4215 *p = XG_SB_MIN; | |
4216 g_object_set_data (G_OBJECT (widget), XG_LAST_SB_DATA, p); | |
4217 } | |
4218 | |
4219 previous = *p; | |
4220 *p = position; | |
4221 | |
4222 diff = (int) (position - previous); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
4223 |
49322 | 4224 if (diff == (int) adj->step_increment) |
4225 { | |
4226 part = scroll_bar_down_arrow; | |
4227 bar->dragging = Qnil; | |
4228 } | |
4229 else if (-diff == (int) adj->step_increment) | |
4230 { | |
4231 part = scroll_bar_up_arrow; | |
4232 bar->dragging = Qnil; | |
4233 } | |
4234 else if (diff == (int) adj->page_increment) | |
4235 { | |
4236 part = scroll_bar_below_handle; | |
4237 bar->dragging = Qnil; | |
4238 } | |
4239 else if (-diff == (int) adj->page_increment) | |
4240 { | |
4241 part = scroll_bar_above_handle; | |
4242 bar->dragging = Qnil; | |
4243 } | |
4244 else | |
4245 { | |
4246 part = scroll_bar_handle; | |
4247 whole = adj->upper - adj->page_size; | |
50177
297925dd73b1
New approach to scrolling and scroll bars for better redraw and smoother
Jan Djärv <jan.h.d@swipnet.se>
parents:
50151
diff
changeset
|
4248 portion = min ((int)position, whole); |
297925dd73b1
New approach to scrolling and scroll bars for better redraw and smoother
Jan Djärv <jan.h.d@swipnet.se>
parents:
50151
diff
changeset
|
4249 bar->dragging = make_number ((int)portion); |
49322 | 4250 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
4251 |
49322 | 4252 if (part >= 0) |
4253 { | |
4254 window_being_scrolled = bar->window; | |
4255 last_scroll_bar_part = part; | |
4256 x_send_scroll_bar_event (bar->window, part, portion, whole); | |
4257 } | |
4258 } | |
4259 | |
4260 #else /* not USE_GTK */ | |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4261 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4262 /* Xaw scroll bar callback. Invoked when the thumb is dragged. |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4263 WIDGET is the scroll bar widget. CLIENT_DATA is a pointer to the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4264 scroll bar struct. CALL_DATA is a pointer to a float saying where |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4265 the thumb is. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4266 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4267 static void |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4268 xaw_jump_callback (widget, client_data, call_data) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4269 Widget widget; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4270 XtPointer client_data, call_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4271 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4272 struct scroll_bar *bar = (struct scroll_bar *) client_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4273 float top = *(float *) call_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4274 float shown; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4275 int whole, portion, height; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4276 int part; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4277 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4278 /* Get the size of the thumb, a value between 0 and 1. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4279 BLOCK_INPUT; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4280 XtVaGetValues (widget, XtNshown, &shown, XtNheight, &height, NULL); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4281 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4282 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4283 whole = 10000000; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4284 portion = shown < 1 ? top * whole : 0; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4285 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4286 if (shown < 1 && (abs (top + shown - 1) < 1.0/height)) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4287 /* Some derivatives of Xaw refuse to shrink the thumb when you reach |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4288 the bottom, so we force the scrolling whenever we see that we're |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4289 too close to the bottom (in x_set_toolkit_scroll_bar_thumb |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4290 we try to ensure that we always stay two pixels away from the |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4291 bottom). */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4292 part = scroll_bar_down_arrow; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4293 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4294 part = scroll_bar_handle; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4295 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4296 window_being_scrolled = bar->window; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4297 bar->dragging = make_number (portion); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4298 last_scroll_bar_part = part; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4299 x_send_scroll_bar_event (bar->window, part, portion, whole); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4300 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4301 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4302 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4303 /* Xaw scroll bar callback. Invoked for incremental scrolling., |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4304 i.e. line or page up or down. WIDGET is the Xaw scroll bar |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4305 widget. CLIENT_DATA is a pointer to the scroll_bar structure for |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4306 the scroll bar. CALL_DATA is an integer specifying the action that |
48085 | 4307 has taken place. Its magnitude is in the range 0..height of the |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4308 scroll bar. Negative values mean scroll towards buffer start. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4309 Values < height of scroll bar mean line-wise movement. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4310 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4311 static void |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4312 xaw_scroll_callback (widget, client_data, call_data) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4313 Widget widget; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4314 XtPointer client_data, call_data; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4315 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4316 struct scroll_bar *bar = (struct scroll_bar *) client_data; |
48100 | 4317 /* The position really is stored cast to a pointer. */ |
4318 int position = (long) call_data; | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4319 Dimension height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4320 int part; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4321 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4322 /* Get the height of the scroll bar. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4323 BLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4324 XtVaGetValues (widget, XtNheight, &height, NULL); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4325 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4326 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4327 if (abs (position) >= height) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4328 part = (position < 0) ? scroll_bar_above_handle : scroll_bar_below_handle; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4329 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4330 /* If Xaw3d was compiled with ARROW_SCROLLBAR, |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4331 it maps line-movement to call_data = max(5, height/20). */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4332 else if (xaw3d_arrow_scroll && abs (position) <= max (5, height / 20)) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4333 part = (position < 0) ? scroll_bar_up_arrow : scroll_bar_down_arrow; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4334 else |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4335 part = scroll_bar_move_ratio; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4336 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4337 window_being_scrolled = bar->window; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4338 bar->dragging = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4339 last_scroll_bar_part = part; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4340 x_send_scroll_bar_event (bar->window, part, position, height); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4341 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4342 |
49322 | 4343 #endif /* not USE_GTK */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4344 #endif /* not USE_MOTIF */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4345 |
49322 | 4346 #define SCROLL_BAR_NAME "verticalScrollBar" |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4347 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4348 /* Create the widget for scroll bar BAR on frame F. Record the widget |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4349 and X window of the scroll bar in BAR. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4350 |
49322 | 4351 #ifdef USE_GTK |
4352 static void | |
4353 x_create_toolkit_scroll_bar (f, bar) | |
4354 struct frame *f; | |
4355 struct scroll_bar *bar; | |
4356 { | |
4357 char *scroll_bar_name = SCROLL_BAR_NAME; | |
4358 | |
4359 BLOCK_INPUT; | |
4360 xg_create_scroll_bar (f, bar, G_CALLBACK (xg_scroll_callback), | |
4361 scroll_bar_name); | |
4362 UNBLOCK_INPUT; | |
4363 } | |
4364 | |
4365 #else /* not USE_GTK */ | |
4366 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4367 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4368 x_create_toolkit_scroll_bar (f, bar) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4369 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4370 struct scroll_bar *bar; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4371 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4372 Window xwindow; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4373 Widget widget; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4374 Arg av[20]; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4375 int ac = 0; |
49322 | 4376 char *scroll_bar_name = SCROLL_BAR_NAME; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4377 unsigned long pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4378 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4379 BLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4380 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4381 #ifdef USE_MOTIF |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4382 /* Set resources. Create the widget. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4383 XtSetArg (av[ac], XtNmappedWhenManaged, False); ++ac; |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
4384 XtSetArg (av[ac], XmNminimum, 0); ++ac; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4385 XtSetArg (av[ac], XmNmaximum, XM_SB_MAX); ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4386 XtSetArg (av[ac], XmNorientation, XmVERTICAL); ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4387 XtSetArg (av[ac], XmNprocessingDirection, XmMAX_ON_BOTTOM), ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4388 XtSetArg (av[ac], XmNincrement, 1); ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4389 XtSetArg (av[ac], XmNpageIncrement, 1); ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4390 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4391 pixel = f->output_data.x->scroll_bar_foreground_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4392 if (pixel != -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4393 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4394 XtSetArg (av[ac], XmNforeground, pixel); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4395 ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4396 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4397 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4398 pixel = f->output_data.x->scroll_bar_background_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4399 if (pixel != -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4400 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4401 XtSetArg (av[ac], XmNbackground, pixel); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4402 ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4403 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4404 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4405 widget = XmCreateScrollBar (f->output_data.x->edit_widget, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4406 scroll_bar_name, av, ac); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4407 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4408 /* Add one callback for everything that can happen. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4409 XtAddCallback (widget, XmNdecrementCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4410 (XtPointer) bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4411 XtAddCallback (widget, XmNdragCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4412 (XtPointer) bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4413 XtAddCallback (widget, XmNincrementCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4414 (XtPointer) bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4415 XtAddCallback (widget, XmNpageDecrementCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4416 (XtPointer) bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4417 XtAddCallback (widget, XmNpageIncrementCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4418 (XtPointer) bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4419 XtAddCallback (widget, XmNtoBottomCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4420 (XtPointer) bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4421 XtAddCallback (widget, XmNtoTopCallback, xm_scroll_callback, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4422 (XtPointer) bar); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4423 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4424 /* Realize the widget. Only after that is the X window created. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4425 XtRealizeWidget (widget); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4426 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4427 /* Set the cursor to an arrow. I didn't find a resource to do that. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4428 And I'm wondering why it hasn't an arrow cursor by default. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4429 XDefineCursor (XtDisplay (widget), XtWindow (widget), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4430 f->output_data.x->nontext_cursor); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4431 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4432 #else /* !USE_MOTIF i.e. use Xaw */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4433 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4434 /* Set resources. Create the widget. The background of the |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4435 Xaw3d scroll bar widget is a little bit light for my taste. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4436 We don't alter it here to let users change it according |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4437 to their taste with `emacs*verticalScrollBar.background: xxx'. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4438 XtSetArg (av[ac], XtNmappedWhenManaged, False); ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4439 XtSetArg (av[ac], XtNorientation, XtorientVertical); ++ac; |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4440 /* For smoother scrolling with Xaw3d -sm */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4441 /* XtSetArg (av[ac], XtNpickTop, True); ++ac; */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4442 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4443 pixel = f->output_data.x->scroll_bar_foreground_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4444 if (pixel != -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4445 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4446 XtSetArg (av[ac], XtNforeground, pixel); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4447 ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4448 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4449 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4450 pixel = f->output_data.x->scroll_bar_background_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4451 if (pixel != -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4452 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4453 XtSetArg (av[ac], XtNbackground, pixel); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4454 ++ac; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4455 } |
39618
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4456 |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4457 /* Top/bottom shadow colors. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4458 |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4459 /* Allocate them, if necessary. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4460 if (f->output_data.x->scroll_bar_top_shadow_pixel == -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4461 { |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4462 pixel = f->output_data.x->scroll_bar_background_pixel; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4463 if (!x_alloc_lighter_color (f, FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4464 &pixel, 1.2, 0x8000)) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4465 pixel = -1; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4466 f->output_data.x->scroll_bar_top_shadow_pixel = pixel; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4467 } |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4468 if (f->output_data.x->scroll_bar_bottom_shadow_pixel == -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4469 { |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4470 pixel = f->output_data.x->scroll_bar_background_pixel; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4471 if (!x_alloc_lighter_color (f, FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4472 &pixel, 0.6, 0x4000)) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4473 pixel = -1; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4474 f->output_data.x->scroll_bar_bottom_shadow_pixel = pixel; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4475 } |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4476 |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4477 /* Tell the toolkit about them. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4478 if (f->output_data.x->scroll_bar_top_shadow_pixel == -1 |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4479 || f->output_data.x->scroll_bar_bottom_shadow_pixel == -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4480 /* We tried to allocate a color for the top/bottom shadow, and |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4481 failed, so tell Xaw3d to use dithering instead. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4482 { |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4483 XtSetArg (av[ac], XtNbeNiceToColormap, True); |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4484 ++ac; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4485 } |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4486 else |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4487 /* Tell what colors Xaw3d should use for the top/bottom shadow, to |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4488 be more consistent with other emacs 3d colors, and since Xaw3d is |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4489 not good at dealing with allocation failure. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4490 { |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4491 /* This tells Xaw3d to use real colors instead of dithering for |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4492 the shadows. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4493 XtSetArg (av[ac], XtNbeNiceToColormap, False); |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4494 ++ac; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4495 |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4496 /* Specify the colors. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4497 pixel = f->output_data.x->scroll_bar_top_shadow_pixel; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4498 if (pixel != -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4499 { |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4500 XtSetArg (av[ac], "topShadowPixel", pixel); |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4501 ++ac; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4502 } |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4503 pixel = f->output_data.x->scroll_bar_bottom_shadow_pixel; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4504 if (pixel != -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4505 { |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4506 XtSetArg (av[ac], "bottomShadowPixel", pixel); |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4507 ++ac; |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4508 } |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4509 } |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
4510 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4511 widget = XtCreateWidget (scroll_bar_name, scrollbarWidgetClass, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4512 f->output_data.x->edit_widget, av, ac); |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4513 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4514 { |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4515 char *initial = ""; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4516 char *val = initial; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4517 XtVaGetValues (widget, XtNscrollVCursor, (XtPointer) &val, |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4518 XtNpickTop, (XtPointer) &xaw3d_pick_top, NULL); |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4519 if (val == initial) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4520 { /* ARROW_SCROLL */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4521 xaw3d_arrow_scroll = True; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4522 /* Isn't that just a personal preference ? -sm */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4523 XtVaSetValues (widget, XtNcursorName, "top_left_arrow", NULL); |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4524 } |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4525 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4526 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4527 /* Define callbacks. */ |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4528 XtAddCallback (widget, XtNjumpProc, xaw_jump_callback, (XtPointer) bar); |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4529 XtAddCallback (widget, XtNscrollProc, xaw_scroll_callback, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4530 (XtPointer) bar); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4531 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4532 /* Realize the widget. Only after that is the X window created. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4533 XtRealizeWidget (widget); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4534 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4535 #endif /* !USE_MOTIF */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4536 |
46814 | 4537 /* Install an action hook that lets us detect when the user |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4538 finishes interacting with a scroll bar. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4539 if (action_hook_id == 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4540 action_hook_id = XtAppAddActionHook (Xt_app_con, xt_action_hook, 0); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4541 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4542 /* Remember X window and widget in the scroll bar vector. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4543 SET_SCROLL_BAR_X_WIDGET (bar, widget); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4544 xwindow = XtWindow (widget); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4545 SET_SCROLL_BAR_X_WINDOW (bar, xwindow); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4546 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4547 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4548 } |
49322 | 4549 #endif /* not USE_GTK */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4550 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4551 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4552 /* Set the thumb size and position of scroll bar BAR. We are currently |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4553 displaying PORTION out of a whole WHOLE, and our position POSITION. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4554 |
49322 | 4555 #ifdef USE_GTK |
4556 static void | |
4557 x_set_toolkit_scroll_bar_thumb (bar, portion, position, whole) | |
4558 struct scroll_bar *bar; | |
4559 int portion, position, whole; | |
4560 { | |
4561 xg_set_toolkit_scroll_bar_thumb (bar, portion, position, whole); | |
4562 } | |
4563 | |
4564 #else /* not USE_GTK */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4565 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4566 x_set_toolkit_scroll_bar_thumb (bar, portion, position, whole) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4567 struct scroll_bar *bar; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4568 int portion, position, whole; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4569 { |
33606
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4570 struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4571 Widget widget = SCROLL_BAR_X_WIDGET (FRAME_X_DISPLAY (f), bar); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4572 float top, shown; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4573 |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4574 BLOCK_INPUT; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4575 |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4576 #ifdef USE_MOTIF |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4577 |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4578 /* We use an estimate of 30 chars per line rather than the real |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4579 `portion' value. This has the disadvantage that the thumb size |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4580 is not very representative, but it makes our life a lot easier. |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4581 Otherwise, we have to constantly adjust the thumb size, which |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4582 we can't always do quickly enough: while dragging, the size of |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4583 the thumb might prevent the user from dragging the thumb all the |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4584 way to the end. but Motif and some versions of Xaw3d don't allow |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4585 updating the thumb size while dragging. Also, even if we can update |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4586 its size, the update will often happen too late. |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4587 If you don't believe it, check out revision 1.650 of xterm.c to see |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4588 what hoops we were going through and the still poor behavior we got. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4589 portion = WINDOW_TOTAL_LINES (XWINDOW (bar->window)) * 30; |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4590 /* When the thumb is at the bottom, position == whole. |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4591 So we need to increase `whole' to make space for the thumb. */ |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4592 whole += portion; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4593 |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4594 if (whole <= 0) |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4595 top = 0, shown = 1; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4596 else |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4597 { |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4598 top = (float) position / whole; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4599 shown = (float) portion / whole; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4600 } |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4601 |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4602 if (NILP (bar->dragging)) |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4603 { |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4604 int size, value; |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4605 |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4606 /* Slider size. Must be in the range [1 .. MAX - MIN] where MAX |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4607 is the scroll bar's maximum and MIN is the scroll bar's minimum |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4608 value. */ |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
4609 size = shown * XM_SB_MAX; |
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
4610 size = min (size, XM_SB_MAX); |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4611 size = max (size, 1); |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4612 |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4613 /* Position. Must be in the range [MIN .. MAX - SLIDER_SIZE]. */ |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
4614 value = top * XM_SB_MAX; |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4615 value = min (value, XM_SB_MAX - size); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4616 |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4617 XmScrollBarSetValues (widget, value, size, 0, 0, False); |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4618 } |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4619 #else /* !USE_MOTIF i.e. use Xaw */ |
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
4620 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4621 if (whole == 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4622 top = 0, shown = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4623 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4624 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4625 top = (float) position / whole; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4626 shown = (float) portion / whole; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4627 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4628 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4629 { |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4630 float old_top, old_shown; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4631 Dimension height; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4632 XtVaGetValues (widget, |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4633 XtNtopOfThumb, &old_top, |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4634 XtNshown, &old_shown, |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4635 XtNheight, &height, |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4636 NULL); |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4637 |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4638 /* Massage the top+shown values. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4639 if (NILP (bar->dragging) || last_scroll_bar_part == scroll_bar_down_arrow) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4640 top = max (0, min (1, top)); |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4641 else |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4642 top = old_top; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4643 /* Keep two pixels available for moving the thumb down. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4644 shown = max (0, min (1 - top - (2.0 / height), shown)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4645 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4646 /* If the call to XawScrollbarSetThumb below doesn't seem to work, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4647 check that your system's configuration file contains a define |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4648 for `NARROWPROTO'. See s/freebsd.h for an example. */ |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4649 if (top != old_top || shown != old_shown) |
25101
6b42357f28f9
(x_set_toolkit_scroll_bar_thumb): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
25091
diff
changeset
|
4650 { |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4651 if (NILP (bar->dragging)) |
25101
6b42357f28f9
(x_set_toolkit_scroll_bar_thumb): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
25091
diff
changeset
|
4652 XawScrollbarSetThumb (widget, top, shown); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4653 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4654 { |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4655 #ifdef HAVE_XAW3D |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4656 ScrollbarWidget sb = (ScrollbarWidget) widget; |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
4657 int scroll_mode = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4658 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4659 /* `scroll_mode' only exists with Xaw3d + ARROW_SCROLLBAR. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4660 if (xaw3d_arrow_scroll) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4661 { |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4662 /* Xaw3d stupidly ignores resize requests while dragging |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4663 so we have to make it believe it's not in dragging mode. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4664 scroll_mode = sb->scrollbar.scroll_mode; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4665 if (scroll_mode == 2) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4666 sb->scrollbar.scroll_mode = 0; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4667 } |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4668 #endif |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4669 /* Try to make the scrolling a tad smoother. */ |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4670 if (!xaw3d_pick_top) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4671 shown = min (shown, old_shown); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4672 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4673 XawScrollbarSetThumb (widget, top, shown); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4674 |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4675 #ifdef HAVE_XAW3D |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4676 if (xaw3d_arrow_scroll && scroll_mode == 2) |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4677 sb->scrollbar.scroll_mode = scroll_mode; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4678 #endif |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4679 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4680 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4681 } |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
4682 #endif /* !USE_MOTIF */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4683 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4684 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4685 } |
49322 | 4686 #endif /* not USE_GTK */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4687 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4688 #endif /* USE_TOOLKIT_SCROLL_BARS */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4689 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4690 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4691 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4692 /************************************************************************ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4693 Scroll bars, general |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4694 ************************************************************************/ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4695 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4696 /* Create a scroll bar and return the scroll bar vector for it. W is |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4697 the Emacs window on which to create the scroll bar. TOP, LEFT, |
43591 | 4698 WIDTH and HEIGHT are the pixel coordinates and dimensions of the |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4699 scroll bar. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4700 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4701 static struct scroll_bar * |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4702 x_scroll_bar_create (w, top, left, width, height) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4703 struct window *w; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4704 int top, left, width, height; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4705 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4706 struct frame *f = XFRAME (w->frame); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
4707 struct scroll_bar *bar |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
4708 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil)); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4709 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4710 BLOCK_INPUT; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4711 |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
4712 #ifdef USE_TOOLKIT_SCROLL_BARS |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4713 x_create_toolkit_scroll_bar (f, bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4714 #else /* not USE_TOOLKIT_SCROLL_BARS */ |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4715 { |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4716 XSetWindowAttributes a; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4717 unsigned long mask; |
25716
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
4718 Window window; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4719 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4720 a.background_pixel = f->output_data.x->scroll_bar_background_pixel; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4721 if (a.background_pixel == -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4722 a.background_pixel = f->output_data.x->background_pixel; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4723 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4724 a.event_mask = (ButtonPressMask | ButtonReleaseMask |
1793
cf4c3f01ddb9
* xterm.c (x_scrollbar_create): Include PointerMotionHintMask in
Jim Blandy <jimb@redhat.com>
parents:
1787
diff
changeset
|
4725 | ButtonMotionMask | PointerMotionHintMask |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4726 | ExposureMask); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
4727 a.cursor = FRAME_X_DISPLAY_INFO (f)->vertical_scroll_bar_cursor; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
4728 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
4729 mask = (CWBackPixel | CWEventMask | CWCursor); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4730 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4731 /* Clear the area of W that will serve as a scroll bar. This is |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4732 for the case that a window has been split horizontally. In |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4733 this case, no clear_frame is generated to reduce flickering. */ |
40610
e2da1b3f3d94
(x_scroll_bar_create): Check for width and height > 0.
Gerd Moellmann <gerd@gnu.org>
parents:
40514
diff
changeset
|
4734 if (width > 0 && height > 0) |
e2da1b3f3d94
(x_scroll_bar_create): Check for width and height > 0.
Gerd Moellmann <gerd@gnu.org>
parents:
40514
diff
changeset
|
4735 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
e2da1b3f3d94
(x_scroll_bar_create): Check for width and height > 0.
Gerd Moellmann <gerd@gnu.org>
parents:
40514
diff
changeset
|
4736 left, top, width, |
e2da1b3f3d94
(x_scroll_bar_create): Check for width and height > 0.
Gerd Moellmann <gerd@gnu.org>
parents:
40514
diff
changeset
|
4737 window_box_height (w), False); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4738 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4739 window = XCreateWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4740 /* Position and size of scroll bar. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4741 left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4742 top, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4743 width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4744 height, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4745 /* Border width, depth, class, and visual. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4746 0, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4747 CopyFromParent, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4748 CopyFromParent, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4749 CopyFromParent, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4750 /* Attributes. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4751 mask, &a); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4752 SET_SCROLL_BAR_X_WINDOW (bar, window); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4753 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4754 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4755 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4756 XSETWINDOW (bar->window, w); |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4757 XSETINT (bar->top, top); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4758 XSETINT (bar->left, left); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4759 XSETINT (bar->width, width); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4760 XSETINT (bar->height, height); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4761 XSETINT (bar->start, 0); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4762 XSETINT (bar->end, 0); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4763 bar->dragging = Qnil; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4764 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4765 /* Add bar to its frame's list of scroll bars. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
4766 bar->next = FRAME_SCROLL_BARS (f); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4767 bar->prev = Qnil; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
4768 XSETVECTOR (FRAME_SCROLL_BARS (f), bar); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4769 if (!NILP (bar->next)) |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4770 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar); |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4771 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4772 /* Map the window/widget. */ |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
4773 #ifdef USE_TOOLKIT_SCROLL_BARS |
36475
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4774 { |
49322 | 4775 #ifdef USE_GTK |
4776 xg_update_scrollbar_pos (f, | |
4777 SCROLL_BAR_X_WINDOW (bar), | |
4778 top, | |
4779 left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, | |
4780 width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, | |
50270
fa50953c02dc
Finally (?) fix flicker in scroll bar.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50247
diff
changeset
|
4781 max (height, 1), |
fa50953c02dc
Finally (?) fix flicker in scroll bar.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50247
diff
changeset
|
4782 left, |
fa50953c02dc
Finally (?) fix flicker in scroll bar.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50247
diff
changeset
|
4783 width); |
49322 | 4784 xg_show_scroll_bar (SCROLL_BAR_X_WINDOW (bar)); |
4785 #else /* not USE_GTK */ | |
36475
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4786 Widget scroll_bar = SCROLL_BAR_X_WIDGET (FRAME_X_DISPLAY (f), bar); |
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4787 XtConfigureWidget (scroll_bar, |
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4788 left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4789 top, |
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4790 width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, |
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4791 max (height, 1), 0); |
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4792 XtMapWidget (scroll_bar); |
49322 | 4793 #endif /* not USE_GTK */ |
36475
488c4787ec0a
(XTset_vertical_scroll_bar): Don't clear a zero height
Gerd Moellmann <gerd@gnu.org>
parents:
36442
diff
changeset
|
4794 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4795 #else /* not USE_TOOLKIT_SCROLL_BARS */ |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
4796 XMapRaised (FRAME_X_DISPLAY (f), SCROLL_BAR_X_WINDOW (bar)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4797 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4798 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4799 UNBLOCK_INPUT; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4800 return bar; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4801 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4802 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4803 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4804 /* Draw BAR's handle in the proper position. |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4805 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4806 If the handle is already drawn from START to END, don't bother |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4807 redrawing it, unless REBUILD is non-zero; in that case, always |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4808 redraw it. (REBUILD is handy for drawing the handle after expose |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
4809 events.) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4810 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4811 Normally, we want to constrain the start and end of the handle to |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4812 fit inside its rectangle, but if the user is dragging the scroll |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4813 bar handle, we want to let them drag it down all the way, so that |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4814 the bar's top is as far down as it goes; otherwise, there's no way |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4815 to move to the very end of the buffer. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4816 |
25716
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
4817 #ifndef USE_TOOLKIT_SCROLL_BARS |
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
4818 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4819 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4820 x_scroll_bar_set_handle (bar, start, end, rebuild) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4821 struct scroll_bar *bar; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4822 int start, end; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4823 int rebuild; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4824 { |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4825 int dragging = ! NILP (bar->dragging); |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4826 Window w = SCROLL_BAR_X_WINDOW (bar); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
4827 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
4828 GC gc = f->output_data.x->normal_gc; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4829 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4830 /* If the display is already accurate, do nothing. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4831 if (! rebuild |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4832 && start == XINT (bar->start) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4833 && end == XINT (bar->end)) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4834 return; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4835 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4836 BLOCK_INPUT; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4837 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4838 { |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
4839 int inside_width = VERTICAL_SCROLL_BAR_INSIDE_WIDTH (f, XINT (bar->width)); |
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
4840 int inside_height = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, XINT (bar->height)); |
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
4841 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4842 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4843 /* Make sure the values are reasonable, and try to preserve |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4844 the distance between start and end. */ |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4845 { |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4846 int length = end - start; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4847 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4848 if (start < 0) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4849 start = 0; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4850 else if (start > top_range) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4851 start = top_range; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4852 end = start + length; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4853 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4854 if (end < start) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4855 end = start; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4856 else if (end > top_range && ! dragging) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4857 end = top_range; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4858 } |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4859 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4860 /* Store the adjusted setting in the scroll bar. */ |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4861 XSETINT (bar->start, start); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
4862 XSETINT (bar->end, end); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4863 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4864 /* Clip the end position, just for display. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4865 if (end > top_range) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4866 end = top_range; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4867 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4868 /* Draw bottom positions VERTICAL_SCROLL_BAR_MIN_HANDLE pixels |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4869 below top positions, to make sure the handle is always at least |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4870 that many pixels tall. */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4871 end += VERTICAL_SCROLL_BAR_MIN_HANDLE; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4872 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4873 /* Draw the empty space above the handle. Note that we can't clear |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4874 zero-height areas; that means "clear to end of window." */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4875 if (0 < start) |
35581
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4876 x_clear_area (FRAME_X_DISPLAY (f), w, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4877 /* x, y, width, height, and exposures. */ |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4878 VERTICAL_SCROLL_BAR_LEFT_BORDER, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4879 VERTICAL_SCROLL_BAR_TOP_BORDER, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4880 inside_width, start, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4881 False); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4882 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4883 /* Change to proper foreground color if one is specified. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4884 if (f->output_data.x->scroll_bar_foreground_pixel != -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4885 XSetForeground (FRAME_X_DISPLAY (f), gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4886 f->output_data.x->scroll_bar_foreground_pixel); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4887 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4888 /* Draw the handle itself. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
4889 XFillRectangle (FRAME_X_DISPLAY (f), w, gc, |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4890 /* x, y, width, height */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4891 VERTICAL_SCROLL_BAR_LEFT_BORDER, |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4892 VERTICAL_SCROLL_BAR_TOP_BORDER + start, |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4893 inside_width, end - start); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4894 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4895 /* Restore the foreground color of the GC if we changed it above. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4896 if (f->output_data.x->scroll_bar_foreground_pixel != -1) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4897 XSetForeground (FRAME_X_DISPLAY (f), gc, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4898 f->output_data.x->foreground_pixel); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4899 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4900 /* Draw the empty space below the handle. Note that we can't |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4901 clear zero-height areas; that means "clear to end of window." */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4902 if (end < inside_height) |
35581
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4903 x_clear_area (FRAME_X_DISPLAY (f), w, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4904 /* x, y, width, height, and exposures. */ |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4905 VERTICAL_SCROLL_BAR_LEFT_BORDER, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4906 VERTICAL_SCROLL_BAR_TOP_BORDER + end, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4907 inside_width, inside_height - end, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
4908 False); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4909 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4910 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4911 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4912 UNBLOCK_INPUT; |
25716
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
4913 } |
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
4914 |
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
4915 #endif /* !USE_TOOLKIT_SCROLL_BARS */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4916 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4917 /* Destroy scroll bar BAR, and set its Emacs window's scroll bar to |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4918 nil. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4919 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4920 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4921 x_scroll_bar_remove (bar) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4922 struct scroll_bar *bar; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4923 { |
33606
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4924 struct frame *f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4925 BLOCK_INPUT; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4926 |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
4927 #ifdef USE_TOOLKIT_SCROLL_BARS |
49322 | 4928 #ifdef USE_GTK |
4929 xg_remove_scroll_bar (f, SCROLL_BAR_X_WINDOW (bar)); | |
4930 #else /* not USE_GTK */ | |
33606
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4931 XtDestroyWidget (SCROLL_BAR_X_WIDGET (FRAME_X_DISPLAY (f), bar)); |
49322 | 4932 #endif /* not USE_GTK */ |
33606
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4933 #else |
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4934 XDestroyWindow (FRAME_X_DISPLAY (f), SCROLL_BAR_X_WINDOW (bar)); |
01f87b0ff56f
(x_set_toolkit_scroll_bar_thumb, x_scroll_bar_create)
Gerd Moellmann <gerd@gnu.org>
parents:
33456
diff
changeset
|
4935 #endif |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4936 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4937 /* Disassociate this scroll bar from its window. */ |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4938 XWINDOW (bar->window)->vertical_scroll_bar = Qnil; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4939 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4940 UNBLOCK_INPUT; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4941 } |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4942 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4943 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4944 /* Set the handle of the vertical scroll bar for WINDOW to indicate |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4945 that we are displaying PORTION characters out of a total of WHOLE |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4946 characters, starting at POSITION. If WINDOW has no scroll bar, |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
4947 create one. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4948 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4949 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4950 XTset_vertical_scroll_bar (w, portion, whole, position) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4951 struct window *w; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4952 int portion, whole, position; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
4953 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4954 struct frame *f = XFRAME (w->frame); |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4955 struct scroll_bar *bar; |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4956 int top, height, left, sb_left, width, sb_width; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4957 int window_y, window_height; |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4958 |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4959 /* Get window dimensions. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4960 window_box (w, -1, 0, &window_y, 0, &window_height); |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4961 top = window_y; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4962 width = WINDOW_CONFIG_SCROLL_BAR_COLS (w) * FRAME_COLUMN_WIDTH (f); |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4963 height = window_height; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4964 |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4965 /* Compute the left edge of the scroll bar area. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4966 left = WINDOW_SCROLL_BAR_AREA_X (w); |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4967 |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4968 /* Compute the width of the scroll bar which might be less than |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4969 the width of the area reserved for the scroll bar. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4970 if (WINDOW_CONFIG_SCROLL_BAR_WIDTH (w) > 0) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4971 sb_width = WINDOW_CONFIG_SCROLL_BAR_WIDTH (w); |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4972 else |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4973 sb_width = width; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4974 |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4975 /* Compute the left edge of the scroll bar. */ |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4976 #ifdef USE_TOOLKIT_SCROLL_BARS |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4977 if (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w)) |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4978 sb_left = left + width - sb_width - (width - sb_width) / 2; |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4979 else |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4980 sb_left = left + (width - sb_width) / 2; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4981 #else |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
4982 if (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w)) |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4983 sb_left = left + width - sb_width; |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4984 else |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4985 sb_left = left; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4986 #endif |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4987 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
4988 /* Does the scroll bar exist yet? */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
4989 if (NILP (w->vertical_scroll_bar)) |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4990 { |
40610
e2da1b3f3d94
(x_scroll_bar_create): Check for width and height > 0.
Gerd Moellmann <gerd@gnu.org>
parents:
40514
diff
changeset
|
4991 if (width > 0 && height > 0) |
40257
98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40248
diff
changeset
|
4992 { |
98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40248
diff
changeset
|
4993 BLOCK_INPUT; |
98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40248
diff
changeset
|
4994 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40248
diff
changeset
|
4995 left, top, width, height, False); |
98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40248
diff
changeset
|
4996 UNBLOCK_INPUT; |
98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40248
diff
changeset
|
4997 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
4998 |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
4999 bar = x_scroll_bar_create (w, top, sb_left, sb_width, height); |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5000 } |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5001 else |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5002 { |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5003 /* It may just need to be moved and resized. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5004 unsigned int mask = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5005 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5006 bar = XSCROLL_BAR (w->vertical_scroll_bar); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5007 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5008 BLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5009 |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5010 if (sb_left != XINT (bar->left)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5011 mask |= CWX; |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5012 if (top != XINT (bar->top)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5013 mask |= CWY; |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5014 if (sb_width != XINT (bar->width)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5015 mask |= CWWidth; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5016 if (height != XINT (bar->height)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5017 mask |= CWHeight; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5018 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5019 #ifdef USE_TOOLKIT_SCROLL_BARS |
25269
621067279f19
(XTset_vertical_scroll_bar) [USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
25191
diff
changeset
|
5020 |
49322 | 5021 #ifdef USE_GTK |
5022 if (mask) | |
5023 xg_update_scrollbar_pos (f, | |
5024 SCROLL_BAR_X_WINDOW (bar), | |
5025 top, | |
5026 sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, | |
5027 sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, | |
50270
fa50953c02dc
Finally (?) fix flicker in scroll bar.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50247
diff
changeset
|
5028 max (height, 1), |
fa50953c02dc
Finally (?) fix flicker in scroll bar.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50247
diff
changeset
|
5029 left, |
fa50953c02dc
Finally (?) fix flicker in scroll bar.
Jan Djärv <jan.h.d@swipnet.se>
parents:
50247
diff
changeset
|
5030 width); |
49322 | 5031 #else /* not USE_GTK */ |
5032 | |
25269
621067279f19
(XTset_vertical_scroll_bar) [USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
25191
diff
changeset
|
5033 /* Since toolkit scroll bars are smaller than the space reserved |
49322 | 5034 for them on the frame, we have to clear "under" them. */ |
40610
e2da1b3f3d94
(x_scroll_bar_create): Check for width and height > 0.
Gerd Moellmann <gerd@gnu.org>
parents:
40514
diff
changeset
|
5035 if (width > 0 && height > 0) |
49322 | 5036 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
5037 left, top, width, height, False); | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5038 /* Move/size the scroll bar widget. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5039 if (mask) |
49322 | 5040 XtConfigureWidget (SCROLL_BAR_X_WIDGET (FRAME_X_DISPLAY (f), bar), |
5041 sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, | |
5042 top, | |
5043 sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, | |
5044 max (height, 1), 0); | |
5045 | |
5046 #endif /* not USE_GTK */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5047 #else /* not USE_TOOLKIT_SCROLL_BARS */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5048 |
36880
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5049 /* Clear areas not covered by the scroll bar because of |
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5050 VERTICAL_SCROLL_BAR_WIDTH_TRIM. */ |
25633
ddf2e1fef00b
(XTread_socket): In XSetInputFocus, use RevertToParent,
Richard M. Stallman <rms@gnu.org>
parents:
25546
diff
changeset
|
5051 if (VERTICAL_SCROLL_BAR_WIDTH_TRIM) |
ddf2e1fef00b
(XTread_socket): In XSetInputFocus, use RevertToParent,
Richard M. Stallman <rms@gnu.org>
parents:
25546
diff
changeset
|
5052 { |
35581
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5053 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5054 left, top, VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5055 height, False); |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5056 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5057 left + width - VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5058 top, VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5059 height, False); |
25633
ddf2e1fef00b
(XTread_socket): In XSetInputFocus, use RevertToParent,
Richard M. Stallman <rms@gnu.org>
parents:
25546
diff
changeset
|
5060 } |
36880
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5061 |
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5062 /* Clear areas not covered by the scroll bar because it's not as |
43591 | 5063 wide as the area reserved for it. This makes sure a |
36880
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5064 previous mode line display is cleared after C-x 2 C-x 1, for |
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5065 example. */ |
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5066 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
5067 int area_width = WINDOW_CONFIG_SCROLL_BAR_COLS (w) * FRAME_COLUMN_WIDTH (f); |
36880
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5068 int rest = area_width - sb_width; |
40329
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5069 if (rest > 0 && height > 0) |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5070 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
5071 if (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT (w)) |
40329
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5072 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5073 left + area_width - rest, top, |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5074 rest, height, False); |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5075 else |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5076 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5077 left, top, rest, height, False); |
c1762ce8905b
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
40303
diff
changeset
|
5078 } |
36880
f9243c6624b0
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
36824
diff
changeset
|
5079 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5080 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5081 /* Move/size the scroll bar window. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5082 if (mask) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5083 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5084 XWindowChanges wc; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5085 |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5086 wc.x = sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5087 wc.y = top; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5088 wc.width = sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2; |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5089 wc.height = height; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5090 XConfigureWindow (FRAME_X_DISPLAY (f), SCROLL_BAR_X_WINDOW (bar), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5091 mask, &wc); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5092 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5093 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5094 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5095 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5096 /* Remember new settings. */ |
25512
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5097 XSETINT (bar->left, sb_left); |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5098 XSETINT (bar->top, top); |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5099 XSETINT (bar->width, sb_width); |
8d013f20532c
(x_scroll_bar_create): Don't clear under scroll bar
Gerd Moellmann <gerd@gnu.org>
parents:
25465
diff
changeset
|
5100 XSETINT (bar->height, height); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5101 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5102 UNBLOCK_INPUT; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5103 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5104 |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
5105 #ifdef USE_TOOLKIT_SCROLL_BARS |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5106 x_set_toolkit_scroll_bar_thumb (bar, portion, position, whole); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5107 #else /* not USE_TOOLKIT_SCROLL_BARS */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5108 /* Set the scroll bar's current state, unless we're currently being |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5109 dragged. */ |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5110 if (NILP (bar->dragging)) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5111 { |
25541
be975dcf4a0c
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Gerd Moellmann <gerd@gnu.org>
parents:
25529
diff
changeset
|
5112 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5113 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5114 if (whole == 0) |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5115 x_scroll_bar_set_handle (bar, 0, top_range, 0); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5116 else |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5117 { |
3686
910ea1d66bfd
* xterm.c (XTset_vertical_scroll_bar): Use double type for
Jim Blandy <jimb@redhat.com>
parents:
3683
diff
changeset
|
5118 int start = ((double) position * top_range) / whole; |
910ea1d66bfd
* xterm.c (XTset_vertical_scroll_bar): Use double type for
Jim Blandy <jimb@redhat.com>
parents:
3683
diff
changeset
|
5119 int end = ((double) (position + portion) * top_range) / whole; |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5120 x_scroll_bar_set_handle (bar, start, end, 0); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5121 } |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5122 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5123 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5124 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5125 XSETVECTOR (w->vertical_scroll_bar, bar); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5126 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5127 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5128 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5129 /* The following three hooks are used when we're doing a thorough |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5130 redisplay of the frame. We don't explicitly know which scroll bars |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5131 are going to be deleted, because keeping track of when windows go |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5132 away is a real pain - "Can you say set-window-configuration, boys |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5133 and girls?" Instead, we just assert at the beginning of redisplay |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5134 that *all* scroll bars are to be removed, and then save a scroll bar |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5135 from the fiery pit when we actually redisplay its window. */ |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5136 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5137 /* Arrange for all scroll bars on FRAME to be removed at the next call |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5138 to `*judge_scroll_bars_hook'. A scroll bar may be spared if |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5139 `*redeem_scroll_bar_hook' is applied to its window before the judgment. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5140 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
5141 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5142 XTcondemn_scroll_bars (frame) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5143 FRAME_PTR frame; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5144 { |
13205
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5145 /* Transfer all the scroll bars to FRAME_CONDEMNED_SCROLL_BARS. */ |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5146 while (! NILP (FRAME_SCROLL_BARS (frame))) |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5147 { |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5148 Lisp_Object bar; |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5149 bar = FRAME_SCROLL_BARS (frame); |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5150 FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next; |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5151 XSCROLL_BAR (bar)->next = FRAME_CONDEMNED_SCROLL_BARS (frame); |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5152 XSCROLL_BAR (bar)->prev = Qnil; |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5153 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame))) |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5154 XSCROLL_BAR (FRAME_CONDEMNED_SCROLL_BARS (frame))->prev = bar; |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5155 FRAME_CONDEMNED_SCROLL_BARS (frame) = bar; |
8eac10febc8e
(x_connection_signal_1): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12966
diff
changeset
|
5156 } |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5157 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5158 |
33303
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5159 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5160 /* Un-mark WINDOW's scroll bar for deletion in this judgment cycle. |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5161 Note that WINDOW isn't necessarily condemned at all. */ |
33303
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5162 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5163 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5164 XTredeem_scroll_bar (window) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5165 struct window *window; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5166 { |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5167 struct scroll_bar *bar; |
33303
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5168 struct frame *f; |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5169 |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5170 /* We can't redeem this window's scroll bar if it doesn't have one. */ |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5171 if (NILP (window->vertical_scroll_bar)) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5172 abort (); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5173 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5174 bar = XSCROLL_BAR (window->vertical_scroll_bar); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5175 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5176 /* Unlink it from the condemned list. */ |
33303
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5177 f = XFRAME (WINDOW_FRAME (window)); |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5178 if (NILP (bar->prev)) |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5179 { |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5180 /* If the prev pointer is nil, it must be the first in one of |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5181 the lists. */ |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5182 if (EQ (FRAME_SCROLL_BARS (f), window->vertical_scroll_bar)) |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5183 /* It's not condemned. Everything's fine. */ |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5184 return; |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5185 else if (EQ (FRAME_CONDEMNED_SCROLL_BARS (f), |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5186 window->vertical_scroll_bar)) |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5187 FRAME_CONDEMNED_SCROLL_BARS (f) = bar->next; |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5188 else |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5189 /* If its prev pointer is nil, it must be at the front of |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5190 one or the other! */ |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5191 abort (); |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5192 } |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5193 else |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5194 XSCROLL_BAR (bar->prev)->next = bar->next; |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5195 |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5196 if (! NILP (bar->next)) |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5197 XSCROLL_BAR (bar->next)->prev = bar->prev; |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5198 |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5199 bar->next = FRAME_SCROLL_BARS (f); |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5200 bar->prev = Qnil; |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5201 XSETVECTOR (FRAME_SCROLL_BARS (f), bar); |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5202 if (! NILP (bar->next)) |
1dc1953987a7
(x_scroll_bar_create) [USE_TOOLKIT_SCROLL_BARS]: Map the
Gerd Moellmann <gerd@gnu.org>
parents:
33289
diff
changeset
|
5203 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5204 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5205 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5206 /* Remove all scroll bars on FRAME that haven't been saved since the |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5207 last call to `*condemn_scroll_bars_hook'. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5208 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5209 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5210 XTjudge_scroll_bars (f) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5211 FRAME_PTR f; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5212 { |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5213 Lisp_Object bar, next; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5214 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5215 bar = FRAME_CONDEMNED_SCROLL_BARS (f); |
1803
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5216 |
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5217 /* Clear out the condemned list now so we won't try to process any |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5218 more events on the hapless scroll bars. */ |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5219 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil; |
1803
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5220 |
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5221 for (; ! NILP (bar); bar = next) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5222 { |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5223 struct scroll_bar *b = XSCROLL_BAR (bar); |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5224 |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5225 x_scroll_bar_remove (b); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5226 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5227 next = b->next; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5228 b->next = b->prev = Qnil; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5229 } |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5230 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5231 /* Now there should be no references to the condemned scroll bars, |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5232 and they should get garbage-collected. */ |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5233 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5234 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5235 |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
5236 #ifndef USE_TOOLKIT_SCROLL_BARS |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5237 /* Handle an Expose or GraphicsExpose event on a scroll bar. This |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5238 is a no-op when using toolkit scroll bars. |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5239 |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5240 This may be called from a signal handler, so we have to ignore GC |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5241 mark bits. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5242 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5243 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5244 x_scroll_bar_expose (bar, event) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5245 struct scroll_bar *bar; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5246 XEvent *event; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5247 { |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5248 Window w = SCROLL_BAR_X_WINDOW (bar); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5249 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
5250 GC gc = f->output_data.x->normal_gc; |
16301
a02555b4b2b9
(x_scroll_bar_create, x_scroll_bar_move):
Richard M. Stallman <rms@gnu.org>
parents:
16251
diff
changeset
|
5251 int width_trim = VERTICAL_SCROLL_BAR_WIDTH_TRIM; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5252 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5253 BLOCK_INPUT; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5254 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5255 x_scroll_bar_set_handle (bar, XINT (bar->start), XINT (bar->end), 1); |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5256 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5257 /* Draw a one-pixel border just inside the edges of the scroll bar. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5258 XDrawRectangle (FRAME_X_DISPLAY (f), w, gc, |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5259 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5260 /* x, y, width, height */ |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5261 0, 0, |
16301
a02555b4b2b9
(x_scroll_bar_create, x_scroll_bar_move):
Richard M. Stallman <rms@gnu.org>
parents:
16251
diff
changeset
|
5262 XINT (bar->width) - 1 - width_trim - width_trim, |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5263 XINT (bar->height) - 1); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5264 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5265 UNBLOCK_INPUT; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5266 |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
5267 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5268 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5269 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5270 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
5271 is set to something other than NO_EVENT, it is enqueued. |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5272 |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5273 This may be called from a signal handler, so we have to ignore GC |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5274 mark bits. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5275 |
25716
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
5276 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5277 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5278 x_scroll_bar_handle_click (bar, event, emacs_event) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5279 struct scroll_bar *bar; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5280 XEvent *event; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5281 struct input_event *emacs_event; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5282 { |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5283 if (! GC_WINDOWP (bar->window)) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5284 abort (); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5285 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
5286 emacs_event->kind = SCROLL_BAR_CLICK_EVENT; |
5228
c094c1df2e87
(XTread_socket): Don't offset keysym here.
Richard M. Stallman <rms@gnu.org>
parents:
5156
diff
changeset
|
5287 emacs_event->code = event->xbutton.button - Button1; |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5288 emacs_event->modifiers |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
5289 = (x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5290 (XFRAME (WINDOW_FRAME (XWINDOW (bar->window)))), |
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5291 event->xbutton.state) |
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5292 | (event->type == ButtonRelease |
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5293 ? up_modifier |
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5294 : down_modifier)); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5295 emacs_event->frame_or_window = bar->window; |
30197
3237a5529020
(construct_mouse_click, x_scroll_bar_to_input_event)
Gerd Moellmann <gerd@gnu.org>
parents:
30182
diff
changeset
|
5296 emacs_event->arg = Qnil; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5297 emacs_event->timestamp = event->xbutton.time; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5298 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5299 #if 0 |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5300 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5301 int internal_height |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5302 = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, XINT (bar->height)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5303 #endif |
10287
2e96f9f98276
(x_scroll_bar_handle_click): Use GC_WINDOWP.
Richard M. Stallman <rms@gnu.org>
parents:
10274
diff
changeset
|
5304 int top_range |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5305 = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)); |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5306 int y = event->xbutton.y - VERTICAL_SCROLL_BAR_TOP_BORDER; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5307 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5308 if (y < 0) y = 0; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5309 if (y > top_range) y = top_range; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5310 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5311 if (y < XINT (bar->start)) |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5312 emacs_event->part = scroll_bar_above_handle; |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5313 else if (y < XINT (bar->end) + VERTICAL_SCROLL_BAR_MIN_HANDLE) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5314 emacs_event->part = scroll_bar_handle; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5315 else |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5316 emacs_event->part = scroll_bar_below_handle; |
2953
5440f00480e6
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2923
diff
changeset
|
5317 |
5440f00480e6
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2923
diff
changeset
|
5318 /* Just because the user has clicked on the handle doesn't mean |
2958
3124e6244d1a
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2953
diff
changeset
|
5319 they want to drag it. Lisp code needs to be able to decide |
3124e6244d1a
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2953
diff
changeset
|
5320 whether or not we're dragging. */ |
2953
5440f00480e6
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2923
diff
changeset
|
5321 #if 0 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5322 /* If the user has just clicked on the handle, record where they're |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5323 holding it. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5324 if (event->type == ButtonPress |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5325 && emacs_event->part == scroll_bar_handle) |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5326 XSETINT (bar->dragging, y - XINT (bar->start)); |
2953
5440f00480e6
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2923
diff
changeset
|
5327 #endif |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5328 |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
5329 #ifndef USE_TOOLKIT_SCROLL_BARS |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5330 /* If the user has released the handle, set it to its final position. */ |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5331 if (event->type == ButtonRelease |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5332 && ! NILP (bar->dragging)) |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5333 { |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5334 int new_start = y - XINT (bar->dragging); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5335 int new_end = new_start + (XINT (bar->end) - XINT (bar->start)); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5336 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5337 x_scroll_bar_set_handle (bar, new_start, new_end, 0); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5338 bar->dragging = Qnil; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5339 } |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
5340 #endif |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5341 |
2958
3124e6244d1a
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2953
diff
changeset
|
5342 /* Same deal here as the other #if 0. */ |
3124e6244d1a
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2953
diff
changeset
|
5343 #if 0 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
5344 /* Clicks on the handle are always reported as occurring at the top of |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5345 the handle. */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5346 if (emacs_event->part == scroll_bar_handle) |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5347 emacs_event->x = bar->start; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5348 else |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5349 XSETINT (emacs_event->x, y); |
2958
3124e6244d1a
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2953
diff
changeset
|
5350 #else |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5351 XSETINT (emacs_event->x, y); |
2958
3124e6244d1a
* xterm.c (x_scroll_bar_handle_click): Never grab the scroll bar;
Jim Blandy <jimb@redhat.com>
parents:
2953
diff
changeset
|
5352 #endif |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5353 |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5354 XSETINT (emacs_event->y, top_range); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5355 } |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5356 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5357 |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
5358 #ifndef USE_TOOLKIT_SCROLL_BARS |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
5359 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5360 /* Handle some mouse motion while someone is dragging the scroll bar. |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5361 |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5362 This may be called from a signal handler, so we have to ignore GC |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5363 mark bits. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5364 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5365 static void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5366 x_scroll_bar_note_movement (bar, event) |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5367 struct scroll_bar *bar; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5368 XEvent *event; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5369 { |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
5370 FRAME_PTR f = XFRAME (XWINDOW (bar->window)->frame); |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
5371 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5372 last_mouse_movement_time = event->xmotion.time; |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5373 |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
5374 f->mouse_moved = 1; |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5375 XSETVECTOR (last_mouse_scroll_bar, bar); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5376 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5377 /* If we're dragging the bar, display it. */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5378 if (! GC_NILP (bar->dragging)) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5379 { |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5380 /* Where should the handle be now? */ |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5381 int new_start = event->xmotion.y - XINT (bar->dragging); |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5382 |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5383 if (new_start != XINT (bar->start)) |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5384 { |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5385 int new_end = new_start + (XINT (bar->end) - XINT (bar->start)); |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
5386 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5387 x_scroll_bar_set_handle (bar, new_start, new_end, 0); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5388 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5389 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5390 } |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5391 |
25716
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
5392 #endif /* !USE_TOOLKIT_SCROLL_BARS */ |
e2d5cd96727b
(x_scroll_bar_handle_click): Compile only if
Gerd Moellmann <gerd@gnu.org>
parents:
25692
diff
changeset
|
5393 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5394 /* Return information to the user about the current position of the mouse |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5395 on the scroll bar. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5396 |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5397 static void |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5398 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5399 FRAME_PTR *fp; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5400 Lisp_Object *bar_window; |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5401 enum scroll_bar_part *part; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5402 Lisp_Object *x, *y; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5403 unsigned long *time; |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5404 { |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5405 struct scroll_bar *bar = XSCROLL_BAR (last_mouse_scroll_bar); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5406 Window w = SCROLL_BAR_X_WINDOW (bar); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5407 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5408 int win_x, win_y; |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5409 Window dummy_window; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5410 int dummy_coord; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5411 unsigned int dummy_mask; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5412 |
1803
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5413 BLOCK_INPUT; |
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5414 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5415 /* Get the mouse's position relative to the scroll bar window, and |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5416 report that. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5417 if (! XQueryPointer (FRAME_X_DISPLAY (f), w, |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5418 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5419 /* Root, child, root x and root y. */ |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5420 &dummy_window, &dummy_window, |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5421 &dummy_coord, &dummy_coord, |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5422 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5423 /* Position relative to scroll bar. */ |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5424 &win_x, &win_y, |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5425 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5426 /* Mouse buttons and modifier keys. */ |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5427 &dummy_mask)) |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
5428 ; |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5429 else |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5430 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5431 #if 0 |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5432 int inside_height |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5433 = VERTICAL_SCROLL_BAR_INSIDE_HEIGHT (f, XINT (bar->height)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5434 #endif |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5435 int top_range |
16251
ec1b1ae37295
Pass frame arg in calls to VERTICAL_SCROLL_BAR_INSIDE_HEIGHT
Richard M. Stallman <rms@gnu.org>
parents:
16220
diff
changeset
|
5436 = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)); |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5437 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5438 win_y -= VERTICAL_SCROLL_BAR_TOP_BORDER; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5439 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5440 if (! NILP (bar->dragging)) |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5441 win_y -= XINT (bar->dragging); |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5442 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5443 if (win_y < 0) |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5444 win_y = 0; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5445 if (win_y > top_range) |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5446 win_y = top_range; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5447 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5448 *fp = f; |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
5449 *bar_window = bar->window; |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5450 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5451 if (! NILP (bar->dragging)) |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5452 *part = scroll_bar_handle; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5453 else if (win_y < XINT (bar->start)) |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5454 *part = scroll_bar_above_handle; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5455 else if (win_y < XINT (bar->end) + VERTICAL_SCROLL_BAR_MIN_HANDLE) |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5456 *part = scroll_bar_handle; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5457 else |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5458 *part = scroll_bar_below_handle; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5459 |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5460 XSETINT (*x, win_y); |
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
5461 XSETINT (*y, top_range); |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5462 |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
5463 f->mouse_moved = 0; |
2982
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5464 last_mouse_scroll_bar = Qnil; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5465 } |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5466 |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5467 *time = last_mouse_movement_time; |
44ed08628516
* xterm.c (x_scroll_bar_report_motion): Set *TIME whether or not
Jim Blandy <jimb@redhat.com>
parents:
2977
diff
changeset
|
5468 |
1803
5752a95053f2
* xterm.c (x_window_to_scrollbar): Search frames'
Jim Blandy <jimb@redhat.com>
parents:
1793
diff
changeset
|
5469 UNBLOCK_INPUT; |
1787
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5470 } |
5e245540d06f
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1739
diff
changeset
|
5471 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5472 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5473 /* The screen has been cleared so we may have changed foreground or |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5474 background colors, and the scroll bars may need to be redrawn. |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5475 Clear out the scroll bars, and ask for expose events, so we can |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5476 redraw them. */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5477 |
21514 | 5478 void |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
5479 x_scroll_bar_clear (f) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5480 FRAME_PTR f; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5481 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5482 #ifndef USE_TOOLKIT_SCROLL_BARS |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5483 Lisp_Object bar; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
5484 |
15080
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5485 /* We can have scroll bars even if this is 0, |
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5486 if we just turned off scroll bar mode. |
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5487 But in that case we should not clear them. */ |
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5488 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f)) |
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5489 for (bar = FRAME_SCROLL_BARS (f); VECTORP (bar); |
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5490 bar = XSCROLL_BAR (bar)->next) |
35581
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5491 XClearArea (FRAME_X_DISPLAY (f), |
3a46a6389078
(x_after_update_window_line): Don't clear if frame's
Gerd Moellmann <gerd@gnu.org>
parents:
35568
diff
changeset
|
5492 SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)), |
15080
50f527612ef6
(x_scroll_bar_clear): Do nothing if frame now has no scroll bars.
Richard M. Stallman <rms@gnu.org>
parents:
15067
diff
changeset
|
5493 0, 0, 0, 0, True); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5494 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5495 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5496 |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5497 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5498 /* Define a queue to save up SelectionRequest events for later handling. */ |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5499 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5500 struct selection_event_queue |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5501 { |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5502 XEvent event; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5503 struct selection_event_queue *next; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5504 }; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5505 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5506 static struct selection_event_queue *queue; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5507 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5508 /* Nonzero means queue up certain events--don't process them yet. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5509 |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5510 static int x_queue_selection_requests; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5511 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5512 /* Queue up an X event *EVENT, to be processed later. */ |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5513 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5514 static void |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5515 x_queue_event (f, event) |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
5516 FRAME_PTR f; |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5517 XEvent *event; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5518 { |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5519 struct selection_event_queue *queue_tmp |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5520 = (struct selection_event_queue *) xmalloc (sizeof (struct selection_event_queue)); |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5521 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
5522 if (queue_tmp != NULL) |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5523 { |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5524 queue_tmp->event = *event; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5525 queue_tmp->next = queue; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5526 queue = queue_tmp; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5527 } |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5528 } |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5529 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5530 /* Take all the queued events and put them back |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5531 so that they get processed afresh. */ |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5532 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5533 static void |
10634
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5534 x_unqueue_events (display) |
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5535 Display *display; |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5536 { |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
5537 while (queue != NULL) |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5538 { |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5539 struct selection_event_queue *queue_tmp = queue; |
10634
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5540 XPutBackEvent (display, &queue_tmp->event); |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5541 queue = queue_tmp->next; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5542 xfree ((char *)queue_tmp); |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5543 } |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5544 } |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5545 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5546 /* Start queuing SelectionRequest events. */ |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5547 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5548 void |
10634
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5549 x_start_queuing_selection_requests (display) |
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5550 Display *display; |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5551 { |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5552 x_queue_selection_requests++; |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5553 } |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5554 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5555 /* Stop queuing SelectionRequest events. */ |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5556 |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5557 void |
10634
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5558 x_stop_queuing_selection_requests (display) |
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5559 Display *display; |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5560 { |
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5561 x_queue_selection_requests--; |
10634
de7beeb9f02c
(x_unqueue_events): Arg is now a Display *.
Richard M. Stallman <rms@gnu.org>
parents:
10609
diff
changeset
|
5562 x_unqueue_events (display); |
8353
525e990ca9d2
(x_queue_event, x_unqueue_events): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
8291
diff
changeset
|
5563 } |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5564 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
5565 /* The main X event-reading loop - XTread_socket. */ |
286 | 5566 |
43479
4cedb4e5510e
(enter_timestamp): Put in #if 0 to prevent warning.
Pavel Janík <Pavel@Janik.cz>
parents:
43369
diff
changeset
|
5567 #if 0 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5568 /* Time stamp of enter window event. This is only used by XTread_socket, |
286 | 5569 but we have to put it out here, since static variables within functions |
5570 sometimes don't work. */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5571 |
286 | 5572 static Time enter_timestamp; |
43479
4cedb4e5510e
(enter_timestamp): Put in #if 0 to prevent warning.
Pavel Janík <Pavel@Janik.cz>
parents:
43369
diff
changeset
|
5573 #endif |
286 | 5574 |
1436
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5575 /* This holds the state XLookupString needs to implement dead keys |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
5576 and other tricks known as "compose processing". _X Window System_ |
1436
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5577 says that a portable program can't use this, but Stephen Gildea assures |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5578 me that letting the compiler initialize it to zeros will work okay. |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5579 |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5580 This must be defined outside of XTread_socket, for the same reasons |
41446 | 5581 given for enter_timestamp, above. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5582 |
1436
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5583 static XComposeStatus compose_status; |
e7c5faab6571
* xterm.c (compose_status): New variable.
Jim Blandy <jimb@redhat.com>
parents:
1389
diff
changeset
|
5584 |
2064 | 5585 /* Record the last 100 characters stored |
5586 to help debug the loss-of-chars-during-GC problem. */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5587 |
12657
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5588 static int temp_index; |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5589 static short temp_buffer[100]; |
2064 | 5590 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
5591 /* Set this to nonzero to fake an "X I/O error" |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
5592 on a particular display. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5593 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
5594 struct x_display_info *XTread_socket_fake_io_error; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
5595 |
12657
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5596 /* When we find no input here, we occasionally do a no-op command |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5597 to verify that the X server is still running and we can still talk with it. |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5598 We try all the open displays, one by one. |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5599 This variable is used for cycling thru the displays. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5600 |
12657
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5601 static struct x_display_info *next_noop_dpyinfo; |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
5602 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5603 #define SET_SAVED_MENU_EVENT(size) \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5604 do \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5605 { \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5606 if (f->output_data.x->saved_menu_event == 0) \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5607 f->output_data.x->saved_menu_event \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5608 = (XEvent *) xmalloc (sizeof (XEvent)); \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5609 bcopy (&event, f->output_data.x->saved_menu_event, size); \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5610 if (numchars >= 1) \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5611 { \ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45563
diff
changeset
|
5612 bufp->kind = MENU_BAR_ACTIVATE_EVENT; \ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5613 XSETFRAME (bufp->frame_or_window, f); \ |
30197
3237a5529020
(construct_mouse_click, x_scroll_bar_to_input_event)
Gerd Moellmann <gerd@gnu.org>
parents:
30182
diff
changeset
|
5614 bufp->arg = Qnil; \ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5615 bufp++; \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5616 count++; \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5617 numchars--; \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5618 } \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5619 } \ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5620 while (0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5621 |
15711
099dc465c948
(SET_SAVED_MENU_EVENT): New macro.
Karl Heuer <kwzh@gnu.org>
parents:
15639
diff
changeset
|
5622 #define SET_SAVED_BUTTON_EVENT SET_SAVED_MENU_EVENT (sizeof (XButtonEvent)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
5623 #define SET_SAVED_KEY_EVENT SET_SAVED_MENU_EVENT (sizeof (XKeyEvent)) |
15711
099dc465c948
(SET_SAVED_MENU_EVENT): New macro.
Karl Heuer <kwzh@gnu.org>
parents:
15639
diff
changeset
|
5624 |
49117 | 5625 |
5626 enum | |
5627 { | |
5628 X_EVENT_NORMAL, | |
5629 X_EVENT_GOTO_OUT, | |
5630 X_EVENT_DROP | |
5631 }; | |
5632 | |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5633 /* Filter events for the current X input method. |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5634 DPYINFO is the display this event is for. |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5635 EVENT is the X event to filter. |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5636 |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5637 Returns non-zero if the event was filtered, caller shall not process |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5638 this event further. |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5639 Returns zero if event is wasn't filtered. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
5640 |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5641 #ifdef HAVE_X_I18N |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5642 static int |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5643 x_filter_event (dpyinfo, event) |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5644 struct x_display_info *dpyinfo; |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5645 XEvent *event; |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5646 { |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5647 /* XFilterEvent returns non-zero if the input method has |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5648 consumed the event. We pass the frame's X window to |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5649 XFilterEvent because that's the one for which the IC |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5650 was created. */ |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5651 |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5652 struct frame *f1 = x_any_window_to_frame (dpyinfo, |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5653 event->xclient.window); |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5654 |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5655 return XFilterEvent (event, f1 ? FRAME_X_WINDOW (f1) : None); |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5656 } |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5657 #endif |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5658 |
49322 | 5659 #ifdef USE_GTK |
5660 static struct x_display_info *current_dpyinfo; | |
5661 static struct input_event **current_bufp; | |
5662 static int *current_numcharsp; | |
5663 static int current_count; | |
5664 static int current_finish; | |
5665 | |
5666 /* This is the filter function invoked by the GTK event loop. | |
5667 It is invoked before the XEvent is translated to a GdkEvent, | |
5668 so we have a chanse to act on the event before GTK. */ | |
5669 static GdkFilterReturn | |
5670 event_handler_gdk (gxev, ev, data) | |
5671 GdkXEvent *gxev; | |
5672 GdkEvent *ev; | |
5673 gpointer data; | |
5674 { | |
5675 XEvent *xev = (XEvent*)gxev; | |
5676 | |
5677 if (current_numcharsp) | |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5678 { |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5679 #ifdef HAVE_X_I18N |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5680 /* Filter events for the current X input method. |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5681 GTK calls XFilterEvent but not for key press and release, |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5682 so we do it here. */ |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5683 if (xev->type == KeyPress || xev->type == KeyRelease) |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5684 if (x_filter_event (current_dpyinfo, xev)) |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5685 return GDK_FILTER_REMOVE; |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5686 #endif |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5687 current_count += handle_one_xevent (current_dpyinfo, |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5688 xev, |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5689 current_bufp, |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5690 current_numcharsp, |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5691 ¤t_finish); |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5692 } |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5693 else |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
5694 current_finish = x_dispatch_event (xev, GDK_DISPLAY ()); |
49322 | 5695 |
5696 if (current_finish == X_EVENT_GOTO_OUT || current_finish == X_EVENT_DROP) | |
5697 return GDK_FILTER_REMOVE; | |
5698 | |
5699 return GDK_FILTER_CONTINUE; | |
5700 } | |
5701 #endif /* USE_GTK */ | |
5702 | |
5703 | |
49117 | 5704 /* Handles the XEvent EVENT on display DPYINFO. |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
5705 |
49117 | 5706 *FINISH is X_EVENT_GOTO_OUT if caller should stop reading events. |
5707 *FINISH is zero if caller should continue reading events. | |
5708 *FINISH is X_EVENT_DROP if event should not be passed to the toolkit. | |
5709 | |
5710 Events representing keys are stored in buffer *BUFP_R, | |
5711 which can hold up to *NUMCHARSP characters. | |
5712 We return the number of characters stored into the buffer. */ | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
5713 |
49117 | 5714 static int |
5715 handle_one_xevent (dpyinfo, eventp, bufp_r, numcharsp, finish) | |
5716 struct x_display_info *dpyinfo; | |
5717 XEvent *eventp; | |
5718 /* register */ struct input_event **bufp_r; | |
5719 /* register */ int *numcharsp; | |
5720 int *finish; | |
5721 { | |
5722 int count = 0; | |
5723 int nbytes = 0; | |
5724 struct frame *f; | |
5725 struct coding_system coding; | |
5726 struct input_event *bufp = *bufp_r; | |
5727 int numchars = *numcharsp; | |
5728 XEvent event = *eventp; | |
5729 | |
5730 *finish = X_EVENT_NORMAL; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
5731 |
49117 | 5732 switch (event.type) |
5733 { | |
5734 case ClientMessage: | |
5735 { | |
5736 if (event.xclient.message_type | |
5737 == dpyinfo->Xatom_wm_protocols | |
5738 && event.xclient.format == 32) | |
5739 { | |
5740 if (event.xclient.data.l[0] | |
5741 == dpyinfo->Xatom_wm_take_focus) | |
5742 { | |
5743 /* Use x_any_window_to_frame because this | |
5744 could be the shell widget window | |
5745 if the frame has no title bar. */ | |
5746 f = x_any_window_to_frame (dpyinfo, event.xclient.window); | |
5747 #ifdef HAVE_X_I18N | |
5748 /* Not quite sure this is needed -pd */ | |
5749 if (f && FRAME_XIC (f)) | |
5750 XSetICFocus (FRAME_XIC (f)); | |
5751 #endif | |
5752 #if 0 /* Emacs sets WM hints whose `input' field is `true'. This | |
5753 instructs the WM to set the input focus automatically for | |
5754 Emacs with a call to XSetInputFocus. Setting WM_TAKE_FOCUS | |
5755 tells the WM to send us a ClientMessage WM_TAKE_FOCUS after | |
5756 it has set the focus. So, XSetInputFocus below is not | |
5757 needed. | |
5758 | |
5759 The call to XSetInputFocus below has also caused trouble. In | |
5760 cases where the XSetInputFocus done by the WM and the one | |
5761 below are temporally close (on a fast machine), the call | |
5762 below can generate additional FocusIn events which confuse | |
5763 Emacs. */ | |
5764 | |
5765 /* Since we set WM_TAKE_FOCUS, we must call | |
5766 XSetInputFocus explicitly. But not if f is null, | |
5767 since that might be an event for a deleted frame. */ | |
5768 if (f) | |
5769 { | |
5770 Display *d = event.xclient.display; | |
5771 /* Catch and ignore errors, in case window has been | |
5772 iconified by a window manager such as GWM. */ | |
5773 int count = x_catch_errors (d); | |
5774 XSetInputFocus (d, event.xclient.window, | |
5775 /* The ICCCM says this is | |
5776 the only valid choice. */ | |
5777 RevertToParent, | |
5778 event.xclient.data.l[1]); | |
5779 /* This is needed to detect the error | |
5780 if there is an error. */ | |
5781 XSync (d, False); | |
5782 x_uncatch_errors (d, count); | |
5783 } | |
5784 /* Not certain about handling scroll bars here */ | |
5785 #endif /* 0 */ | |
5786 } | |
5787 else if (event.xclient.data.l[0] | |
5788 == dpyinfo->Xatom_wm_save_yourself) | |
5789 { | |
5790 /* Save state modify the WM_COMMAND property to | |
5791 something which can reinstate us. This notifies | |
5792 the session manager, who's looking for such a | |
5793 PropertyNotify. Can restart processing when | |
5794 a keyboard or mouse event arrives. */ | |
5795 /* If we have a session manager, don't set this. | |
5796 KDE will then start two Emacsen, one for the | |
5797 session manager and one for this. */ | |
5798 if (numchars > 0 | |
5799 #ifdef HAVE_X_SM | |
5800 && ! x_session_have_connection () | |
5801 #endif | |
5802 ) | |
5803 { | |
5804 f = x_top_window_to_frame (dpyinfo, | |
5805 event.xclient.window); | |
5806 /* This is just so we only give real data once | |
5807 for a single Emacs process. */ | |
5808 if (f == SELECTED_FRAME ()) | |
5809 XSetCommand (FRAME_X_DISPLAY (f), | |
5810 event.xclient.window, | |
5811 initial_argv, initial_argc); | |
5812 else if (f) | |
5813 XSetCommand (FRAME_X_DISPLAY (f), | |
5814 event.xclient.window, | |
5815 0, 0); | |
5816 } | |
5817 } | |
5818 else if (event.xclient.data.l[0] | |
5819 == dpyinfo->Xatom_wm_delete_window) | |
5820 { | |
5821 struct frame *f | |
5822 = x_any_window_to_frame (dpyinfo, | |
5823 event.xclient.window); | |
5824 | |
5825 if (f) | |
5826 { | |
5827 if (numchars == 0) | |
5828 abort (); | |
5829 | |
5830 bufp->kind = DELETE_WINDOW_EVENT; | |
5831 XSETFRAME (bufp->frame_or_window, f); | |
5832 bufp->arg = Qnil; | |
5833 bufp++; | |
5834 | |
5835 count += 1; | |
5836 numchars -= 1; | |
5837 } | |
5838 else | |
5839 goto OTHER; /* May be a dialog that is to be removed */ | |
5840 } | |
5841 } | |
5842 else if (event.xclient.message_type | |
5843 == dpyinfo->Xatom_wm_configure_denied) | |
5844 { | |
5845 } | |
5846 else if (event.xclient.message_type | |
5847 == dpyinfo->Xatom_wm_window_moved) | |
5848 { | |
5849 int new_x, new_y; | |
5850 struct frame *f | |
5851 = x_window_to_frame (dpyinfo, event.xclient.window); | |
5852 | |
5853 new_x = event.xclient.data.s[0]; | |
5854 new_y = event.xclient.data.s[1]; | |
5855 | |
5856 if (f) | |
5857 { | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
5858 f->left_pos = new_x; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
5859 f->top_pos = new_y; |
49117 | 5860 } |
5861 } | |
5862 #ifdef HACK_EDITRES | |
5863 else if (event.xclient.message_type | |
5864 == dpyinfo->Xatom_editres) | |
5865 { | |
5866 struct frame *f | |
5867 = x_any_window_to_frame (dpyinfo, event.xclient.window); | |
5868 _XEditResCheckMessages (f->output_data.x->widget, NULL, | |
5869 &event, NULL); | |
5870 } | |
5871 #endif /* HACK_EDITRES */ | |
5872 else if ((event.xclient.message_type | |
5873 == dpyinfo->Xatom_DONE) | |
5874 || (event.xclient.message_type | |
5875 == dpyinfo->Xatom_PAGE)) | |
5876 { | |
5877 /* Ghostview job completed. Kill it. We could | |
5878 reply with "Next" if we received "Page", but we | |
5879 currently never do because we are interested in | |
5880 images, only, which should have 1 page. */ | |
5881 Pixmap pixmap = (Pixmap) event.xclient.data.l[1]; | |
5882 struct frame *f | |
5883 = x_window_to_frame (dpyinfo, event.xclient.window); | |
5884 x_kill_gs_process (pixmap, f); | |
5885 expose_frame (f, 0, 0, 0, 0); | |
5886 } | |
5887 #ifdef USE_TOOLKIT_SCROLL_BARS | |
5888 /* Scroll bar callbacks send a ClientMessage from which | |
5889 we construct an input_event. */ | |
5890 else if (event.xclient.message_type | |
5891 == dpyinfo->Xatom_Scrollbar) | |
5892 { | |
5893 x_scroll_bar_to_input_event (&event, bufp); | |
5894 ++bufp, ++count, --numchars; | |
5895 goto out; | |
5896 } | |
5897 #endif /* USE_TOOLKIT_SCROLL_BARS */ | |
5898 else | |
5899 goto OTHER; | |
5900 } | |
5901 break; | |
5902 | |
5903 case SelectionNotify: | |
5904 #ifdef USE_X_TOOLKIT | |
5905 if (! x_window_to_frame (dpyinfo, event.xselection.requestor)) | |
5906 goto OTHER; | |
5907 #endif /* not USE_X_TOOLKIT */ | |
5908 x_handle_selection_notify (&event.xselection); | |
5909 break; | |
5910 | |
5911 case SelectionClear: /* Someone has grabbed ownership. */ | |
5912 #ifdef USE_X_TOOLKIT | |
5913 if (! x_window_to_frame (dpyinfo, event.xselectionclear.window)) | |
5914 goto OTHER; | |
5915 #endif /* USE_X_TOOLKIT */ | |
5916 { | |
5917 XSelectionClearEvent *eventp = (XSelectionClearEvent *) &event; | |
5918 | |
5919 if (numchars == 0) | |
5920 abort (); | |
5921 | |
5922 bufp->kind = SELECTION_CLEAR_EVENT; | |
5923 SELECTION_EVENT_DISPLAY (bufp) = eventp->display; | |
5924 SELECTION_EVENT_SELECTION (bufp) = eventp->selection; | |
5925 SELECTION_EVENT_TIME (bufp) = eventp->time; | |
5926 bufp->frame_or_window = Qnil; | |
5927 bufp->arg = Qnil; | |
5928 bufp++; | |
5929 | |
5930 count += 1; | |
5931 numchars -= 1; | |
5932 } | |
5933 break; | |
5934 | |
5935 case SelectionRequest: /* Someone wants our selection. */ | |
5936 #ifdef USE_X_TOOLKIT | |
5937 if (!x_window_to_frame (dpyinfo, event.xselectionrequest.owner)) | |
5938 goto OTHER; | |
5939 #endif /* USE_X_TOOLKIT */ | |
5940 if (x_queue_selection_requests) | |
5941 x_queue_event (x_window_to_frame (dpyinfo, event.xselectionrequest.owner), | |
5942 &event); | |
5943 else | |
5944 { | |
5945 XSelectionRequestEvent *eventp | |
5946 = (XSelectionRequestEvent *) &event; | |
5947 | |
5948 if (numchars == 0) | |
5949 abort (); | |
5950 | |
5951 bufp->kind = SELECTION_REQUEST_EVENT; | |
5952 SELECTION_EVENT_DISPLAY (bufp) = eventp->display; | |
5953 SELECTION_EVENT_REQUESTOR (bufp) = eventp->requestor; | |
5954 SELECTION_EVENT_SELECTION (bufp) = eventp->selection; | |
5955 SELECTION_EVENT_TARGET (bufp) = eventp->target; | |
5956 SELECTION_EVENT_PROPERTY (bufp) = eventp->property; | |
5957 SELECTION_EVENT_TIME (bufp) = eventp->time; | |
5958 bufp->frame_or_window = Qnil; | |
5959 bufp->arg = Qnil; | |
5960 bufp++; | |
5961 | |
5962 count += 1; | |
5963 numchars -= 1; | |
5964 } | |
5965 break; | |
5966 | |
5967 case PropertyNotify: | |
5968 #if 0 /* This is plain wrong. In the case that we are waiting for a | |
5969 PropertyNotify used as an ACK in incremental selection | |
5970 transfer, the property will be on the receiver's window. */ | |
5971 #if defined USE_X_TOOLKIT | |
5972 if (!x_any_window_to_frame (dpyinfo, event.xproperty.window)) | |
5973 goto OTHER; | |
5974 #endif | |
5975 #endif | |
5976 x_handle_property_notify (&event.xproperty); | |
5977 goto OTHER; | |
5978 | |
5979 case ReparentNotify: | |
5980 f = x_top_window_to_frame (dpyinfo, event.xreparent.window); | |
5981 if (f) | |
5982 { | |
5983 int x, y; | |
5984 f->output_data.x->parent_desc = event.xreparent.parent; | |
5985 x_real_positions (f, &x, &y); | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
5986 f->left_pos = x; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
5987 f->top_pos = y; |
49117 | 5988 } |
50056
7933b5de384c
* xterm.c (handle_one_xevent): Pass ReparentNotify to Xt even if
Jan Djärv <jan.h.d@swipnet.se>
parents:
50021
diff
changeset
|
5989 goto OTHER; |
49117 | 5990 break; |
5991 | |
5992 case Expose: | |
5993 f = x_window_to_frame (dpyinfo, event.xexpose.window); | |
5994 if (f) | |
5995 { | |
5996 x_check_fullscreen (f); | |
5997 | |
5998 if (f->async_visible == 0) | |
5999 { | |
6000 f->async_visible = 1; | |
6001 f->async_iconified = 0; | |
6002 f->output_data.x->has_been_visible = 1; | |
6003 SET_FRAME_GARBAGED (f); | |
6004 } | |
6005 else | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6006 expose_frame (f, |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6007 event.xexpose.x, event.xexpose.y, |
49117 | 6008 event.xexpose.width, event.xexpose.height); |
6009 } | |
6010 else | |
6011 { | |
6012 #ifndef USE_TOOLKIT_SCROLL_BARS | |
6013 struct scroll_bar *bar; | |
6014 #endif | |
6015 #if defined USE_LUCID | |
6016 /* Submenus of the Lucid menu bar aren't widgets | |
6017 themselves, so there's no way to dispatch events | |
6018 to them. Recognize this case separately. */ | |
6019 { | |
6020 Widget widget | |
6021 = x_window_to_menu_bar (event.xexpose.window); | |
6022 if (widget) | |
6023 xlwmenu_redisplay (widget); | |
6024 } | |
6025 #endif /* USE_LUCID */ | |
6026 | |
6027 #ifdef USE_TOOLKIT_SCROLL_BARS | |
6028 /* Dispatch event to the widget. */ | |
6029 goto OTHER; | |
6030 #else /* not USE_TOOLKIT_SCROLL_BARS */ | |
6031 bar = x_window_to_scroll_bar (event.xexpose.window); | |
6032 | |
6033 if (bar) | |
6034 x_scroll_bar_expose (bar, &event); | |
6035 #ifdef USE_X_TOOLKIT | |
6036 else | |
6037 goto OTHER; | |
6038 #endif /* USE_X_TOOLKIT */ | |
6039 #endif /* not USE_TOOLKIT_SCROLL_BARS */ | |
6040 } | |
6041 break; | |
6042 | |
6043 case GraphicsExpose: /* This occurs when an XCopyArea's | |
6044 source area was obscured or not | |
6045 available. */ | |
6046 f = x_window_to_frame (dpyinfo, event.xgraphicsexpose.drawable); | |
6047 if (f) | |
6048 { | |
6049 expose_frame (f, | |
6050 event.xgraphicsexpose.x, event.xgraphicsexpose.y, | |
6051 event.xgraphicsexpose.width, | |
6052 event.xgraphicsexpose.height); | |
6053 } | |
6054 #ifdef USE_X_TOOLKIT | |
6055 else | |
6056 goto OTHER; | |
6057 #endif /* USE_X_TOOLKIT */ | |
6058 break; | |
6059 | |
6060 case NoExpose: /* This occurs when an XCopyArea's | |
6061 source area was completely | |
6062 available. */ | |
6063 break; | |
6064 | |
6065 case UnmapNotify: | |
6066 /* Redo the mouse-highlight after the tooltip has gone. */ | |
6067 if (event.xmap.window == tip_window) | |
6068 { | |
6069 tip_window = 0; | |
6070 redo_mouse_highlight (); | |
6071 } | |
6072 | |
6073 f = x_top_window_to_frame (dpyinfo, event.xunmap.window); | |
6074 if (f) /* F may no longer exist if | |
6075 the frame was deleted. */ | |
6076 { | |
6077 /* While a frame is unmapped, display generation is | |
6078 disabled; you don't want to spend time updating a | |
6079 display that won't ever be seen. */ | |
6080 f->async_visible = 0; | |
6081 /* We can't distinguish, from the event, whether the window | |
6082 has become iconified or invisible. So assume, if it | |
6083 was previously visible, than now it is iconified. | |
6084 But x_make_frame_invisible clears both | |
6085 the visible flag and the iconified flag; | |
6086 and that way, we know the window is not iconified now. */ | |
6087 if (FRAME_VISIBLE_P (f) || FRAME_ICONIFIED_P (f)) | |
6088 { | |
6089 f->async_iconified = 1; | |
6090 | |
6091 bufp->kind = ICONIFY_EVENT; | |
6092 XSETFRAME (bufp->frame_or_window, f); | |
6093 bufp->arg = Qnil; | |
6094 bufp++; | |
6095 count++; | |
6096 numchars--; | |
6097 } | |
6098 } | |
6099 goto OTHER; | |
6100 | |
6101 case MapNotify: | |
6102 if (event.xmap.window == tip_window) | |
6103 /* The tooltip has been drawn already. Avoid | |
6104 the SET_FRAME_GARBAGED below. */ | |
6105 goto OTHER; | |
6106 | |
6107 /* We use x_top_window_to_frame because map events can | |
6108 come for sub-windows and they don't mean that the | |
6109 frame is visible. */ | |
6110 f = x_top_window_to_frame (dpyinfo, event.xmap.window); | |
6111 if (f) | |
6112 { | |
6113 /* wait_reading_process_input will notice this and update | |
6114 the frame's display structures. | |
6115 If we where iconified, we should not set garbaged, | |
6116 because that stops redrawing on Expose events. This looks | |
6117 bad if we are called from a recursive event loop | |
6118 (x_dispatch_event), for example when a dialog is up. */ | |
6119 if (! f->async_iconified) | |
6120 SET_FRAME_GARBAGED (f); | |
6121 | |
6122 f->async_visible = 1; | |
6123 f->async_iconified = 0; | |
6124 f->output_data.x->has_been_visible = 1; | |
6125 | |
6126 if (f->iconified) | |
6127 { | |
6128 bufp->kind = DEICONIFY_EVENT; | |
6129 XSETFRAME (bufp->frame_or_window, f); | |
6130 bufp->arg = Qnil; | |
6131 bufp++; | |
6132 count++; | |
6133 numchars--; | |
6134 } | |
6135 else if (! NILP (Vframe_list) | |
6136 && ! NILP (XCDR (Vframe_list))) | |
6137 /* Force a redisplay sooner or later | |
6138 to update the frame titles | |
6139 in case this is the second frame. */ | |
6140 record_asynch_buffer_change (); | |
6141 } | |
6142 goto OTHER; | |
6143 | |
6144 case KeyPress: | |
6145 | |
49326 | 6146 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) |
49117 | 6147 /* Dispatch KeyPress events when in menu. */ |
49322 | 6148 if (popup_activated ()) |
49117 | 6149 goto OTHER; |
49326 | 6150 #endif |
49322 | 6151 |
49117 | 6152 f = x_any_window_to_frame (dpyinfo, event.xkey.window); |
6153 | |
6154 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight)) | |
6155 { | |
6156 dpyinfo->mouse_face_hidden = 1; | |
6157 clear_mouse_face (dpyinfo); | |
6158 } | |
6159 | |
6160 #if defined USE_MOTIF && defined USE_TOOLKIT_SCROLL_BARS | |
6161 if (f == 0) | |
6162 { | |
6163 /* Scroll bars consume key events, but we want | |
6164 the keys to go to the scroll bar's frame. */ | |
6165 Widget widget = XtWindowToWidget (dpyinfo->display, | |
6166 event.xkey.window); | |
6167 if (widget && XmIsScrollBar (widget)) | |
6168 { | |
6169 widget = XtParent (widget); | |
6170 f = x_any_window_to_frame (dpyinfo, XtWindow (widget)); | |
6171 } | |
6172 } | |
6173 #endif /* USE_MOTIF and USE_TOOLKIT_SCROLL_BARS */ | |
6174 | |
6175 if (f != 0) | |
6176 { | |
6177 KeySym keysym, orig_keysym; | |
6178 /* al%imercury@uunet.uu.net says that making this 81 | |
6179 instead of 80 fixed a bug whereby meta chars made | |
6180 his Emacs hang. | |
6181 | |
6182 It seems that some version of XmbLookupString has | |
6183 a bug of not returning XBufferOverflow in | |
6184 status_return even if the input is too long to | |
6185 fit in 81 bytes. So, we must prepare sufficient | |
6186 bytes for copy_buffer. 513 bytes (256 chars for | |
6187 two-byte character set) seems to be a fairly good | |
6188 approximation. -- 2000.8.10 handa@etl.go.jp */ | |
6189 unsigned char copy_buffer[513]; | |
6190 unsigned char *copy_bufptr = copy_buffer; | |
6191 int copy_bufsiz = sizeof (copy_buffer); | |
6192 int modifiers; | |
6193 Lisp_Object coding_system = Qlatin_1; | |
6194 | |
6195 event.xkey.state | |
6196 |= x_emacs_to_x_modifiers (FRAME_X_DISPLAY_INFO (f), | |
6197 extra_keyboard_modifiers); | |
6198 modifiers = event.xkey.state; | |
6199 | |
6200 /* This will have to go some day... */ | |
6201 | |
6202 /* make_lispy_event turns chars into control chars. | |
6203 Don't do it here because XLookupString is too eager. */ | |
6204 event.xkey.state &= ~ControlMask; | |
6205 event.xkey.state &= ~(dpyinfo->meta_mod_mask | |
6206 | dpyinfo->super_mod_mask | |
6207 | dpyinfo->hyper_mod_mask | |
6208 | dpyinfo->alt_mod_mask); | |
6209 | |
6210 /* In case Meta is ComposeCharacter, | |
6211 clear its status. According to Markus Ehrnsperger | |
6212 Markus.Ehrnsperger@lehrstuhl-bross.physik.uni-muenchen.de | |
6213 this enables ComposeCharacter to work whether or | |
6214 not it is combined with Meta. */ | |
6215 if (modifiers & dpyinfo->meta_mod_mask) | |
6216 bzero (&compose_status, sizeof (compose_status)); | |
6217 | |
6218 #ifdef HAVE_X_I18N | |
6219 if (FRAME_XIC (f)) | |
6220 { | |
6221 Status status_return; | |
6222 | |
6223 coding_system = Vlocale_coding_system; | |
6224 nbytes = XmbLookupString (FRAME_XIC (f), | |
6225 &event.xkey, copy_bufptr, | |
6226 copy_bufsiz, &keysym, | |
6227 &status_return); | |
6228 if (status_return == XBufferOverflow) | |
6229 { | |
6230 copy_bufsiz = nbytes + 1; | |
6231 copy_bufptr = (char *) alloca (copy_bufsiz); | |
6232 nbytes = XmbLookupString (FRAME_XIC (f), | |
6233 &event.xkey, copy_bufptr, | |
6234 copy_bufsiz, &keysym, | |
6235 &status_return); | |
6236 } | |
6237 /* Xutf8LookupString is a new but already deprecated interface. -stef */ | |
6238 #if 0 && defined X_HAVE_UTF8_STRING | |
6239 else if (status_return == XLookupKeySym) | |
6240 { /* Try again but with utf-8. */ | |
6241 coding_system = Qutf_8; | |
6242 nbytes = Xutf8LookupString (FRAME_XIC (f), | |
6243 &event.xkey, copy_bufptr, | |
6244 copy_bufsiz, &keysym, | |
6245 &status_return); | |
6246 if (status_return == XBufferOverflow) | |
6247 { | |
6248 copy_bufsiz = nbytes + 1; | |
6249 copy_bufptr = (char *) alloca (copy_bufsiz); | |
6250 nbytes = Xutf8LookupString (FRAME_XIC (f), | |
6251 &event.xkey, | |
6252 copy_bufptr, | |
6253 copy_bufsiz, &keysym, | |
6254 &status_return); | |
6255 } | |
6256 } | |
6257 #endif | |
6258 | |
6259 if (status_return == XLookupNone) | |
6260 break; | |
6261 else if (status_return == XLookupChars) | |
6262 { | |
6263 keysym = NoSymbol; | |
6264 modifiers = 0; | |
6265 } | |
6266 else if (status_return != XLookupKeySym | |
6267 && status_return != XLookupBoth) | |
6268 abort (); | |
6269 } | |
6270 else | |
6271 nbytes = XLookupString (&event.xkey, copy_bufptr, | |
6272 copy_bufsiz, &keysym, | |
6273 &compose_status); | |
6274 #else | |
6275 nbytes = XLookupString (&event.xkey, copy_bufptr, | |
6276 copy_bufsiz, &keysym, | |
6277 &compose_status); | |
6278 #endif | |
6279 | |
6280 orig_keysym = keysym; | |
6281 | |
6282 if (numchars > 1) | |
6283 { | |
6284 Lisp_Object c; | |
6285 | |
6286 /* First deal with keysyms which have defined | |
6287 translations to characters. */ | |
6288 if (keysym >= 32 && keysym < 128) | |
6289 /* Avoid explicitly decoding each ASCII character. */ | |
6290 { | |
6291 bufp->kind = ASCII_KEYSTROKE_EVENT; | |
6292 bufp->code = keysym; | |
6293 XSETFRAME (bufp->frame_or_window, f); | |
6294 bufp->arg = Qnil; | |
6295 bufp->modifiers | |
6296 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), | |
6297 modifiers); | |
6298 bufp->timestamp = event.xkey.time; | |
6299 bufp++; | |
6300 count++; | |
6301 numchars--; | |
6302 } | |
6303 /* Now non-ASCII. */ | |
6304 else if (HASH_TABLE_P (Vx_keysym_table) | |
6305 && (NATNUMP (c = Fgethash (make_number (keysym), | |
6306 Vx_keysym_table, | |
6307 Qnil)))) | |
6308 { | |
6309 bufp->kind = (SINGLE_BYTE_CHAR_P (XFASTINT (c)) | |
6310 ? ASCII_KEYSTROKE_EVENT | |
6311 : MULTIBYTE_CHAR_KEYSTROKE_EVENT); | |
6312 bufp->code = XFASTINT (c); | |
6313 XSETFRAME (bufp->frame_or_window, f); | |
6314 bufp->arg = Qnil; | |
6315 bufp->modifiers | |
6316 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), | |
6317 modifiers); | |
6318 bufp->timestamp = event.xkey.time; | |
6319 bufp++; | |
6320 count++; | |
6321 numchars--; | |
6322 } | |
6323 /* Random non-modifier sorts of keysyms. */ | |
6324 else if (((keysym >= XK_BackSpace && keysym <= XK_Escape) | |
6325 || keysym == XK_Delete | |
6326 #ifdef XK_ISO_Left_Tab | |
6327 || (keysym >= XK_ISO_Left_Tab | |
6328 && keysym <= XK_ISO_Enter) | |
6329 #endif | |
6330 || IsCursorKey (keysym) /* 0xff50 <= x < 0xff60 */ | |
6331 || IsMiscFunctionKey (keysym) /* 0xff60 <= x < VARIES */ | |
6332 #ifdef HPUX | |
6333 /* This recognizes the "extended function | |
6334 keys". It seems there's no cleaner way. | |
6335 Test IsModifierKey to avoid handling | |
6336 mode_switch incorrectly. */ | |
6337 || ((unsigned) (keysym) >= XK_Select | |
6338 && (unsigned)(keysym) < XK_KP_Space) | |
6339 #endif | |
6340 #ifdef XK_dead_circumflex | |
6341 || orig_keysym == XK_dead_circumflex | |
6342 #endif | |
6343 #ifdef XK_dead_grave | |
6344 || orig_keysym == XK_dead_grave | |
6345 #endif | |
6346 #ifdef XK_dead_tilde | |
6347 || orig_keysym == XK_dead_tilde | |
6348 #endif | |
6349 #ifdef XK_dead_diaeresis | |
6350 || orig_keysym == XK_dead_diaeresis | |
6351 #endif | |
6352 #ifdef XK_dead_macron | |
6353 || orig_keysym == XK_dead_macron | |
6354 #endif | |
6355 #ifdef XK_dead_degree | |
6356 || orig_keysym == XK_dead_degree | |
6357 #endif | |
6358 #ifdef XK_dead_acute | |
6359 || orig_keysym == XK_dead_acute | |
6360 #endif | |
6361 #ifdef XK_dead_cedilla | |
6362 || orig_keysym == XK_dead_cedilla | |
6363 #endif | |
6364 #ifdef XK_dead_breve | |
6365 || orig_keysym == XK_dead_breve | |
6366 #endif | |
6367 #ifdef XK_dead_ogonek | |
6368 || orig_keysym == XK_dead_ogonek | |
6369 #endif | |
6370 #ifdef XK_dead_caron | |
6371 || orig_keysym == XK_dead_caron | |
6372 #endif | |
6373 #ifdef XK_dead_doubleacute | |
6374 || orig_keysym == XK_dead_doubleacute | |
6375 #endif | |
6376 #ifdef XK_dead_abovedot | |
6377 || orig_keysym == XK_dead_abovedot | |
6378 #endif | |
6379 || IsKeypadKey (keysym) /* 0xff80 <= x < 0xffbe */ | |
6380 || IsFunctionKey (keysym) /* 0xffbe <= x < 0xffe1 */ | |
6381 /* Any "vendor-specific" key is ok. */ | |
6382 || (orig_keysym & (1 << 28)) | |
6383 || (keysym != NoSymbol && nbytes == 0)) | |
6384 && ! (IsModifierKey (orig_keysym) | |
6385 #ifndef HAVE_X11R5 | |
6386 #ifdef XK_Mode_switch | |
6387 || ((unsigned)(orig_keysym) == XK_Mode_switch) | |
6388 #endif | |
6389 #ifdef XK_Num_Lock | |
6390 || ((unsigned)(orig_keysym) == XK_Num_Lock) | |
6391 #endif | |
6392 #endif /* not HAVE_X11R5 */ | |
6393 /* The symbols from XK_ISO_Lock | |
6394 to XK_ISO_Last_Group_Lock | |
6395 don't have real modifiers but | |
6396 should be treated similarly to | |
6397 Mode_switch by Emacs. */ | |
6398 #if defined XK_ISO_Lock && defined XK_ISO_Last_Group_Lock | |
6399 || ((unsigned)(orig_keysym) | |
6400 >= XK_ISO_Lock | |
6401 && (unsigned)(orig_keysym) | |
6402 <= XK_ISO_Last_Group_Lock) | |
6403 #endif | |
6404 )) | |
6405 { | |
6406 if (temp_index == sizeof temp_buffer / sizeof (short)) | |
6407 temp_index = 0; | |
6408 temp_buffer[temp_index++] = keysym; | |
6409 /* make_lispy_event will convert this to a symbolic | |
6410 key. */ | |
6411 bufp->kind = NON_ASCII_KEYSTROKE_EVENT; | |
6412 bufp->code = keysym; | |
6413 XSETFRAME (bufp->frame_or_window, f); | |
6414 bufp->arg = Qnil; | |
6415 bufp->modifiers | |
6416 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), | |
6417 modifiers); | |
6418 bufp->timestamp = event.xkey.time; | |
6419 bufp++; | |
6420 count++; | |
6421 numchars--; | |
6422 } | |
6423 else if (numchars > nbytes) | |
6424 { /* Raw bytes, not keysym. */ | |
6425 register int i; | |
6426 register int c; | |
6427 int nchars, len; | |
6428 | |
6429 /* The input should be decoded with `coding_system' | |
6430 which depends on which X*LookupString function | |
6431 we used just above and the locale. */ | |
6432 setup_coding_system (coding_system, &coding); | |
6433 coding.src_multibyte = 0; | |
6434 coding.dst_multibyte = 1; | |
6435 /* The input is converted to events, thus we can't | |
6436 handle composition. Anyway, there's no XIM that | |
6437 gives us composition information. */ | |
6438 coding.composing = COMPOSITION_DISABLED; | |
6439 | |
6440 for (i = 0; i < nbytes; i++) | |
6441 { | |
6442 if (temp_index == (sizeof temp_buffer | |
6443 / sizeof (short))) | |
6444 temp_index = 0; | |
6445 temp_buffer[temp_index++] = copy_bufptr[i]; | |
6446 } | |
6447 | |
6448 { | |
6449 /* Decode the input data. */ | |
6450 int require; | |
6451 unsigned char *p; | |
6452 | |
6453 require = decoding_buffer_size (&coding, nbytes); | |
6454 p = (unsigned char *) alloca (require); | |
6455 coding.mode |= CODING_MODE_LAST_BLOCK; | |
51129 | 6456 /* We explicitly disable composition |
49117 | 6457 handling because key data should |
6458 not contain any composition | |
6459 sequence. */ | |
6460 coding.composing = COMPOSITION_DISABLED; | |
6461 decode_coding (&coding, copy_bufptr, p, | |
6462 nbytes, require); | |
6463 nbytes = coding.produced; | |
6464 nchars = coding.produced_char; | |
6465 copy_bufptr = p; | |
6466 } | |
6467 | |
6468 /* Convert the input data to a sequence of | |
6469 character events. */ | |
6470 for (i = 0; i < nbytes; i += len) | |
6471 { | |
6472 if (nchars == nbytes) | |
6473 c = copy_bufptr[i], len = 1; | |
6474 else | |
6475 c = STRING_CHAR_AND_LENGTH (copy_bufptr + i, | |
6476 nbytes - i, len); | |
6477 | |
6478 bufp->kind = (SINGLE_BYTE_CHAR_P (c) | |
6479 ? ASCII_KEYSTROKE_EVENT | |
6480 : MULTIBYTE_CHAR_KEYSTROKE_EVENT); | |
6481 bufp->code = c; | |
6482 XSETFRAME (bufp->frame_or_window, f); | |
6483 bufp->arg = Qnil; | |
6484 bufp->modifiers | |
6485 = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), | |
6486 modifiers); | |
6487 bufp->timestamp = event.xkey.time; | |
6488 bufp++; | |
6489 } | |
6490 | |
6491 count += nchars; | |
6492 numchars -= nchars; | |
6493 | |
6494 if (keysym == NoSymbol) | |
6495 break; | |
6496 } | |
6497 else | |
6498 abort (); | |
6499 } | |
6500 else | |
6501 abort (); | |
6502 } | |
6503 #ifdef HAVE_X_I18N | |
6504 /* Don't dispatch this event since XtDispatchEvent calls | |
6505 XFilterEvent, and two calls in a row may freeze the | |
6506 client. */ | |
6507 break; | |
6508 #else | |
6509 goto OTHER; | |
6510 #endif | |
6511 | |
6512 case KeyRelease: | |
6513 #ifdef HAVE_X_I18N | |
6514 /* Don't dispatch this event since XtDispatchEvent calls | |
6515 XFilterEvent, and two calls in a row may freeze the | |
6516 client. */ | |
6517 break; | |
6518 #else | |
6519 goto OTHER; | |
6520 #endif | |
6521 | |
6522 case EnterNotify: | |
6523 { | |
6524 int n; | |
6525 | |
6526 n = x_detect_focus_change (dpyinfo, &event, bufp, numchars); | |
6527 if (n > 0) | |
6528 { | |
6529 bufp += n, count += n, numchars -= n; | |
6530 } | |
6531 | |
6532 f = x_any_window_to_frame (dpyinfo, event.xcrossing.window); | |
6533 | |
6534 #if 0 | |
6535 if (event.xcrossing.focus) | |
6536 { | |
6537 /* Avoid nasty pop/raise loops. */ | |
6538 if (f && (!(f->auto_raise) | |
6539 || !(f->auto_lower) | |
6540 || (event.xcrossing.time - enter_timestamp) > 500)) | |
6541 { | |
6542 x_new_focus_frame (dpyinfo, f); | |
6543 enter_timestamp = event.xcrossing.time; | |
6544 } | |
6545 } | |
6546 else if (f == dpyinfo->x_focus_frame) | |
6547 x_new_focus_frame (dpyinfo, 0); | |
6548 #endif | |
6549 | |
6550 /* EnterNotify counts as mouse movement, | |
6551 so update things that depend on mouse position. */ | |
6552 if (f && !f->output_data.x->hourglass_p) | |
6553 note_mouse_movement (f, &event.xmotion); | |
6554 goto OTHER; | |
6555 } | |
6556 | |
6557 case FocusIn: | |
6558 { | |
6559 int n; | |
6560 | |
6561 n = x_detect_focus_change (dpyinfo, &event, bufp, numchars); | |
6562 if (n > 0) | |
6563 { | |
6564 bufp += n, count += n, numchars -= n; | |
6565 } | |
6566 } | |
6567 | |
6568 goto OTHER; | |
6569 | |
6570 case LeaveNotify: | |
6571 { | |
6572 int n; | |
6573 | |
6574 n = x_detect_focus_change (dpyinfo, &event, bufp, numchars); | |
6575 if (n > 0) | |
6576 { | |
6577 bufp += n, count += n, numchars -= n; | |
6578 } | |
6579 } | |
6580 | |
6581 f = x_top_window_to_frame (dpyinfo, event.xcrossing.window); | |
6582 if (f) | |
6583 { | |
6584 if (f == dpyinfo->mouse_face_mouse_frame) | |
6585 { | |
6586 /* If we move outside the frame, then we're | |
6587 certainly no longer on any text in the frame. */ | |
6588 clear_mouse_face (dpyinfo); | |
6589 dpyinfo->mouse_face_mouse_frame = 0; | |
6590 } | |
6591 | |
6592 /* Generate a nil HELP_EVENT to cancel a help-echo. | |
6593 Do it only if there's something to cancel. | |
6594 Otherwise, the startup message is cleared when | |
6595 the mouse leaves the frame. */ | |
6596 if (any_help_event_p) | |
6597 { | |
6598 Lisp_Object frame; | |
6599 int n; | |
6600 | |
6601 XSETFRAME (frame, f); | |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6602 help_echo_string = Qnil; |
49117 | 6603 n = gen_help_event (bufp, numchars, |
6604 Qnil, frame, Qnil, Qnil, 0); | |
6605 bufp += n, count += n, numchars -= n; | |
6606 } | |
6607 | |
6608 } | |
6609 goto OTHER; | |
6610 | |
6611 case FocusOut: | |
6612 { | |
6613 int n; | |
6614 | |
6615 n = x_detect_focus_change (dpyinfo, &event, bufp, numchars); | |
6616 if (n > 0) | |
6617 { | |
6618 bufp += n, count += n, numchars -= n; | |
6619 } | |
6620 } | |
6621 | |
6622 goto OTHER; | |
6623 | |
6624 case MotionNotify: | |
6625 { | |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6626 previous_help_echo_string = help_echo_string; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6627 help_echo_string = help_echo_object = help_echo_window = Qnil; |
49117 | 6628 help_echo_pos = -1; |
6629 | |
6630 if (dpyinfo->grabbed && last_mouse_frame | |
6631 && FRAME_LIVE_P (last_mouse_frame)) | |
6632 f = last_mouse_frame; | |
6633 else | |
6634 f = x_window_to_frame (dpyinfo, event.xmotion.window); | |
6635 | |
6636 if (dpyinfo->mouse_face_hidden) | |
6637 { | |
6638 dpyinfo->mouse_face_hidden = 0; | |
6639 clear_mouse_face (dpyinfo); | |
6640 } | |
6641 | |
6642 if (f) | |
6643 { | |
6644 | |
6645 /* Generate SELECT_WINDOW_EVENTs when needed. */ | |
6646 if (mouse_autoselect_window) | |
6647 { | |
6648 Lisp_Object window; | |
6649 | |
6650 window = window_from_coordinates (f, | |
6651 event.xmotion.x, event.xmotion.y, | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6652 0, 0, 0, 0); |
49117 | 6653 |
6654 /* Window will be selected only when it is not selected now and | |
6655 last mouse movement event was not in it. Minibuffer window | |
6656 will be selected iff it is active. */ | |
6657 if (WINDOWP(window) | |
6658 && !EQ (window, last_window) | |
6659 && !EQ (window, selected_window) | |
6660 && numchars > 0) | |
6661 { | |
6662 bufp->kind = SELECT_WINDOW_EVENT; | |
6663 bufp->frame_or_window = window; | |
6664 bufp->arg = Qnil; | |
6665 ++bufp, ++count, --numchars; | |
6666 } | |
6667 | |
6668 last_window=window; | |
6669 } | |
6670 note_mouse_movement (f, &event.xmotion); | |
6671 } | |
6672 else | |
6673 { | |
6674 #ifndef USE_TOOLKIT_SCROLL_BARS | |
6675 struct scroll_bar *bar | |
6676 = x_window_to_scroll_bar (event.xmotion.window); | |
6677 | |
6678 if (bar) | |
6679 x_scroll_bar_note_movement (bar, &event); | |
6680 #endif /* USE_TOOLKIT_SCROLL_BARS */ | |
6681 | |
6682 /* If we move outside the frame, then we're | |
6683 certainly no longer on any text in the frame. */ | |
6684 clear_mouse_face (dpyinfo); | |
6685 } | |
6686 | |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6687 /* If the contents of the global variable help_echo_string |
49117 | 6688 has changed, generate a HELP_EVENT. */ |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6689 if (!NILP (help_echo_string) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6690 || !NILP (previous_help_echo_string)) |
49117 | 6691 { |
6692 Lisp_Object frame; | |
6693 int n; | |
6694 | |
6695 if (f) | |
6696 XSETFRAME (frame, f); | |
6697 else | |
6698 frame = Qnil; | |
6699 | |
6700 any_help_event_p = 1; | |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6701 n = gen_help_event (bufp, numchars, help_echo_string, frame, |
49117 | 6702 help_echo_window, help_echo_object, |
6703 help_echo_pos); | |
6704 bufp += n, count += n, numchars -= n; | |
6705 } | |
6706 | |
6707 goto OTHER; | |
6708 } | |
6709 | |
6710 case ConfigureNotify: | |
6711 f = x_top_window_to_frame (dpyinfo, event.xconfigure.window); | |
6712 if (f) | |
6713 { | |
6714 #ifndef USE_X_TOOLKIT | |
49322 | 6715 #ifdef USE_GTK |
6716 xg_resize_widgets (f, event.xconfigure.width, | |
6717 event.xconfigure.height); | |
6718 #else /* not USE_GTK */ | |
49117 | 6719 /* If there is a pending resize for fullscreen, don't |
6720 do this one, the right one will come later. | |
6721 The toolkit version doesn't seem to need this, but we | |
6722 need to reset it below. */ | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6723 int dont_resize |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6724 = ((f->want_fullscreen & FULLSCREEN_WAIT) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6725 && f->new_text_cols != 0); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6726 int rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, event.xconfigure.height); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6727 int columns = FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f, event.xconfigure.width); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6728 |
49117 | 6729 if (dont_resize) |
6730 goto OTHER; | |
6731 | |
6732 /* In the toolkit version, change_frame_size | |
6733 is called by the code that handles resizing | |
6734 of the EmacsFrame widget. */ | |
6735 | |
6736 /* Even if the number of character rows and columns has | |
6737 not changed, the font size may have changed, so we need | |
6738 to check the pixel dimensions as well. */ | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6739 if (columns != FRAME_COLS (f) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6740 || rows != FRAME_LINES (f) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6741 || event.xconfigure.width != FRAME_PIXEL_WIDTH (f) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6742 || event.xconfigure.height != FRAME_PIXEL_HEIGHT (f)) |
49117 | 6743 { |
6744 change_frame_size (f, rows, columns, 0, 1, 0); | |
6745 SET_FRAME_GARBAGED (f); | |
6746 cancel_mouse_face (f); | |
6747 } | |
49322 | 6748 #endif /* not USE_GTK */ |
49117 | 6749 #endif |
6750 | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6751 FRAME_PIXEL_WIDTH (f) = event.xconfigure.width; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6752 FRAME_PIXEL_HEIGHT (f) = event.xconfigure.height; |
49117 | 6753 |
49322 | 6754 #ifdef USE_GTK |
6755 /* GTK creates windows but doesn't map them. | |
6756 Only get real positions and check fullscreen when mapped. */ | |
6757 if (FRAME_GTK_OUTER_WIDGET (f) | |
6758 && GTK_WIDGET_MAPPED (FRAME_GTK_OUTER_WIDGET (f))) | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6759 #endif |
49322 | 6760 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6761 /* What we have now is the position of Emacs's own window. |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6762 Convert that to the position of the window manager window. */ |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6763 x_real_positions (f, &f->left_pos, &f->top_pos); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6764 |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6765 x_check_fullscreen_move (f); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6766 if (f->want_fullscreen & FULLSCREEN_WAIT) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6767 f->want_fullscreen &= ~(FULLSCREEN_WAIT|FULLSCREEN_BOTH); |
49322 | 6768 } |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6769 |
49117 | 6770 #ifdef HAVE_X_I18N |
6771 if (FRAME_XIC (f) && (FRAME_XIC_STYLE (f) & XIMStatusArea)) | |
6772 xic_set_statusarea (f); | |
6773 #endif | |
6774 | |
6775 if (f->output_data.x->parent_desc != FRAME_X_DISPLAY_INFO (f)->root_window) | |
6776 { | |
6777 /* Since the WM decorations come below top_pos now, | |
6778 we must put them below top_pos in the future. */ | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6779 f->win_gravity = NorthWestGravity; |
49117 | 6780 x_wm_set_size_hint (f, (long) 0, 0); |
6781 } | |
6782 } | |
6783 goto OTHER; | |
6784 | |
49322 | 6785 case ButtonRelease: |
49117 | 6786 case ButtonPress: |
6787 { | |
6788 /* If we decide we want to generate an event to be seen | |
6789 by the rest of Emacs, we put it here. */ | |
6790 struct input_event emacs_event; | |
6791 int tool_bar_p = 0; | |
6792 | |
6793 emacs_event.kind = NO_EVENT; | |
6794 bzero (&compose_status, sizeof (compose_status)); | |
6795 | |
6796 if (dpyinfo->grabbed | |
6797 && last_mouse_frame | |
6798 && FRAME_LIVE_P (last_mouse_frame)) | |
6799 f = last_mouse_frame; | |
6800 else | |
6801 f = x_window_to_frame (dpyinfo, event.xbutton.window); | |
6802 | |
6803 if (f) | |
6804 { | |
6805 /* Is this in the tool-bar? */ | |
6806 if (WINDOWP (f->tool_bar_window) | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6807 && WINDOW_TOTAL_LINES (XWINDOW (f->tool_bar_window))) |
49117 | 6808 { |
6809 Lisp_Object window; | |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6810 int x = event.xbutton.x; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6811 int y = event.xbutton.y; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6812 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6813 window = window_from_coordinates (f, x, y, 0, 0, 0, 1); |
49117 | 6814 if (EQ (window, f->tool_bar_window)) |
6815 { | |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6816 if (event.xbutton.type == ButtonPress) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6817 handle_tool_bar_click (f, x, y, 1, 0); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6818 else |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6819 handle_tool_bar_click (f, x, y, 0, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6820 x_x_to_emacs_modifiers (dpyinfo, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6821 event.xbutton.state)); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
6822 tool_bar_p = 1; |
49117 | 6823 } |
6824 } | |
6825 | |
6826 if (!tool_bar_p) | |
6827 if (!dpyinfo->x_focus_frame | |
6828 || f == dpyinfo->x_focus_frame) | |
49322 | 6829 { |
49326 | 6830 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) |
49322 | 6831 if (! popup_activated ()) |
49326 | 6832 #endif |
49322 | 6833 construct_mouse_click (&emacs_event, &event, f); |
6834 } | |
49117 | 6835 } |
6836 else | |
6837 { | |
6838 struct scroll_bar *bar | |
6839 = x_window_to_scroll_bar (event.xbutton.window); | |
6840 | |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6841 #ifdef USE_TOOLKIT_SCROLL_BARS |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6842 /* Make the "Ctrl-Mouse-2 splits window" work for toolkit |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6843 scroll bars. */ |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6844 if (bar && event.xbutton.state & ControlMask) |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6845 { |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6846 x_scroll_bar_handle_click (bar, &event, &emacs_event); |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6847 *finish = X_EVENT_DROP; |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6848 } |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6849 #else /* not USE_TOOLKIT_SCROLL_BARS */ |
49117 | 6850 if (bar) |
6851 x_scroll_bar_handle_click (bar, &event, &emacs_event); | |
6852 #endif /* not USE_TOOLKIT_SCROLL_BARS */ | |
6853 } | |
6854 | |
6855 if (event.type == ButtonPress) | |
6856 { | |
6857 dpyinfo->grabbed |= (1 << event.xbutton.button); | |
6858 last_mouse_frame = f; | |
6859 /* Ignore any mouse motion that happened | |
6860 before this event; any subsequent mouse-movement | |
6861 Emacs events should reflect only motion after | |
6862 the ButtonPress. */ | |
6863 if (f != 0) | |
6864 f->mouse_moved = 0; | |
6865 | |
6866 if (!tool_bar_p) | |
6867 last_tool_bar_item = -1; | |
6868 } | |
6869 else | |
49322 | 6870 dpyinfo->grabbed &= ~(1 << event.xbutton.button); |
49117 | 6871 |
6872 if (numchars >= 1 && emacs_event.kind != NO_EVENT) | |
6873 { | |
6874 bcopy (&emacs_event, bufp, sizeof (struct input_event)); | |
6875 bufp++; | |
6876 count++; | |
6877 numchars--; | |
6878 } | |
6879 | |
49322 | 6880 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) |
49117 | 6881 f = x_menubar_window_to_frame (dpyinfo, event.xbutton.window); |
6882 /* For a down-event in the menu bar, | |
6883 don't pass it to Xt right now. | |
6884 Instead, save it away | |
6885 and we will pass it to Xt from kbd_buffer_get_event. | |
6886 That way, we can run some Lisp code first. */ | |
49322 | 6887 if ( |
6888 #ifdef USE_GTK | |
6889 ! popup_activated () | |
6890 && | |
6891 #endif | |
6892 f && event.type == ButtonPress | |
49117 | 6893 /* Verify the event is really within the menu bar |
6894 and not just sent to it due to grabbing. */ | |
6895 && event.xbutton.x >= 0 | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
6896 && event.xbutton.x < FRAME_PIXEL_WIDTH (f) |
49117 | 6897 && event.xbutton.y >= 0 |
6898 && event.xbutton.y < f->output_data.x->menubar_height | |
6899 && event.xbutton.same_screen) | |
6900 { | |
6901 SET_SAVED_BUTTON_EVENT; | |
6902 XSETFRAME (last_mouse_press_frame, f); | |
49322 | 6903 #ifdef USE_GTK |
6904 *finish = X_EVENT_DROP; | |
6905 #endif | |
49117 | 6906 } |
6907 else if (event.type == ButtonPress) | |
6908 { | |
6909 last_mouse_press_frame = Qnil; | |
6910 goto OTHER; | |
6911 } | |
6912 | |
6913 #ifdef USE_MOTIF /* This should do not harm for Lucid, | |
6914 but I am trying to be cautious. */ | |
6915 else if (event.type == ButtonRelease) | |
6916 { | |
6917 if (!NILP (last_mouse_press_frame)) | |
6918 { | |
6919 f = XFRAME (last_mouse_press_frame); | |
6920 if (f->output_data.x) | |
6921 SET_SAVED_BUTTON_EVENT; | |
6922 } | |
6923 else | |
6924 goto OTHER; | |
6925 } | |
6926 #endif /* USE_MOTIF */ | |
6927 else | |
6928 goto OTHER; | |
49322 | 6929 #endif /* USE_X_TOOLKIT || USE_GTK */ |
49117 | 6930 } |
6931 break; | |
6932 | |
6933 case CirculateNotify: | |
6934 goto OTHER; | |
6935 | |
6936 case CirculateRequest: | |
6937 goto OTHER; | |
6938 | |
6939 case VisibilityNotify: | |
6940 goto OTHER; | |
6941 | |
6942 case MappingNotify: | |
6943 /* Someone has changed the keyboard mapping - update the | |
6944 local cache. */ | |
6945 switch (event.xmapping.request) | |
6946 { | |
6947 case MappingModifier: | |
6948 x_find_modifier_meanings (dpyinfo); | |
6949 /* This is meant to fall through. */ | |
6950 case MappingKeyboard: | |
6951 XRefreshKeyboardMapping (&event.xmapping); | |
6952 } | |
6953 goto OTHER; | |
6954 | |
6955 default: | |
6956 OTHER: | |
6957 #ifdef USE_X_TOOLKIT | |
6958 BLOCK_INPUT; | |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6959 if (*finish != X_EVENT_DROP) |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
50056
diff
changeset
|
6960 XtDispatchEvent (&event); |
49117 | 6961 UNBLOCK_INPUT; |
6962 #endif /* USE_X_TOOLKIT */ | |
6963 break; | |
6964 } | |
6965 | |
6966 goto ret; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
6967 |
49117 | 6968 out: |
6969 *finish = X_EVENT_GOTO_OUT; | |
6970 | |
6971 ret: | |
6972 *bufp_r = bufp; | |
6973 *numcharsp = numchars; | |
6974 *eventp = event; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
6975 |
49117 | 6976 return count; |
6977 } | |
6978 | |
6979 | |
6980 /* Handles the XEvent EVENT on display DISPLAY. | |
6981 This is used for event loops outside the normal event handling, | |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
6982 i.e. looping while a popup menu or a dialog is posted. |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
6983 |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
6984 Returns the value handle_one_xevent sets in the finish argument. */ |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
6985 int |
49117 | 6986 x_dispatch_event (event, display) |
6987 XEvent *event; | |
6988 Display *display; | |
6989 { | |
6990 struct x_display_info *dpyinfo; | |
6991 struct input_event bufp[10]; | |
51576
df2c9d815bb3
(x_dispatch_event): Don't pass uninitialized
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51405
diff
changeset
|
6992 struct input_event *bufpp; |
49117 | 6993 int numchars = 10; |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
6994 int finish = X_EVENT_NORMAL; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
6995 |
51576
df2c9d815bb3
(x_dispatch_event): Don't pass uninitialized
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51405
diff
changeset
|
6996 for (bufpp = bufp; bufpp != bufp + 10; bufpp++) |
df2c9d815bb3
(x_dispatch_event): Don't pass uninitialized
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51405
diff
changeset
|
6997 EVENT_INIT (*bufpp); |
df2c9d815bb3
(x_dispatch_event): Don't pass uninitialized
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51405
diff
changeset
|
6998 bufpp = bufp; |
df2c9d815bb3
(x_dispatch_event): Don't pass uninitialized
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51405
diff
changeset
|
6999 |
49117 | 7000 for (dpyinfo = x_display_list; dpyinfo; dpyinfo = dpyinfo->next) |
7001 if (dpyinfo->display == display) | |
7002 break; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
7003 |
49117 | 7004 if (dpyinfo) |
7005 { | |
7006 int i, events; | |
7007 events = handle_one_xevent (dpyinfo, | |
7008 event, | |
7009 &bufpp, | |
7010 &numchars, | |
7011 &finish); | |
7012 for (i = 0; i < events; ++i) | |
7013 kbd_buffer_store_event (&bufp[i]); | |
7014 } | |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
7015 |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
7016 return finish; |
49117 | 7017 } |
7018 | |
7019 | |
286 | 7020 /* Read events coming from the X server. |
7021 This routine is called by the SIGIO handler. | |
7022 We return as soon as there are no more events to be read. | |
7023 | |
7024 Events representing keys are stored in buffer BUFP, | |
7025 which can hold up to NUMCHARS characters. | |
7026 We return the number of characters stored into the buffer, | |
7027 thus pretending to be `read'. | |
7028 | |
7029 EXPECTED is nonzero if the caller knows input is available. */ | |
7030 | |
43884
eb248012bf4a
(x_set_toolkit_scroll_bar_thumb) <USE_MOTIF>: Use a fixed-size
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43839
diff
changeset
|
7031 static int |
16330
e4d9d77012bc
(XTread_socket): Delete WAITP arg.
Richard M. Stallman <rms@gnu.org>
parents:
16301
diff
changeset
|
7032 XTread_socket (sd, bufp, numchars, expected) |
286 | 7033 register int sd; |
15711
099dc465c948
(SET_SAVED_MENU_EVENT): New macro.
Karl Heuer <kwzh@gnu.org>
parents:
15639
diff
changeset
|
7034 /* register */ struct input_event *bufp; |
099dc465c948
(SET_SAVED_MENU_EVENT): New macro.
Karl Heuer <kwzh@gnu.org>
parents:
15639
diff
changeset
|
7035 /* register */ int numchars; |
286 | 7036 int expected; |
7037 { | |
7038 int count = 0; | |
7039 XEvent event; | |
3938
83d870a52936
* xterm.c (XTread_socket): Initialize event_found to zero, and
Jim Blandy <jimb@redhat.com>
parents:
3924
diff
changeset
|
7040 int event_found = 0; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7041 struct x_display_info *dpyinfo; |
286 | 7042 |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2353
diff
changeset
|
7043 if (interrupt_input_blocked) |
286 | 7044 { |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2353
diff
changeset
|
7045 interrupt_input_pending = 1; |
286 | 7046 return -1; |
7047 } | |
7048 | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2353
diff
changeset
|
7049 interrupt_input_pending = 0; |
286 | 7050 BLOCK_INPUT; |
9337
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
7051 |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
7052 /* So people can tell when we have read the available input. */ |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
7053 input_signal_count++; |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
7054 |
286 | 7055 if (numchars <= 0) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7056 abort (); /* Don't think this happens. */ |
286 | 7057 |
30083
998d20abc885
(XTread_socket): Increment handling_signal at the start,
Gerd Moellmann <gerd@gnu.org>
parents:
30050
diff
changeset
|
7058 ++handling_signal; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7059 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7060 /* Find the display we are supposed to read input for. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7061 It's the one communicating on descriptor SD. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7062 for (dpyinfo = x_display_list; dpyinfo; dpyinfo = dpyinfo->next) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7063 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7064 #if 0 /* This ought to be unnecessary; let's verify it. */ |
286 | 7065 #ifdef FIOSNBIO |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7066 /* If available, Xlib uses FIOSNBIO to make the socket |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7067 non-blocking, and then looks for EWOULDBLOCK. If O_NDELAY is set, |
14165
65e51231924e
(XTread_socket): For selection_clear_event and
Richard M. Stallman <rms@gnu.org>
parents:
13898
diff
changeset
|
7068 FIOSNBIO is ignored, and instead of signaling EWOULDBLOCK, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7069 a read returns 0, which Xlib interprets as equivalent to EPIPE. */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7070 fcntl (dpyinfo->connection, F_SETFL, 0); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7071 #endif /* ! defined (FIOSNBIO) */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7072 #endif |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7073 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7074 #if 0 /* This code can't be made to work, with multiple displays, |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7075 and appears not to be used on any system any more. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7076 Also keyboard.c doesn't turn O_NDELAY on and off |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7077 for X connections. */ |
286 | 7078 #ifndef SIGIO |
7079 #ifndef HAVE_SELECT | |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7080 if (! (fcntl (dpyinfo->connection, F_GETFL, 0) & O_NDELAY)) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7081 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7082 extern int read_alarm_should_throw; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7083 read_alarm_should_throw = 1; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7084 XPeekEvent (dpyinfo->display, &event); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7085 read_alarm_should_throw = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7086 } |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7087 #endif /* HAVE_SELECT */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7088 #endif /* SIGIO */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7089 #endif |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7090 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7091 /* For debugging, this gives a way to fake an I/O error. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7092 if (dpyinfo == XTread_socket_fake_io_error) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7093 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7094 XTread_socket_fake_io_error = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7095 x_io_error_quitter (dpyinfo->display); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7096 } |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7097 |
43812
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
7098 #ifdef HAVE_X_SM |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
7099 BLOCK_INPUT; |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
7100 count += x_session_check_input (bufp, &numchars); |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
7101 UNBLOCK_INPUT; |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
7102 #endif |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
7103 |
49322 | 7104 #ifdef USE_GTK |
7105 /* For GTK we must use the GTK event loop. But XEvents gets passed | |
7106 to our filter function above, and then to the big event switch. | |
7107 We use a bunch of globals to communicate with our filter function, | |
7108 that is kind of ugly, but it works. */ | |
7109 current_dpyinfo = dpyinfo; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
7110 |
49322 | 7111 while (gtk_events_pending ()) |
7112 { | |
7113 current_count = count; | |
7114 current_numcharsp = &numchars; | |
7115 current_bufp = &bufp; | |
7116 | |
7117 gtk_main_iteration (); | |
7118 | |
7119 count = current_count; | |
7120 current_bufp = 0; | |
7121 current_numcharsp = 0; | |
7122 | |
7123 if (current_finish == X_EVENT_GOTO_OUT) | |
7124 goto out; | |
7125 } | |
7126 | |
7127 #else /* not USE_GTK */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7128 while (XPending (dpyinfo->display)) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7129 { |
49117 | 7130 int finish; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
7131 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7132 XNextEvent (dpyinfo->display, &event); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7133 |
15973
6ad9e8fee494
(XTread_socket): Call XFilterEvent on all events,
Richard M. Stallman <rms@gnu.org>
parents:
15928
diff
changeset
|
7134 #ifdef HAVE_X_I18N |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
7135 /* Filter events for the current X input method. */ |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
7136 if (x_filter_event (dpyinfo, &event)) |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
7137 break; |
15973
6ad9e8fee494
(XTread_socket): Call XFilterEvent on all events,
Richard M. Stallman <rms@gnu.org>
parents:
15928
diff
changeset
|
7138 #endif |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7139 event_found = 1; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7140 |
49117 | 7141 count += handle_one_xevent (dpyinfo, |
7142 &event, | |
7143 &bufp, | |
7144 &numchars, | |
7145 &finish); | |
7146 | |
7147 if (finish == X_EVENT_GOTO_OUT) | |
7148 goto out; | |
7149 } | |
49322 | 7150 #endif /* USE_GTK */ |
286 | 7151 } |
7152 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7153 out:; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7154 |
8485
6e4b40c80021
(XTread_socket): Don't test X_IO_BUG; make that code unconditional.
Richard M. Stallman <rms@gnu.org>
parents:
8437
diff
changeset
|
7155 /* On some systems, an X bug causes Emacs to get no more events |
6e4b40c80021
(XTread_socket): Don't test X_IO_BUG; make that code unconditional.
Richard M. Stallman <rms@gnu.org>
parents:
8437
diff
changeset
|
7156 when the window is destroyed. Detect that. (1994.) */ |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
7157 if (! event_found) |
7916
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7158 { |
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7159 /* Emacs and the X Server eats up CPU time if XNoOp is done every time. |
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7160 One XNOOP in 100 loops will make Emacs terminate. |
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7161 B. Bretthauer, 1994 */ |
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7162 x_noop_count++; |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
7163 if (x_noop_count >= 100) |
7916
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7164 { |
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7165 x_noop_count=0; |
12657
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7166 |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7167 if (next_noop_dpyinfo == 0) |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7168 next_noop_dpyinfo = x_display_list; |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7169 |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7170 XNoOp (next_noop_dpyinfo->display); |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7171 |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7172 /* Each time we get here, cycle through the displays now open. */ |
05b7a5d25df6
(next_noop_dpyinfo): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12530
diff
changeset
|
7173 next_noop_dpyinfo = next_noop_dpyinfo->next; |
7916
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7174 } |
50e9e0c8806a
(x_noop_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7905
diff
changeset
|
7175 } |
5753
eb44ecad5557
(XTread_socket): Add X_IO_BUG conditional.
Richard M. Stallman <rms@gnu.org>
parents:
5740
diff
changeset
|
7176 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7177 /* If the focus was just given to an auto-raising frame, |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7178 raise it now. */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7179 /* ??? This ought to be able to handle more than one such frame. */ |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7180 if (pending_autoraise_frame) |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7181 { |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7182 x_raise_frame (pending_autoraise_frame); |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7183 pending_autoraise_frame = 0; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7184 } |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
7185 |
286 | 7186 UNBLOCK_INPUT; |
30083
998d20abc885
(XTread_socket): Increment handling_signal at the start,
Gerd Moellmann <gerd@gnu.org>
parents:
30050
diff
changeset
|
7187 --handling_signal; |
286 | 7188 return count; |
7189 } | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7190 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7191 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7192 |
286 | 7193 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7194 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7195 Text Cursor |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7196 ***********************************************************************/ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7197 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7198 /* Set clipping for output in glyph row ROW. W is the window in which |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7199 we operate. GC is the graphics context to set clipping in. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7200 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7201 ROW may be a text row or, e.g., a mode line. Text rows must be |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7202 clipped to the interior of the window dedicated to text display, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7203 mode lines must be clipped to the whole window. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7204 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7205 static void |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7206 x_clip_to_row (w, row, gc) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7207 struct window *w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7208 struct glyph_row *row; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7209 GC gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7210 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7211 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7212 XRectangle clip_rect; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7213 int window_y, window_width; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7214 |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7215 window_box (w, -1, 0, &window_y, &window_width, 0); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7216 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7217 clip_rect.x = WINDOW_TO_FRAME_PIXEL_X (w, 0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7218 clip_rect.y = WINDOW_TO_FRAME_PIXEL_Y (w, row->y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7219 clip_rect.y = max (clip_rect.y, window_y); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7220 clip_rect.width = window_width; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7221 clip_rect.height = row->visible_height; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7222 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7223 XSetClipRectangles (FRAME_X_DISPLAY (f), gc, 0, 0, &clip_rect, 1, Unsorted); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7224 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7225 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7226 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7227 /* Draw a hollow box cursor on window W in glyph row ROW. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7228 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7229 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7230 x_draw_hollow_cursor (w, row) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7231 struct window *w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7232 struct glyph_row *row; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7233 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7234 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7235 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7236 Display *dpy = FRAME_X_DISPLAY (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7237 int x, y, wd, h; |
18775
fcfa336f737e
(x_draw_box): Use scratch_cursor_gc to draw the cursor
Richard M. Stallman <rms@gnu.org>
parents:
18733
diff
changeset
|
7238 XGCValues xgcv; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7239 struct glyph *cursor_glyph; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7240 GC gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7241 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7242 /* Compute frame-relative coordinates from window-relative |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7243 coordinates. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7244 x = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7245 y = (WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7246 + row->ascent - w->phys_cursor_ascent); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7247 h = row->height - 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7248 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7249 /* Get the glyph the cursor is on. If we can't tell because |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7250 the current matrix is invalid or such, give up. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7251 cursor_glyph = get_phys_cursor_glyph (w); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7252 if (cursor_glyph == NULL) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7253 return; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7254 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7255 /* Compute the width of the rectangle to draw. If on a stretch |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7256 glyph, and `x-stretch-block-cursor' is nil, don't draw a |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7257 rectangle as wide as the glyph, but use a canonical character |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7258 width instead. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7259 wd = cursor_glyph->pixel_width - 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7260 if (cursor_glyph->type == STRETCH_GLYPH |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7261 && !x_stretch_cursor_p) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7262 wd = min (FRAME_COLUMN_WIDTH (f), wd); |
44774
f2158eb57017
(x_draw_hollow_cursor, x_draw_bar_cursor)
Gerd Moellmann <gerd@gnu.org>
parents:
44763
diff
changeset
|
7263 w->phys_cursor_width = wd; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7264 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7265 /* The foreground of cursor_gc is typically the same as the normal |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7266 background color, which can cause the cursor box to be invisible. */ |
18775
fcfa336f737e
(x_draw_box): Use scratch_cursor_gc to draw the cursor
Richard M. Stallman <rms@gnu.org>
parents:
18733
diff
changeset
|
7267 xgcv.foreground = f->output_data.x->cursor_pixel; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7268 if (dpyinfo->scratch_cursor_gc) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7269 XChangeGC (dpy, dpyinfo->scratch_cursor_gc, GCForeground, &xgcv); |
18775
fcfa336f737e
(x_draw_box): Use scratch_cursor_gc to draw the cursor
Richard M. Stallman <rms@gnu.org>
parents:
18733
diff
changeset
|
7270 else |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7271 dpyinfo->scratch_cursor_gc = XCreateGC (dpy, FRAME_X_WINDOW (f), |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7272 GCForeground, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7273 gc = dpyinfo->scratch_cursor_gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7274 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7275 /* Set clipping, draw the rectangle, and reset clipping again. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7276 x_clip_to_row (w, row, gc); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7277 XDrawRectangle (dpy, FRAME_X_WINDOW (f), gc, x, y, wd, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7278 XSetClipMask (dpy, gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7279 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7280 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7281 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7282 /* Draw a bar cursor on window W in glyph row ROW. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7283 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7284 Implementation note: One would like to draw a bar cursor with an |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7285 angle equal to the one given by the font property XA_ITALIC_ANGLE. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7286 Unfortunately, I didn't find a font yet that has this property set. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7287 --gerd. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7288 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7289 static void |
44690
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7290 x_draw_bar_cursor (w, row, width, kind) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7291 struct window *w; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7292 struct glyph_row *row; |
28321
fc0a61d81fc5
(x_display_and_set_cursor): Choose cursor depending
Gerd Moellmann <gerd@gnu.org>
parents:
28307
diff
changeset
|
7293 int width; |
44690
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7294 enum text_cursor_kinds kind; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7295 { |
30742
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7296 struct frame *f = XFRAME (w->frame); |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7297 struct glyph *cursor_glyph; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7298 |
30742
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7299 /* If cursor is out of bounds, don't draw garbage. This can happen |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7300 in mini-buffer windows when switching between echo area glyphs |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7301 and mini-buffer. */ |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7302 cursor_glyph = get_phys_cursor_glyph (w); |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7303 if (cursor_glyph == NULL) |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7304 return; |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7305 |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7306 /* If on an image, draw like a normal cursor. That's usually better |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7307 visible than drawing a bar, esp. if the image is large so that |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7308 the bar might not be in the window. */ |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7309 if (cursor_glyph->type == IMAGE_GLYPH) |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7310 { |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7311 struct glyph_row *row; |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7312 row = MATRIX_ROW (w->current_matrix, w->phys_cursor.vpos); |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7313 draw_phys_cursor_glyph (w, row, DRAW_CURSOR); |
30742
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7314 } |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7315 else |
e25bfc3f618c
(x_draw_bar_cursor): If cursor is on an image, draw a
Gerd Moellmann <gerd@gnu.org>
parents:
30700
diff
changeset
|
7316 { |
41073
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7317 Display *dpy = FRAME_X_DISPLAY (f); |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7318 Window window = FRAME_X_WINDOW (f); |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7319 GC gc = FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc; |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7320 unsigned long mask = GCForeground | GCBackground | GCGraphicsExposures; |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7321 struct face *face = FACE_FROM_ID (f, cursor_glyph->face_id); |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7322 XGCValues xgcv; |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7323 |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7324 /* If the glyph's background equals the color we normally draw |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7325 the bar cursor in, the bar cursor in its normal color is |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7326 invisible. Use the glyph's foreground color instead in this |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7327 case, on the assumption that the glyph's colors are chosen so |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7328 that the glyph is legible. */ |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7329 if (face->background == f->output_data.x->cursor_pixel) |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7330 xgcv.background = xgcv.foreground = face->foreground; |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7331 else |
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7332 xgcv.background = xgcv.foreground = f->output_data.x->cursor_pixel; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7333 xgcv.graphics_exposures = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7334 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7335 if (gc) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7336 XChangeGC (dpy, gc, mask, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7337 else |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7338 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7339 gc = XCreateGC (dpy, window, mask, &xgcv); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7340 FRAME_X_DISPLAY_INFO (f)->scratch_cursor_gc = gc; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7341 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7342 |
28321
fc0a61d81fc5
(x_display_and_set_cursor): Choose cursor depending
Gerd Moellmann <gerd@gnu.org>
parents:
28307
diff
changeset
|
7343 if (width < 0) |
47143
264271f9ab24
(x_specified_cursor_type): Remove prototype.
Kim F. Storm <storm@cua.dk>
parents:
47057
diff
changeset
|
7344 width = FRAME_CURSOR_WIDTH (f); |
41073
3dafa2c81609
(x_draw_bar_cursor): If the background color of the
Gerd Moellmann <gerd@gnu.org>
parents:
40957
diff
changeset
|
7345 width = min (cursor_glyph->pixel_width, width); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7346 |
44774
f2158eb57017
(x_draw_hollow_cursor, x_draw_bar_cursor)
Gerd Moellmann <gerd@gnu.org>
parents:
44763
diff
changeset
|
7347 w->phys_cursor_width = width; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7348 x_clip_to_row (w, row, gc); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7349 |
44690
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7350 if (kind == BAR_CURSOR) |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7351 XFillRectangle (dpy, window, gc, |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7352 WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x), |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7353 WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y), |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7354 width, row->height); |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7355 else |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7356 XFillRectangle (dpy, window, gc, |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7357 WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x), |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7358 WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y + |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7359 row->height - width), |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7360 cursor_glyph->pixel_width, |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7361 width); |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7362 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7363 XSetClipMask (dpy, gc, None); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7364 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7365 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7366 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7367 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7368 /* RIF: Define cursor CURSOR on frame F. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7369 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7370 static void |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7371 x_define_frame_cursor (f, cursor) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7372 struct frame *f; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7373 Cursor cursor; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7374 { |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7375 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), cursor); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7376 } |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7377 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7378 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7379 /* RIF: Clear area on frame F. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7380 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7381 static void |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7382 x_clear_frame_area (f, x, y, width, height) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7383 struct frame *f; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7384 int x, y, width, height; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7385 { |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7386 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7387 x, y, width, height, False); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7388 } |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7389 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7390 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7391 /* RIF: Draw cursor on window W. */ |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7392 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7393 static void |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7394 x_draw_window_cursor (w, glyph_row, x, y, cursor_type, cursor_width, on_p, active_p) |
37922
fcd11c3e6341
(cursor_in_mouse_face_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37726
diff
changeset
|
7395 struct window *w; |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7396 struct glyph_row *glyph_row; |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7397 int x, y; |
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7398 int cursor_type, cursor_width; |
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7399 int on_p, active_p; |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7400 { |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7401 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7402 |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7403 if (on_p) |
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7404 { |
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7405 w->phys_cursor_type = cursor_type; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7406 w->phys_cursor_on_p = 1; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7407 |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7408 switch (cursor_type) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7409 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7410 case HOLLOW_BOX_CURSOR: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7411 x_draw_hollow_cursor (w, glyph_row); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7412 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7413 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7414 case FILLED_BOX_CURSOR: |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
7415 draw_phys_cursor_glyph (w, glyph_row, DRAW_CURSOR); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7416 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7417 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7418 case BAR_CURSOR: |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7419 x_draw_bar_cursor (w, glyph_row, cursor_width, BAR_CURSOR); |
44690
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7420 break; |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7421 |
8826cd76618a
(x_draw_bar_cursor): New argument KIND; callers changed.
Eli Zaretskii <eliz@gnu.org>
parents:
44626
diff
changeset
|
7422 case HBAR_CURSOR: |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50237
diff
changeset
|
7423 x_draw_bar_cursor (w, glyph_row, cursor_width, HBAR_CURSOR); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7424 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7425 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7426 case NO_CURSOR: |
44814
06d704d7ed94
(x_display_and_set_cursor): Set phys_cursor_width to
Gerd Moellmann <gerd@gnu.org>
parents:
44805
diff
changeset
|
7427 w->phys_cursor_width = 0; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7428 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7429 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7430 default: |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7431 abort (); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7432 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7433 |
27619
1d5c785bca99
* xterm.c (x_display_and_set_cursor): Set pre-edit area.
Gerd Moellmann <gerd@gnu.org>
parents:
27542
diff
changeset
|
7434 #ifdef HAVE_X_I18N |
1d5c785bca99
* xterm.c (x_display_and_set_cursor): Set pre-edit area.
Gerd Moellmann <gerd@gnu.org>
parents:
27542
diff
changeset
|
7435 if (w == XWINDOW (f->selected_window)) |
1d5c785bca99
* xterm.c (x_display_and_set_cursor): Set pre-edit area.
Gerd Moellmann <gerd@gnu.org>
parents:
27542
diff
changeset
|
7436 if (FRAME_XIC (f) && (FRAME_XIC_STYLE (f) & XIMPreeditPosition)) |
1d5c785bca99
* xterm.c (x_display_and_set_cursor): Set pre-edit area.
Gerd Moellmann <gerd@gnu.org>
parents:
27542
diff
changeset
|
7437 xic_set_preeditarea (w, x, y); |
1d5c785bca99
* xterm.c (x_display_and_set_cursor): Set pre-edit area.
Gerd Moellmann <gerd@gnu.org>
parents:
27542
diff
changeset
|
7438 #endif |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7439 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7440 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7441 #ifndef XFlush |
771 | 7442 if (updating_frame != f) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7443 XFlush (FRAME_X_DISPLAY (f)); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7444 #endif |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7445 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7446 |
286 | 7447 |
7448 /* Icons. */ | |
7449 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
7450 /* Make the x-window of frame F use the gnu icon bitmap. */ |
286 | 7451 |
7452 int | |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7453 x_bitmap_icon (f, file) |
771 | 7454 struct frame *f; |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7455 Lisp_Object file; |
286 | 7456 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7457 int bitmap_id; |
286 | 7458 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7459 if (FRAME_X_WINDOW (f) == 0) |
286 | 7460 return 1; |
7461 | |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7462 /* Free up our existing icon bitmap if any. */ |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7463 if (f->output_data.x->icon_bitmap > 0) |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7464 x_destroy_bitmap (f, f->output_data.x->icon_bitmap); |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7465 f->output_data.x->icon_bitmap = 0; |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7466 |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7467 if (STRINGP (file)) |
9542
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
7468 bitmap_id = x_create_bitmap_from_file (f, file); |
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
7469 else |
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
7470 { |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7471 /* Create the GNU bitmap if necessary. */ |
10755
e5f13cc95d02
(x_bitmap_icon): Fix test for unallocated icon bitmap.
Paul Reilly <pmr@pajato.com>
parents:
10743
diff
changeset
|
7472 if (FRAME_X_DISPLAY_INFO (f)->icon_bitmap_id < 0) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7473 FRAME_X_DISPLAY_INFO (f)->icon_bitmap_id |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7474 = x_create_bitmap_from_data (f, gnu_bits, |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7475 gnu_width, gnu_height); |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7476 |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7477 /* The first time we create the GNU bitmap, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7478 this increments the ref-count one extra time. |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7479 As a result, the GNU bitmap is never freed. |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
7480 That way, we don't have to worry about allocating it again. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7481 x_reference_bitmap (f, FRAME_X_DISPLAY_INFO (f)->icon_bitmap_id); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7482 |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
7483 bitmap_id = FRAME_X_DISPLAY_INFO (f)->icon_bitmap_id; |
9542
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
7484 } |
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
7485 |
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
7486 x_wm_set_icon_pixmap (f, bitmap_id); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7487 f->output_data.x->icon_bitmap = bitmap_id; |
286 | 7488 |
7489 return 0; | |
7490 } | |
7491 | |
7492 | |
12074
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7493 /* Make the x-window of frame F use a rectangle with text. |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7494 Use ICON_NAME as the text. */ |
286 | 7495 |
7496 int | |
771 | 7497 x_text_icon (f, icon_name) |
7498 struct frame *f; | |
286 | 7499 char *icon_name; |
7500 { | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7501 if (FRAME_X_WINDOW (f) == 0) |
286 | 7502 return 1; |
7503 | |
12074
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7504 #ifdef HAVE_X11R4 |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7505 { |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7506 XTextProperty text; |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7507 text.value = (unsigned char *) icon_name; |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7508 text.encoding = XA_STRING; |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7509 text.format = 8; |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7510 text.nitems = strlen (icon_name); |
49644
834df49192b0
Use FRAME_OUTER_WINDOW instead of ifdef X_TOOLKIT/else/endif
Jan Djärv <jan.h.d@swipnet.se>
parents:
49600
diff
changeset
|
7511 XSetWMIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text); |
12074
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7512 } |
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7513 #else /* not HAVE_X11R4 */ |
49644
834df49192b0
Use FRAME_OUTER_WINDOW instead of ifdef X_TOOLKIT/else/endif
Jan Djärv <jan.h.d@swipnet.se>
parents:
49600
diff
changeset
|
7514 XSetIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), icon_name); |
12074
111aadc2521a
(x_text_icon): Do call XSetIconName or XSetWMIconName.
Karl Heuer <kwzh@gnu.org>
parents:
12000
diff
changeset
|
7515 #endif /* not HAVE_X11R4 */ |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
7516 |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7517 if (f->output_data.x->icon_bitmap > 0) |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7518 x_destroy_bitmap (f, f->output_data.x->icon_bitmap); |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7519 f->output_data.x->icon_bitmap = 0; |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
7520 x_wm_set_icon_pixmap (f, 0); |
286 | 7521 |
7522 return 0; | |
7523 } | |
7524 | |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7525 #define X_ERROR_MESSAGE_SIZE 200 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7526 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7527 /* If non-nil, this should be a string. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7528 It means catch X errors and store the error message in this string. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7529 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7530 static Lisp_Object x_error_message_string; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7531 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7532 /* An X error handler which stores the error message in |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7533 x_error_message_string. This is called from x_error_handler if |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7534 x_catch_errors is in effect. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7535 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7536 static void |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7537 x_error_catcher (display, error) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7538 Display *display; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7539 XErrorEvent *error; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7540 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7541 XGetErrorText (display, error->error_code, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
7542 SDATA (x_error_message_string), |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7543 X_ERROR_MESSAGE_SIZE); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7544 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7545 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7546 /* Begin trapping X errors for display DPY. Actually we trap X errors |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7547 for all displays, but DPY should be the display you are actually |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7548 operating on. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7549 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7550 After calling this function, X protocol errors no longer cause |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7551 Emacs to exit; instead, they are recorded in the string |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7552 stored in x_error_message_string. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7553 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7554 Calling x_check_errors signals an Emacs error if an X error has |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7555 occurred since the last call to x_catch_errors or x_check_errors. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7556 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7557 Calling x_uncatch_errors resumes the normal error handling. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7558 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7559 void x_check_errors (); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7560 static Lisp_Object x_catch_errors_unwind (); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7561 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7562 int |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7563 x_catch_errors (dpy) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7564 Display *dpy; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7565 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46159
diff
changeset
|
7566 int count = SPECPDL_INDEX (); |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7567 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7568 /* Make sure any errors from previous requests have been dealt with. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7569 XSync (dpy, False); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7570 |
49054
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7571 record_unwind_protect (x_catch_errors_unwind, |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7572 Fcons (make_save_value (dpy, 0), |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7573 x_error_message_string)); |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7574 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7575 x_error_message_string = make_uninit_string (X_ERROR_MESSAGE_SIZE); |
46435
278371336b60
* xterm.c (x_catch_errors, x_clear_errors): Use SSET.
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
7576 SSET (x_error_message_string, 0, 0); |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7577 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7578 return count; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7579 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7580 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7581 /* Unbind the binding that we made to check for X errors. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7582 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7583 static Lisp_Object |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7584 x_catch_errors_unwind (old_val) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7585 Lisp_Object old_val; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7586 { |
49054
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7587 Lisp_Object first; |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7588 |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7589 first = XCAR (old_val); |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7590 |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7591 XSync (XSAVE_VALUE (first)->pointer, False); |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7592 |
6b6ac8aa78d2
(x_catch_errors): Save dpy using make_save_value.
Richard M. Stallman <rms@gnu.org>
parents:
48383
diff
changeset
|
7593 x_error_message_string = XCDR (old_val); |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7594 return Qnil; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7595 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7596 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7597 /* If any X protocol errors have arrived since the last call to |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7598 x_catch_errors or x_check_errors, signal an Emacs error using |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7599 sprintf (a buffer, FORMAT, the x error message text) as the text. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7600 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7601 void |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7602 x_check_errors (dpy, format) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7603 Display *dpy; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7604 char *format; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7605 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7606 /* Make sure to catch any errors incurred so far. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7607 XSync (dpy, False); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7608 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
7609 if (SREF (x_error_message_string, 0)) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
7610 error (format, SDATA (x_error_message_string)); |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7611 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7612 |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7613 /* Nonzero if we had any X protocol errors |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7614 since we did x_catch_errors on DPY. */ |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7615 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7616 int |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7617 x_had_errors_p (dpy) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7618 Display *dpy; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7619 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7620 /* Make sure to catch any errors incurred so far. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7621 XSync (dpy, False); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7622 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
7623 return SREF (x_error_message_string, 0) != 0; |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7624 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7625 |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7626 /* Forget about any errors we have had, since we did x_catch_errors on DPY. */ |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7627 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7628 void |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7629 x_clear_errors (dpy) |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7630 Display *dpy; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7631 { |
46435
278371336b60
* xterm.c (x_catch_errors, x_clear_errors): Use SSET.
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
7632 SSET (x_error_message_string, 0, 0); |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7633 } |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
7634 |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7635 /* Stop catching X protocol errors and let them make Emacs die. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7636 DPY should be the display that was passed to x_catch_errors. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7637 COUNT should be the value that was returned by |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7638 the corresponding call to x_catch_errors. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7639 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7640 void |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7641 x_uncatch_errors (dpy, count) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7642 Display *dpy; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7643 int count; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7644 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7645 unbind_to (count, Qnil); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7646 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7647 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7648 #if 0 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7649 static unsigned int x_wire_count; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7650 x_trace_wire () |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7651 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7652 fprintf (stderr, "Lib call: %d\n", ++x_wire_count); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7653 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7654 #endif /* ! 0 */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7655 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7656 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7657 /* Handle SIGPIPE, which can happen when the connection to a server |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7658 simply goes away. SIGPIPE is handled by x_connection_signal. |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7659 Don't need to do anything, because the write which caused the |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7660 SIGPIPE will fail, causing Xlib to invoke the X IO error handler, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7661 which will do the appropriate cleanup for us. */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7662 |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7663 static SIGTYPE |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7664 x_connection_signal (signalnum) /* If we don't have an argument, */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7665 int signalnum; /* some compilers complain in signal calls. */ |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7666 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7667 #ifdef USG |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7668 /* USG systems forget handlers when they are used; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7669 must reestablish each time */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7670 signal (signalnum, x_connection_signal); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7671 #endif /* USG */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7672 } |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7673 |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7674 |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7675 /************************************************************************ |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7676 Handling X errors |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7677 ************************************************************************/ |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7678 |
39586
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7679 /* Error message passed to x_connection_closed. */ |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7680 |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7681 static char *error_msg; |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7682 |
40370 | 7683 /* Function installed as fatal_error_signal_hook in |
39586
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7684 x_connection_closed. Print the X error message, and exit normally, |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7685 instead of dumping core when XtCloseDisplay fails. */ |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7686 |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7687 static void |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7688 x_fatal_error_signal () |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7689 { |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7690 fprintf (stderr, "%s\n", error_msg); |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7691 exit (70); |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7692 } |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7693 |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7694 /* Handle the loss of connection to display DPY. ERROR_MESSAGE is |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7695 the text of an error message that lead to the connection loss. */ |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
7696 |
621 | 7697 static SIGTYPE |
34673
77cda2c018e5
(x_connection_closed): Prevent being called recursively
Gerd Moellmann <gerd@gnu.org>
parents:
34621
diff
changeset
|
7698 x_connection_closed (dpy, error_message) |
77cda2c018e5
(x_connection_closed): Prevent being called recursively
Gerd Moellmann <gerd@gnu.org>
parents:
34621
diff
changeset
|
7699 Display *dpy; |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7700 char *error_message; |
621 | 7701 { |
34673
77cda2c018e5
(x_connection_closed): Prevent being called recursively
Gerd Moellmann <gerd@gnu.org>
parents:
34621
diff
changeset
|
7702 struct x_display_info *dpyinfo = x_display_info_for_display (dpy); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7703 Lisp_Object frame, tail; |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7704 int count; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7705 |
39586
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7706 error_msg = (char *) alloca (strlen (error_message) + 1); |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7707 strcpy (error_msg, error_message); |
34949
bbd0e7b5043a
(x_connection_closed): Set handling_signal to 0 at
Gerd Moellmann <gerd@gnu.org>
parents:
34869
diff
changeset
|
7708 handling_signal = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7709 |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7710 /* Prevent being called recursively because of an error condition |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7711 below. Otherwise, we might end up with printing ``can't find per |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7712 display information'' in the recursive call instead of printing |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7713 the original message here. */ |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7714 count = x_catch_errors (dpy); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7715 |
34213 | 7716 /* We have to close the display to inform Xt that it doesn't |
7717 exist anymore. If we don't, Xt will continue to wait for | |
7718 events from the display. As a consequence, a sequence of | |
7719 | |
7720 M-x make-frame-on-display RET :1 RET | |
7721 ...kill the new frame, so that we get an IO error... | |
7722 M-x make-frame-on-display RET :1 RET | |
7723 | |
7724 will indefinitely wait in Xt for events for display `:1', opened | |
7725 in the first class to make-frame-on-display. | |
7726 | |
7727 Closing the display is reported to lead to a bus error on | |
7728 OpenWindows in certain situations. I suspect that is a bug | |
7729 in OpenWindows. I don't know how to cicumvent it here. */ | |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7730 |
17825
281d99590839
(dumpglyphs): Draw glyphs one by one if the font for
Kenichi Handa <handa@m17n.org>
parents:
17720
diff
changeset
|
7731 #ifdef USE_X_TOOLKIT |
35309
cb7e1d7b6b67
(x_connection_closed) [USE_X_TOOLKIT]: If
Gerd Moellmann <gerd@gnu.org>
parents:
35276
diff
changeset
|
7732 /* If DPYINFO is null, this means we didn't open the display |
cb7e1d7b6b67
(x_connection_closed) [USE_X_TOOLKIT]: If
Gerd Moellmann <gerd@gnu.org>
parents:
35276
diff
changeset
|
7733 in the first place, so don't try to close it. */ |
cb7e1d7b6b67
(x_connection_closed) [USE_X_TOOLKIT]: If
Gerd Moellmann <gerd@gnu.org>
parents:
35276
diff
changeset
|
7734 if (dpyinfo) |
39586
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7735 { |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7736 extern void (*fatal_error_signal_hook) P_ ((void)); |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7737 fatal_error_signal_hook = x_fatal_error_signal; |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7738 XtCloseDisplay (dpy); |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7739 fatal_error_signal_hook = NULL; |
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7740 } |
17825
281d99590839
(dumpglyphs): Draw glyphs one by one if the font for
Kenichi Handa <handa@m17n.org>
parents:
17720
diff
changeset
|
7741 #endif |
34213 | 7742 |
7743 /* Indicate that this display is dead. */ | |
29536
4def8a9e785a
* xterm.c (x_connection_closed): If dpyinfo is NULL, don't try to
Ken Raeburn <raeburn@raeburn.org>
parents:
29512
diff
changeset
|
7744 if (dpyinfo) |
4def8a9e785a
* xterm.c (x_connection_closed): If dpyinfo is NULL, don't try to
Ken Raeburn <raeburn@raeburn.org>
parents:
29512
diff
changeset
|
7745 dpyinfo->display = 0; |
14489
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
7746 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7747 /* First delete frames whose mini-buffers are on frames |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7748 that are on the dead display. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7749 FOR_EACH_FRAME (tail, frame) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7750 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7751 Lisp_Object minibuf_frame; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7752 minibuf_frame |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7753 = WINDOW_FRAME (XWINDOW (FRAME_MINIBUF_WINDOW (XFRAME (frame)))); |
10921
bf33c9179a6b
(x_connection_closed): Ignore non-X frames.
Richard M. Stallman <rms@gnu.org>
parents:
10755
diff
changeset
|
7754 if (FRAME_X_P (XFRAME (frame)) |
bf33c9179a6b
(x_connection_closed): Ignore non-X frames.
Richard M. Stallman <rms@gnu.org>
parents:
10755
diff
changeset
|
7755 && FRAME_X_P (XFRAME (minibuf_frame)) |
bf33c9179a6b
(x_connection_closed): Ignore non-X frames.
Richard M. Stallman <rms@gnu.org>
parents:
10755
diff
changeset
|
7756 && ! EQ (frame, minibuf_frame) |
bf33c9179a6b
(x_connection_closed): Ignore non-X frames.
Richard M. Stallman <rms@gnu.org>
parents:
10755
diff
changeset
|
7757 && FRAME_X_DISPLAY_INFO (XFRAME (minibuf_frame)) == dpyinfo) |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7758 Fdelete_frame (frame, Qt); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7759 } |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7760 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7761 /* Now delete all remaining frames on the dead display. |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7762 We are now sure none of these is used as the mini-buffer |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7763 for another frame that we need to delete. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7764 FOR_EACH_FRAME (tail, frame) |
10921
bf33c9179a6b
(x_connection_closed): Ignore non-X frames.
Richard M. Stallman <rms@gnu.org>
parents:
10755
diff
changeset
|
7765 if (FRAME_X_P (XFRAME (frame)) |
bf33c9179a6b
(x_connection_closed): Ignore non-X frames.
Richard M. Stallman <rms@gnu.org>
parents:
10755
diff
changeset
|
7766 && FRAME_X_DISPLAY_INFO (XFRAME (frame)) == dpyinfo) |
11904
0d37c1e81c0d
(x_connection_closed): Unblock input, first thing.
Karl Heuer <kwzh@gnu.org>
parents:
11901
diff
changeset
|
7767 { |
0d37c1e81c0d
(x_connection_closed): Unblock input, first thing.
Karl Heuer <kwzh@gnu.org>
parents:
11901
diff
changeset
|
7768 /* Set this to t so that Fdelete_frame won't get confused |
0d37c1e81c0d
(x_connection_closed): Unblock input, first thing.
Karl Heuer <kwzh@gnu.org>
parents:
11901
diff
changeset
|
7769 trying to find a replacement. */ |
0d37c1e81c0d
(x_connection_closed): Unblock input, first thing.
Karl Heuer <kwzh@gnu.org>
parents:
11901
diff
changeset
|
7770 FRAME_KBOARD (XFRAME (frame))->Vdefault_minibuffer_frame = Qt; |
0d37c1e81c0d
(x_connection_closed): Unblock input, first thing.
Karl Heuer <kwzh@gnu.org>
parents:
11901
diff
changeset
|
7771 Fdelete_frame (frame, Qt); |
0d37c1e81c0d
(x_connection_closed): Unblock input, first thing.
Karl Heuer <kwzh@gnu.org>
parents:
11901
diff
changeset
|
7772 } |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7773 |
13727
9eb09adbcb38
(x_connection_closed): Don't delete dpyinfo if it's null.
Karl Heuer <kwzh@gnu.org>
parents:
13633
diff
changeset
|
7774 if (dpyinfo) |
9eb09adbcb38
(x_connection_closed): Don't delete dpyinfo if it's null.
Karl Heuer <kwzh@gnu.org>
parents:
13633
diff
changeset
|
7775 x_delete_display (dpyinfo); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7776 |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7777 x_uncatch_errors (dpy, count); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7778 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7779 if (x_display_list == 0) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7780 { |
39586
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7781 fprintf (stderr, "%s\n", error_msg); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7782 shut_down_emacs (0, 0, Qnil); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7783 exit (70); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7784 } |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7785 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7786 /* Ordinary stack unwind doesn't deal with these. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7787 #ifdef SIGIO |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7788 sigunblock (sigmask (SIGIO)); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7789 #endif |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7790 sigunblock (sigmask (SIGALRM)); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7791 TOTALLY_UNBLOCK_INPUT; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7792 |
15526
926ef4afc174
(x_connection_closed): Call clear_waiting_for_input.
Richard M. Stallman <rms@gnu.org>
parents:
15521
diff
changeset
|
7793 clear_waiting_for_input (); |
39586
2ca67ed01cd8
(XTread_socket): Return a non_ascii_keystroke for
Gerd Moellmann <gerd@gnu.org>
parents:
39474
diff
changeset
|
7794 error ("%s", error_msg); |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7795 } |
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7796 |
621 | 7797 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7798 /* This is the usual handler for X protocol errors. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7799 It kills all frames on the display that we got the error for. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7800 If that was the only one, it prints an error message and kills Emacs. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7801 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7802 static void |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7803 x_error_quitter (display, error) |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7804 Display *display; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7805 XErrorEvent *error; |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7806 { |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7807 char buf[256], buf1[356]; |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7808 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
7809 /* Note that there is no real way portable across R3/R4 to get the |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7810 original error handler. */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7811 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7812 XGetErrorText (display, error->error_code, buf, sizeof (buf)); |
15521
2b61a33a4576
(x_error_quitter): Delete newline from sprintf string.
Richard M. Stallman <rms@gnu.org>
parents:
15519
diff
changeset
|
7813 sprintf (buf1, "X protocol error: %s on protocol request %d", |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7814 buf, error->request_code); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7815 x_connection_closed (display, buf1); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7816 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7817 |
34956
c26b7651dd9f
(x_connection_closed): Catch X errors around all
Gerd Moellmann <gerd@gnu.org>
parents:
34949
diff
changeset
|
7818 |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7819 /* This is the first-level handler for X protocol errors. |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7820 It calls x_error_quitter or x_error_catcher. */ |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7821 |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7822 static int |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7823 x_error_handler (display, error) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7824 Display *display; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7825 XErrorEvent *error; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7826 { |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7827 if (! NILP (x_error_message_string)) |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7828 x_error_catcher (display, error); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7829 else |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7830 x_error_quitter (display, error); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7831 return 0; |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7832 } |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
7833 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7834 /* This is the handler for X IO errors, always. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7835 It kills all frames on the display that we lost touch with. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7836 If that was the only one, it prints an error message and kills Emacs. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7837 |
1875
f569bc4e9b8f
* xterm.c (x_set_window_size): Call change_frame_size instead of
Jim Blandy <jimb@redhat.com>
parents:
1841
diff
changeset
|
7838 static int |
f569bc4e9b8f
* xterm.c (x_set_window_size): Call change_frame_size instead of
Jim Blandy <jimb@redhat.com>
parents:
1841
diff
changeset
|
7839 x_io_error_quitter (display) |
f569bc4e9b8f
* xterm.c (x_set_window_size): Call change_frame_size instead of
Jim Blandy <jimb@redhat.com>
parents:
1841
diff
changeset
|
7840 Display *display; |
f569bc4e9b8f
* xterm.c (x_set_window_size): Call change_frame_size instead of
Jim Blandy <jimb@redhat.com>
parents:
1841
diff
changeset
|
7841 { |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7842 char buf[256]; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7843 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7844 sprintf (buf, "Connection lost to X server `%s'", DisplayString (display)); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7845 x_connection_closed (display, buf); |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
7846 return 0; |
1875
f569bc4e9b8f
* xterm.c (x_set_window_size): Call change_frame_size instead of
Jim Blandy <jimb@redhat.com>
parents:
1841
diff
changeset
|
7847 } |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
7848 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
7849 /* Changing the font of the frame. */ |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
7850 |
8291
9c6ddd14996b
(struct font_info): New field full_name.
Richard M. Stallman <rms@gnu.org>
parents:
8279
diff
changeset
|
7851 /* Give frame F the font named FONTNAME as its default font, and |
9c6ddd14996b
(struct font_info): New field full_name.
Richard M. Stallman <rms@gnu.org>
parents:
8279
diff
changeset
|
7852 return the full name of that font. FONTNAME may be a wildcard |
9c6ddd14996b
(struct font_info): New field full_name.
Richard M. Stallman <rms@gnu.org>
parents:
8279
diff
changeset
|
7853 pattern; in that case, we choose some font that fits the pattern. |
9c6ddd14996b
(struct font_info): New field full_name.
Richard M. Stallman <rms@gnu.org>
parents:
8279
diff
changeset
|
7854 The return value shows which font we chose. */ |
9c6ddd14996b
(struct font_info): New field full_name.
Richard M. Stallman <rms@gnu.org>
parents:
8279
diff
changeset
|
7855 |
3076
e3b3c67cf203
Arrange for font names to get fully resolved - no wildcards.
Jim Blandy <jimb@redhat.com>
parents:
3066
diff
changeset
|
7856 Lisp_Object |
771 | 7857 x_new_font (f, fontname) |
7858 struct frame *f; | |
286 | 7859 register char *fontname; |
7860 { | |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7861 struct font_info *fontp |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
7862 = FS_LOAD_FONT (f, 0, fontname, -1); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7863 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7864 if (!fontp) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7865 return Qnil; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7866 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7867 FRAME_FONT (f) = (XFontStruct *) (fontp->font); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7868 FRAME_BASELINE_OFFSET (f) = fontp->baseline_offset; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7869 FRAME_FONTSET (f) = -1; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7870 |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7871 FRAME_COLUMN_WIDTH (f) = FONT_WIDTH (FRAME_FONT (f)); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7872 FRAME_LINE_HEIGHT (f) = FONT_HEIGHT (FRAME_FONT (f)); |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
7873 |
50097 | 7874 compute_fringe_widths (f, 1); |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
7875 |
9167
8ad448b29c1c
(x_new_font): New rule for computing column width. Factored out common code.
Karl Heuer <kwzh@gnu.org>
parents:
9101
diff
changeset
|
7876 /* Compute the scroll bar width in character columns. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7877 if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7878 { |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7879 int wid = FRAME_COLUMN_WIDTH (f); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7880 FRAME_CONFIG_SCROLL_BAR_COLS (f) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7881 = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + wid-1) / wid; |
9167
8ad448b29c1c
(x_new_font): New rule for computing column width. Factored out common code.
Karl Heuer <kwzh@gnu.org>
parents:
9101
diff
changeset
|
7882 } |
8ad448b29c1c
(x_new_font): New rule for computing column width. Factored out common code.
Karl Heuer <kwzh@gnu.org>
parents:
9101
diff
changeset
|
7883 else |
19027
1171ca6f0281
(x_new_font): Follow the change in x_set_scroll_bar_width and make the
Richard M. Stallman <rms@gnu.org>
parents:
19021
diff
changeset
|
7884 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7885 int wid = FRAME_COLUMN_WIDTH (f); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7886 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid; |
19027
1171ca6f0281
(x_new_font): Follow the change in x_set_scroll_bar_width and make the
Richard M. Stallman <rms@gnu.org>
parents:
19021
diff
changeset
|
7887 } |
9167
8ad448b29c1c
(x_new_font): New rule for computing column width. Factored out common code.
Karl Heuer <kwzh@gnu.org>
parents:
9101
diff
changeset
|
7888 |
771 | 7889 /* Now make the frame display the given font. */ |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
7890 if (FRAME_X_WINDOW (f) != 0) |
286 | 7891 { |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7892 XSetFont (FRAME_X_DISPLAY (f), f->output_data.x->normal_gc, |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7893 FRAME_FONT (f)->fid); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7894 XSetFont (FRAME_X_DISPLAY (f), f->output_data.x->reverse_gc, |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7895 FRAME_FONT (f)->fid); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
7896 XSetFont (FRAME_X_DISPLAY (f), f->output_data.x->cursor_gc, |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7897 FRAME_FONT (f)->fid); |
35506
5ad77d538e08
(x_new_font): Don't change a tooltip's size.
Gerd Moellmann <gerd@gnu.org>
parents:
35487
diff
changeset
|
7898 |
5ad77d538e08
(x_new_font): Don't change a tooltip's size.
Gerd Moellmann <gerd@gnu.org>
parents:
35487
diff
changeset
|
7899 /* Don't change the size of a tip frame; there's no point in |
5ad77d538e08
(x_new_font): Don't change a tooltip's size.
Gerd Moellmann <gerd@gnu.org>
parents:
35487
diff
changeset
|
7900 doing it because it's done in Fx_show_tip, and it leads to |
5ad77d538e08
(x_new_font): Don't change a tooltip's size.
Gerd Moellmann <gerd@gnu.org>
parents:
35487
diff
changeset
|
7901 problems because the tip frame has no widget. */ |
5ad77d538e08
(x_new_font): Don't change a tooltip's size.
Gerd Moellmann <gerd@gnu.org>
parents:
35487
diff
changeset
|
7902 if (NILP (tip_frame) || XFRAME (tip_frame) != f) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7903 x_set_window_size (f, 0, FRAME_COLS (f), FRAME_LINES (f)); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7904 } |
286 | 7905 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7906 return build_string (fontp->full_name); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7907 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7908 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7909 /* Give frame F the fontset named FONTSETNAME as its default font, and |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7910 return the full name of that fontset. FONTSETNAME may be a wildcard |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
7911 pattern; in that case, we choose some fontset that fits the pattern. |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
7912 The return value shows which fontset we chose. */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7913 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7914 Lisp_Object |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7915 x_new_fontset (f, fontsetname) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7916 struct frame *f; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7917 char *fontsetname; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7918 { |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
7919 int fontset = fs_query_fontset (build_string (fontsetname), 0); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7920 Lisp_Object result; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7921 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7922 if (fontset < 0) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7923 return Qnil; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7924 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7925 if (FRAME_FONTSET (f) == fontset) |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
7926 /* This fontset is already set in frame F. There's nothing more |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
7927 to do. */ |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
7928 return fontset_name (fontset); |
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
7929 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
7930 result = x_new_font (f, (SDATA (fontset_ascii (fontset)))); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7931 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7932 if (!STRINGP (result)) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7933 /* Can't load ASCII font. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7934 return Qnil; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7935 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7936 /* Since x_new_font doesn't update any fontset information, do it now. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
7937 FRAME_FONTSET (f) = fontset; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7938 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7939 #ifdef HAVE_X_I18N |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7940 if (FRAME_XIC (f) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7941 && (FRAME_XIC_STYLE (f) & (XIMPreeditPosition | XIMStatusArea))) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
7942 xic_set_xfontset (f, SDATA (fontset_ascii (fontset))); |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7943 #endif |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7944 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
7945 return build_string (fontsetname); |
286 | 7946 } |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7947 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7948 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7949 /*********************************************************************** |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7950 X Input Methods |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7951 ***********************************************************************/ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7952 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7953 #ifdef HAVE_X_I18N |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7954 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7955 #ifdef HAVE_X11R6 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7956 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7957 /* XIM destroy callback function, which is called whenever the |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7958 connection to input method XIM dies. CLIENT_DATA contains a |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7959 pointer to the x_display_info structure corresponding to XIM. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7960 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7961 static void |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7962 xim_destroy_callback (xim, client_data, call_data) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7963 XIM xim; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7964 XPointer client_data; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7965 XPointer call_data; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7966 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7967 struct x_display_info *dpyinfo = (struct x_display_info *) client_data; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7968 Lisp_Object frame, tail; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7969 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7970 BLOCK_INPUT; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7971 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7972 /* No need to call XDestroyIC.. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7973 FOR_EACH_FRAME (tail, frame) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7974 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7975 struct frame *f = XFRAME (frame); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7976 if (FRAME_X_DISPLAY_INFO (f) == dpyinfo) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7977 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7978 FRAME_XIC (f) = NULL; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7979 if (FRAME_XIC_FONTSET (f)) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7980 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7981 XFreeFontSet (FRAME_X_DISPLAY (f), FRAME_XIC_FONTSET (f)); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7982 FRAME_XIC_FONTSET (f) = NULL; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7983 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7984 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7985 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
7986 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7987 /* No need to call XCloseIM. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7988 dpyinfo->xim = NULL; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7989 XFree (dpyinfo->xim_styles); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7990 UNBLOCK_INPUT; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7991 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7992 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7993 #endif /* HAVE_X11R6 */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
7994 |
48085 | 7995 #ifdef HAVE_X11R6 |
7996 /* This isn't prototyped in OSF 5.0 or 5.1a. */ | |
7997 extern char *XSetIMValues P_ ((XIM, ...)); | |
7998 #endif | |
7999 | |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8000 /* Open the connection to the XIM server on display DPYINFO. |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8001 RESOURCE_NAME is the resource name Emacs uses. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8002 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8003 static void |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8004 xim_open_dpy (dpyinfo, resource_name) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8005 struct x_display_info *dpyinfo; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8006 char *resource_name; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8007 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8008 XIM xim; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8009 |
51129 | 8010 if (use_xim) |
8011 { | |
8012 xim = XOpenIM (dpyinfo->display, dpyinfo->xrdb, resource_name, | |
8013 EMACS_CLASS); | |
8014 dpyinfo->xim = xim; | |
8015 | |
8016 if (xim) | |
8017 { | |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8018 #ifdef HAVE_X11R6 |
51129 | 8019 XIMCallback destroy; |
8020 #endif | |
8021 | |
8022 /* Get supported styles and XIM values. */ | |
8023 XGetIMValues (xim, XNQueryInputStyle, &dpyinfo->xim_styles, NULL); | |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8024 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8025 #ifdef HAVE_X11R6 |
51129 | 8026 destroy.callback = xim_destroy_callback; |
8027 destroy.client_data = (XPointer)dpyinfo; | |
8028 XSetIMValues (xim, XNDestroyCallback, &destroy, NULL); | |
8029 #endif | |
8030 } | |
8031 } | |
8032 | |
8033 else | |
8034 dpyinfo->xim = NULL; | |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8035 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8036 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8037 |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8038 #ifdef HAVE_X11R6_XIM |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8039 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8040 struct xim_inst_t |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8041 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8042 struct x_display_info *dpyinfo; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8043 char *resource_name; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8044 }; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8045 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8046 /* XIM instantiate callback function, which is called whenever an XIM |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
8047 server is available. DISPLAY is the display of the XIM. |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8048 CLIENT_DATA contains a pointer to an xim_inst_t structure created |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8049 when the callback was registered. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8050 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8051 static void |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8052 xim_instantiate_callback (display, client_data, call_data) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8053 Display *display; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8054 XPointer client_data; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8055 XPointer call_data; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8056 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8057 struct xim_inst_t *xim_inst = (struct xim_inst_t *) client_data; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8058 struct x_display_info *dpyinfo = xim_inst->dpyinfo; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8059 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8060 /* We don't support multiple XIM connections. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8061 if (dpyinfo->xim) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8062 return; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8063 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8064 xim_open_dpy (dpyinfo, xim_inst->resource_name); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8065 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8066 /* Create XIC for the existing frames on the same display, as long |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8067 as they have no XIC. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8068 if (dpyinfo->xim && dpyinfo->reference_count > 0) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8069 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8070 Lisp_Object tail, frame; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8071 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8072 BLOCK_INPUT; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8073 FOR_EACH_FRAME (tail, frame) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8074 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8075 struct frame *f = XFRAME (frame); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8076 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8077 if (FRAME_X_DISPLAY_INFO (f) == xim_inst->dpyinfo) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8078 if (FRAME_XIC (f) == NULL) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8079 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8080 create_frame_xic (f); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8081 if (FRAME_XIC_STYLE (f) & XIMStatusArea) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8082 xic_set_statusarea (f); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8083 if (FRAME_XIC_STYLE (f) & XIMPreeditPosition) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8084 { |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8085 struct window *w = XWINDOW (f->selected_window); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8086 xic_set_preeditarea (w, w->cursor.x, w->cursor.y); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8087 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8088 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8089 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8090 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8091 UNBLOCK_INPUT; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8092 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8093 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8094 |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8095 #endif /* HAVE_X11R6_XIM */ |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8096 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8097 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8098 /* Open a connection to the XIM server on display DPYINFO. |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8099 RESOURCE_NAME is the resource name for Emacs. On X11R5, open the |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8100 connection only at the first time. On X11R6, open the connection |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8101 in the XIM instantiate callback function. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8102 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8103 static void |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8104 xim_initialize (dpyinfo, resource_name) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8105 struct x_display_info *dpyinfo; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8106 char *resource_name; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8107 { |
51129 | 8108 if (use_xim) |
8109 { | |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8110 #ifdef HAVE_X11R6_XIM |
51129 | 8111 struct xim_inst_t *xim_inst; |
8112 int len; | |
8113 | |
8114 dpyinfo->xim = NULL; | |
8115 xim_inst = (struct xim_inst_t *) xmalloc (sizeof (struct xim_inst_t)); | |
8116 xim_inst->dpyinfo = dpyinfo; | |
8117 len = strlen (resource_name); | |
8118 xim_inst->resource_name = (char *) xmalloc (len + 1); | |
8119 bcopy (resource_name, xim_inst->resource_name, len + 1); | |
8120 XRegisterIMInstantiateCallback (dpyinfo->display, dpyinfo->xrdb, | |
8121 resource_name, EMACS_CLASS, | |
8122 xim_instantiate_callback, | |
51649
fab11a57338c
(xim_initialize): Use XRegisterIMInstantiateCallback_arg6.
Dave Love <fx@gnu.org>
parents:
51576
diff
changeset
|
8123 /* This is XPointer in XFree86 |
fab11a57338c
(xim_initialize): Use XRegisterIMInstantiateCallback_arg6.
Dave Love <fx@gnu.org>
parents:
51576
diff
changeset
|
8124 but (XPointer *) on Tru64, at |
fab11a57338c
(xim_initialize): Use XRegisterIMInstantiateCallback_arg6.
Dave Love <fx@gnu.org>
parents:
51576
diff
changeset
|
8125 least, hence the configure test. */ |
51676
f9d7d97a1d37
(xim_initialize): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
51649
diff
changeset
|
8126 (XPointer) xim_inst); |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8127 #else /* not HAVE_X11R6_XIM */ |
51129 | 8128 dpyinfo->xim = NULL; |
8129 xim_open_dpy (dpyinfo, resource_name); | |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8130 #endif /* not HAVE_X11R6_XIM */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8131 |
51129 | 8132 } |
8133 else | |
8134 dpyinfo->xim = NULL; | |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8135 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8136 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8137 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8138 /* Close the connection to the XIM server on display DPYINFO. */ |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8139 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8140 static void |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8141 xim_close_dpy (dpyinfo) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8142 struct x_display_info *dpyinfo; |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8143 { |
51129 | 8144 if (use_xim) |
8145 { | |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8146 #ifdef HAVE_X11R6_XIM |
51129 | 8147 if (dpyinfo->display) |
8148 XUnregisterIMInstantiateCallback (dpyinfo->display, dpyinfo->xrdb, | |
8149 NULL, EMACS_CLASS, | |
8150 xim_instantiate_callback, NULL); | |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8151 #endif /* not HAVE_X11R6_XIM */ |
51129 | 8152 if (dpyinfo->display) |
8153 XCloseIM (dpyinfo->xim); | |
8154 dpyinfo->xim = NULL; | |
8155 XFree (dpyinfo->xim_styles); | |
8156 } | |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8157 } |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8158 |
28142
156c32f18198
(xim_close_dpy, xim_initialize): Use X11R6-style XIM
Gerd Moellmann <gerd@gnu.org>
parents:
28139
diff
changeset
|
8159 #endif /* not HAVE_X11R6_XIM */ |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8160 |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
8161 |
286 | 8162 |
14826
eec0abb31126
Comment/whitespace change.
Richard M. Stallman <rms@gnu.org>
parents:
14801
diff
changeset
|
8163 /* Calculate the absolute position in frame F |
eec0abb31126
Comment/whitespace change.
Richard M. Stallman <rms@gnu.org>
parents:
14801
diff
changeset
|
8164 from its current recorded position values and gravity. */ |
eec0abb31126
Comment/whitespace change.
Richard M. Stallman <rms@gnu.org>
parents:
14801
diff
changeset
|
8165 |
21514 | 8166 void |
7264
a701bffa0f9d
(x_calc_absolute_position): Use size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
7262
diff
changeset
|
8167 x_calc_absolute_position (f) |
771 | 8168 struct frame *f; |
286 | 8169 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8170 Window child; |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8171 int win_x = 0, win_y = 0; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8172 int flags = f->size_hint_flags; |
11896
507a45c7e911
(x_calc_absolute_position): Use menubar_height field.
Karl Heuer <kwzh@gnu.org>
parents:
11807
diff
changeset
|
8173 int this_window; |
507a45c7e911
(x_calc_absolute_position): Use menubar_height field.
Karl Heuer <kwzh@gnu.org>
parents:
11807
diff
changeset
|
8174 |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8175 /* We have nothing to do if the current position |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8176 is already for the top-left corner. */ |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8177 if (! ((flags & XNegative) || (flags & YNegative))) |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8178 return; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8179 |
49322 | 8180 this_window = FRAME_OUTER_WINDOW (f); |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8181 |
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8182 /* Find the position of the outside upper-left corner of |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8183 the inner window, with respect to the outer window. |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8184 But do this only if we will need the results. */ |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
8185 if (f->output_data.x->parent_desc != FRAME_X_DISPLAY_INFO (f)->root_window) |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8186 { |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8187 int count; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8188 |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8189 BLOCK_INPUT; |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8190 count = x_catch_errors (FRAME_X_DISPLAY (f)); |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8191 while (1) |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8192 { |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8193 x_clear_errors (FRAME_X_DISPLAY (f)); |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8194 XTranslateCoordinates (FRAME_X_DISPLAY (f), |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8195 |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8196 /* From-window, to-window. */ |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8197 this_window, |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8198 f->output_data.x->parent_desc, |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8199 |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8200 /* From-position, to-position. */ |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8201 0, 0, &win_x, &win_y, |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8202 |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8203 /* Child of win. */ |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8204 &child); |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8205 if (x_had_errors_p (FRAME_X_DISPLAY (f))) |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8206 { |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8207 Window newroot, newparent = 0xdeadbeef; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8208 Window *newchildren; |
29435
28c6b6d0ed6b
(x_calc_absolute_position): Declare nchildren unsigned.
Dave Love <fx@gnu.org>
parents:
29393
diff
changeset
|
8209 unsigned int nchildren; |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8210 |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8211 if (! XQueryTree (FRAME_X_DISPLAY (f), this_window, &newroot, |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8212 &newparent, &newchildren, &nchildren)) |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8213 break; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8214 |
23107
44eda932afcf
(x_calc_absolute_position): Cast argument to XFree, in
Karl Heuer <kwzh@gnu.org>
parents:
23095
diff
changeset
|
8215 XFree ((char *) newchildren); |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8216 |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8217 f->output_data.x->parent_desc = newparent; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8218 } |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8219 else |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8220 break; |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8221 } |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8222 |
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8223 x_uncatch_errors (FRAME_X_DISPLAY (f), count); |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8224 UNBLOCK_INPUT; |
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8225 } |
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8226 |
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8227 /* Treat negative positions as relative to the leftmost bottommost |
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
8228 position that fits on the screen. */ |
7262
68fc80bf10df
(x_wm_set_size_hint): Don't try to handle negative positions.
Richard M. Stallman <rms@gnu.org>
parents:
7210
diff
changeset
|
8229 if (flags & XNegative) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8230 f->left_pos = (FRAME_X_DISPLAY_INFO (f)->width |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8231 - 2 * f->border_width - win_x |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8232 - FRAME_PIXEL_WIDTH (f) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8233 + f->left_pos); |
771 | 8234 |
34099
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8235 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8236 int height = FRAME_PIXEL_HEIGHT (f); |
34099
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8237 |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8238 #if defined USE_X_TOOLKIT && defined USE_MOTIF |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8239 /* Something is fishy here. When using Motif, starting Emacs with |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8240 `-g -0-0', the frame appears too low by a few pixels. |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8241 |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8242 This seems to be so because initially, while Emacs is starting, |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8243 the column widget's height and the frame's pixel height are |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8244 different. The column widget's height is the right one. In |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8245 later invocations, when Emacs is up, the frame's pixel height |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8246 is right, though. |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8247 |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8248 It's not obvious where the initial small difference comes from. |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8249 2000-12-01, gerd. */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8250 |
34099
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8251 XtVaGetValues (f->output_data.x->column_widget, XtNheight, &height, NULL); |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8252 #endif |
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8253 |
7262
68fc80bf10df
(x_wm_set_size_hint): Don't try to handle negative positions.
Richard M. Stallman <rms@gnu.org>
parents:
7210
diff
changeset
|
8254 if (flags & YNegative) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8255 f->top_pos = (FRAME_X_DISPLAY_INFO (f)->height |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8256 - 2 * f->border_width |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8257 - win_y |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8258 - height |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8259 + f->top_pos); |
34099
06ab9f74a16b
(x_calc_absolute_position): Don't subtract menubar's
Gerd Moellmann <gerd@gnu.org>
parents:
34066
diff
changeset
|
8260 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8261 |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8262 /* The left_pos and top_pos |
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8263 are now relative to the top and left screen edges, |
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8264 so the flags should correspond. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8265 f->size_hint_flags &= ~ (XNegative | YNegative); |
286 | 8266 } |
8267 | |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8268 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position, |
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8269 to really change the position, and 0 when calling from |
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8270 x_make_frame_visible (in that case, XOFF and YOFF are the current |
11988
a1ce6f699967
(x_set_offset): Distinguish CHANGE_GRAVITY < 0 case.
Karl Heuer <kwzh@gnu.org>
parents:
11953
diff
changeset
|
8271 position values). It is -1 when calling from x_set_frame_parameters, |
a1ce6f699967
(x_set_offset): Distinguish CHANGE_GRAVITY < 0 case.
Karl Heuer <kwzh@gnu.org>
parents:
11953
diff
changeset
|
8272 which means, do adjust for borders but don't change the gravity. */ |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8273 |
21514 | 8274 void |
6934
e0ab4f59004e
(dumpglyphs): When HL=2, check explicitly for using
Richard M. Stallman <rms@gnu.org>
parents:
6883
diff
changeset
|
8275 x_set_offset (f, xoff, yoff, change_gravity) |
771 | 8276 struct frame *f; |
286 | 8277 register int xoff, yoff; |
6934
e0ab4f59004e
(dumpglyphs): When HL=2, check explicitly for using
Richard M. Stallman <rms@gnu.org>
parents:
6883
diff
changeset
|
8278 int change_gravity; |
286 | 8279 { |
11901
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8280 int modified_top, modified_left; |
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8281 |
11988
a1ce6f699967
(x_set_offset): Distinguish CHANGE_GRAVITY < 0 case.
Karl Heuer <kwzh@gnu.org>
parents:
11953
diff
changeset
|
8282 if (change_gravity > 0) |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8283 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8284 f->top_pos = yoff; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8285 f->left_pos = xoff; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8286 f->size_hint_flags &= ~ (XNegative | YNegative); |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8287 if (xoff < 0) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8288 f->size_hint_flags |= XNegative; |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8289 if (yoff < 0) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8290 f->size_hint_flags |= YNegative; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8291 f->win_gravity = NorthWestGravity; |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8292 } |
7264
a701bffa0f9d
(x_calc_absolute_position): Use size_hint_flags.
Richard M. Stallman <rms@gnu.org>
parents:
7262
diff
changeset
|
8293 x_calc_absolute_position (f); |
286 | 8294 |
8295 BLOCK_INPUT; | |
11915
e2ab839155e1
(XTflash): Use pointers as args to select.
Karl Heuer <kwzh@gnu.org>
parents:
11904
diff
changeset
|
8296 x_wm_set_size_hint (f, (long) 0, 0); |
7409
fe56a02838ba
(x_set_offset): Set gravity and size hint
Richard M. Stallman <rms@gnu.org>
parents:
7346
diff
changeset
|
8297 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8298 modified_left = f->left_pos; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8299 modified_top = f->top_pos; |
17519
5aa7011aa3d5
(x_set_offset): Turn off the code that added the border_width
Richard M. Stallman <rms@gnu.org>
parents:
17371
diff
changeset
|
8300 #if 0 /* Running on psilocin (Debian), and displaying on the NCD X-terminal, |
5aa7011aa3d5
(x_set_offset): Turn off the code that added the border_width
Richard M. Stallman <rms@gnu.org>
parents:
17371
diff
changeset
|
8301 this seems to be unnecessary and incorrect. rms, 4/17/97. */ |
11901
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8302 /* It is a mystery why we need to add the border_width here |
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8303 when the frame is already visible, but experiment says we do. */ |
11988
a1ce6f699967
(x_set_offset): Distinguish CHANGE_GRAVITY < 0 case.
Karl Heuer <kwzh@gnu.org>
parents:
11953
diff
changeset
|
8304 if (change_gravity != 0) |
11901
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8305 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8306 modified_left += f->border_width; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8307 modified_top += f->border_width; |
11901
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8308 } |
17519
5aa7011aa3d5
(x_set_offset): Turn off the code that added the border_width
Richard M. Stallman <rms@gnu.org>
parents:
17371
diff
changeset
|
8309 #endif |
11901
8ecc60a02138
(x_set_offset): Add border_width when calling XMoveWindow.
Karl Heuer <kwzh@gnu.org>
parents:
11896
diff
changeset
|
8310 |
49322 | 8311 XMoveWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), |
8312 modified_left, modified_top); | |
286 | 8313 UNBLOCK_INPUT; |
8314 } | |
8315 | |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8316 /* Check if we need to resize the frame due to a fullscreen request. |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8317 If so needed, resize the frame. */ |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8318 static void |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8319 x_check_fullscreen (f) |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8320 struct frame *f; |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8321 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8322 if (f->want_fullscreen & FULLSCREEN_BOTH) |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8323 { |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8324 int width, height, ign; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8325 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8326 x_real_positions (f, &f->left_pos, &f->top_pos); |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8327 |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8328 x_fullscreen_adjust (f, &width, &height, &ign, &ign); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8329 |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8330 /* We do not need to move the window, it shall be taken care of |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8331 when setting WM manager hints. |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8332 If the frame is visible already, the position is checked by |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8333 x_check_fullscreen_move. */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8334 if (FRAME_COLS (f) != width || FRAME_LINES (f) != height) |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8335 { |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8336 change_frame_size (f, height, width, 0, 1, 0); |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8337 SET_FRAME_GARBAGED (f); |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8338 cancel_mouse_face (f); |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8339 |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8340 /* Wait for the change of frame size to occur */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8341 f->want_fullscreen |= FULLSCREEN_WAIT; |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8342 } |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8343 } |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8344 } |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8345 |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8346 /* If frame parameters are set after the frame is mapped, we need to move |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8347 the window. This is done in xfns.c. |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8348 Some window managers moves the window to the right position, some |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8349 moves the outer window manager window to the specified position. |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8350 Here we check that we are in the right spot. If not, make a second |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8351 move, assuming we are dealing with the second kind of window manager. */ |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8352 static void |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8353 x_check_fullscreen_move (f) |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8354 struct frame *f; |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8355 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8356 if (f->want_fullscreen & FULLSCREEN_MOVE_WAIT) |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8357 { |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8358 int expect_top = f->top_pos; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8359 int expect_left = f->left_pos; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8360 |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8361 if (f->want_fullscreen & FULLSCREEN_HEIGHT) |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8362 expect_top = 0; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8363 if (f->want_fullscreen & FULLSCREEN_WIDTH) |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8364 expect_left = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8365 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8366 if (expect_top != f->top_pos || expect_left != f->left_pos) |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8367 x_set_offset (f, expect_left, expect_top, 1); |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8368 |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8369 /* Just do this once */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8370 f->want_fullscreen &= ~FULLSCREEN_MOVE_WAIT; |
42717
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8371 } |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8372 } |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8373 |
839386cf6e9b
(x_check_fullscreen, x_check_fullscreen_move)
Eli Zaretskii <eliz@gnu.org>
parents:
42688
diff
changeset
|
8374 |
35487
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8375 /* Change the size of frame F's X window to COLS/ROWS in the case F |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8376 doesn't have a widget. If CHANGE_GRAVITY is 1, we change to |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8377 top-left-corner window gravity for this size change and subsequent |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8378 size changes. Otherwise we leave the window gravity unchanged. */ |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8379 |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8380 static void |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8381 x_set_window_size_1 (f, change_gravity, cols, rows) |
771 | 8382 struct frame *f; |
5825
b1f35db748d8
(x_make_frame_invisible): Add USE_X_TOOLKIT conditional.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5753
diff
changeset
|
8383 int change_gravity; |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8384 int cols, rows; |
286 | 8385 { |
8386 int pixelwidth, pixelheight; | |
5686
0c351de98a26
(x_set_window_size): Add USE_X_TOOLKIT conditional. Call EmacsFrameSetCharSize and return.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5685
diff
changeset
|
8387 |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8388 check_frame_size (f, &rows, &cols); |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8389 f->scroll_bar_actual_width |
9167
8ad448b29c1c
(x_new_font): New rule for computing column width. Factored out common code.
Karl Heuer <kwzh@gnu.org>
parents:
9101
diff
changeset
|
8390 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f) |
8ad448b29c1c
(x_new_font): New rule for computing column width. Factored out common code.
Karl Heuer <kwzh@gnu.org>
parents:
9101
diff
changeset
|
8391 ? 0 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8392 : FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0 |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8393 ? FRAME_CONFIG_SCROLL_BAR_WIDTH (f) |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8394 : (FRAME_CONFIG_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f))); |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
8395 |
50097 | 8396 compute_fringe_widths (f, 0); |
41721
e0335ea68760
(zv_height, zv_bits, zv_period): Changed zv bitmap to
Kim F. Storm <storm@cua.dk>
parents:
41631
diff
changeset
|
8397 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8398 pixelwidth = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, cols); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8399 pixelheight = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, rows); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8400 |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8401 f->win_gravity = NorthWestGravity; |
11915
e2ab839155e1
(XTflash): Use pointers as args to select.
Karl Heuer <kwzh@gnu.org>
parents:
11904
diff
changeset
|
8402 x_wm_set_size_hint (f, (long) 0, 0); |
8781
98741404d3e0
Delete X11 conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
8724
diff
changeset
|
8403 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8404 XSync (FRAME_X_DISPLAY (f), False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8405 XResizeWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8406 pixelwidth, pixelheight); |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8407 |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8408 /* Now, strictly speaking, we can't be sure that this is accurate, |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8409 but the window manager will get around to dealing with the size |
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8410 change request eventually, and we'll hear how it went when the |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8411 ConfigureNotify event gets here. |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8412 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8413 We could just not bother storing any of this information here, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8414 and let the ConfigureNotify event set everything up, but that |
25150
1c02364724aa
(x_set_window_size): When calling change_frame_size, specify 1 for DELAY.
Richard M. Stallman <rms@gnu.org>
parents:
25101
diff
changeset
|
8415 might be kind of confusing to the Lisp code, since size changes |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8416 wouldn't be reported in the frame parameters until some random |
25150
1c02364724aa
(x_set_window_size): When calling change_frame_size, specify 1 for DELAY.
Richard M. Stallman <rms@gnu.org>
parents:
25101
diff
changeset
|
8417 point in the future when the ConfigureNotify event arrives. |
1c02364724aa
(x_set_window_size): When calling change_frame_size, specify 1 for DELAY.
Richard M. Stallman <rms@gnu.org>
parents:
25101
diff
changeset
|
8418 |
1c02364724aa
(x_set_window_size): When calling change_frame_size, specify 1 for DELAY.
Richard M. Stallman <rms@gnu.org>
parents:
25101
diff
changeset
|
8419 We pass 1 for DELAY since we can't run Lisp code inside of |
1c02364724aa
(x_set_window_size): When calling change_frame_size, specify 1 for DELAY.
Richard M. Stallman <rms@gnu.org>
parents:
25101
diff
changeset
|
8420 a BLOCK_INPUT. */ |
25360
2f3ad0a21be5
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25328
diff
changeset
|
8421 change_frame_size (f, rows, cols, 0, 1, 0); |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8422 FRAME_PIXEL_WIDTH (f) = pixelwidth; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8423 FRAME_PIXEL_HEIGHT (f) = pixelheight; |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
8424 |
14692
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8425 /* We've set {FRAME,PIXEL}_{WIDTH,HEIGHT} to the values we hope to |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8426 receive in the ConfigureNotify event; if we get what we asked |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8427 for, then the event won't cause the screen to become garbaged, so |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8428 we have to make sure to do it here. */ |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8429 SET_FRAME_GARBAGED (f); |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8430 |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8431 XFlush (FRAME_X_DISPLAY (f)); |
35487
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8432 } |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8433 |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8434 |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8435 /* Call this to change the size of frame F's x-window. |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8436 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8437 for this size change and subsequent size changes. |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8438 Otherwise we leave the window gravity unchanged. */ |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8439 |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8440 void |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8441 x_set_window_size (f, change_gravity, cols, rows) |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8442 struct frame *f; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8443 int change_gravity; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8444 int cols, rows; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8445 { |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8446 BLOCK_INPUT; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8447 |
49322 | 8448 #ifdef USE_GTK |
8449 if (FRAME_GTK_WIDGET (f)) | |
8450 xg_frame_set_char_size (f, cols, rows); | |
8451 else | |
8452 x_set_window_size_1 (f, change_gravity, cols, rows); | |
8453 #elif USE_X_TOOLKIT | |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8454 |
36442
7fda58b1a204
(x_set_window_size): Don't use `None' with widgets; use
Gerd Moellmann <gerd@gnu.org>
parents:
36251
diff
changeset
|
8455 if (f->output_data.x->widget != NULL) |
35487
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8456 { |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8457 /* The x and y position of the widget is clobbered by the |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8458 call to XtSetValues within EmacsFrameSetCharSize. |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8459 This is a real kludge, but I don't understand Xt so I can't |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8460 figure out a correct fix. Can anyone else tell me? -- rms. */ |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8461 int xpos = f->output_data.x->widget->core.x; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8462 int ypos = f->output_data.x->widget->core.y; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8463 EmacsFrameSetCharSize (f->output_data.x->edit_widget, cols, rows); |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8464 f->output_data.x->widget->core.x = xpos; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8465 f->output_data.x->widget->core.y = ypos; |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8466 } |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8467 else |
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8468 x_set_window_size_1 (f, change_gravity, cols, rows); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8469 |
35487
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8470 #else /* not USE_X_TOOLKIT */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8471 |
35487
e92d3f50f8b8
(x_set_window_size_1): New function extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
35393
diff
changeset
|
8472 x_set_window_size_1 (f, change_gravity, cols, rows); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8473 |
14692
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8474 #endif /* not USE_X_TOOLKIT */ |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8475 |
7651
1569a13efdcd
(x_set_window_size): If cursor outside new size, mark it off.
Richard M. Stallman <rms@gnu.org>
parents:
7602
diff
changeset
|
8476 /* If cursor was outside the new size, mark it as off. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8477 mark_window_cursors_off (XWINDOW (f->root_window)); |
7651
1569a13efdcd
(x_set_window_size): If cursor outside new size, mark it off.
Richard M. Stallman <rms@gnu.org>
parents:
7602
diff
changeset
|
8478 |
14692
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8479 /* Clear out any recollection of where the mouse highlighting was, |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8480 since it might be in a place that's outside the new frame size. |
14692
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8481 Actually checking whether it is outside is a pain in the neck, |
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8482 so don't try--just let the highlighting be done afresh with new size. */ |
16491
7094452bc337
(cancel_mouse_face): New function. Code copied from
Richard M. Stallman <rms@gnu.org>
parents:
16483
diff
changeset
|
8483 cancel_mouse_face (f); |
14692
e93656946a8c
(x_set_window_size): Clear out the mouse-highlighting data
Richard M. Stallman <rms@gnu.org>
parents:
14557
diff
changeset
|
8484 |
286 | 8485 UNBLOCK_INPUT; |
8486 } | |
8487 | |
12172
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8488 /* Mouse warping. */ |
286 | 8489 |
7026
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8490 void |
771 | 8491 x_set_mouse_position (f, x, y) |
8492 struct frame *f; | |
286 | 8493 int x, y; |
8494 { | |
8495 int pix_x, pix_y; | |
8496 | |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8497 pix_x = FRAME_COL_TO_PIXEL_X (f, x) + FRAME_COLUMN_WIDTH (f) / 2; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8498 pix_y = FRAME_LINE_TO_PIXEL_Y (f, y) + FRAME_LINE_HEIGHT (f) / 2; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
8499 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
8500 if (pix_x < 0) pix_x = 0; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8501 if (pix_x > FRAME_PIXEL_WIDTH (f)) pix_x = FRAME_PIXEL_WIDTH (f); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
8502 |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
8503 if (pix_y < 0) pix_y = 0; |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8504 if (pix_y > FRAME_PIXEL_HEIGHT (f)) pix_y = FRAME_PIXEL_HEIGHT (f); |
286 | 8505 |
8506 BLOCK_INPUT; | |
8507 | |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8508 XWarpPointer (FRAME_X_DISPLAY (f), None, FRAME_X_WINDOW (f), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8509 0, 0, 0, 0, pix_x, pix_y); |
286 | 8510 UNBLOCK_INPUT; |
8511 } | |
8512 | |
7026
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8513 /* Move the mouse to position pixel PIX_X, PIX_Y relative to frame F. */ |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8514 |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8515 void |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8516 x_set_mouse_pixel_position (f, pix_x, pix_y) |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8517 struct frame *f; |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8518 int pix_x, pix_y; |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8519 { |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8520 BLOCK_INPUT; |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8521 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8522 XWarpPointer (FRAME_X_DISPLAY (f), None, FRAME_X_WINDOW (f), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8523 0, 0, 0, 0, pix_x, pix_y); |
7026
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8524 UNBLOCK_INPUT; |
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8525 } |
12172
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8526 |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8527 /* focus shifting, raising and lowering. */ |
7026
55f9a506180d
(x_set_mouse_pixel_position): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7001
diff
changeset
|
8528 |
21514 | 8529 void |
771 | 8530 x_focus_on_frame (f) |
8531 struct frame *f; | |
286 | 8532 { |
5156
fd78458b8c43
(XTread_socket): Really handle Xatom_wm_window_moved events.
Richard M. Stallman <rms@gnu.org>
parents:
5018
diff
changeset
|
8533 #if 0 /* This proves to be unpleasant. */ |
771 | 8534 x_raise_frame (f); |
5156
fd78458b8c43
(XTread_socket): Really handle Xatom_wm_window_moved events.
Richard M. Stallman <rms@gnu.org>
parents:
5018
diff
changeset
|
8535 #endif |
369 | 8536 #if 0 |
8537 /* I don't think that the ICCCM allows programs to do things like this | |
8538 without the interaction of the window manager. Whatever you end up | |
771 | 8539 doing with this code, do it to x_unfocus_frame too. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8540 XSetInputFocus (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
286 | 8541 RevertToPointerRoot, CurrentTime); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8542 #endif /* ! 0 */ |
286 | 8543 } |
8544 | |
21514 | 8545 void |
771 | 8546 x_unfocus_frame (f) |
8547 struct frame *f; | |
286 | 8548 { |
369 | 8549 #if 0 |
771 | 8550 /* Look at the remarks in x_focus_on_frame. */ |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
8551 if (FRAME_X_DISPLAY_INFO (f)->x_focus_frame == f) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8552 XSetInputFocus (FRAME_X_DISPLAY (f), PointerRoot, |
286 | 8553 RevertToPointerRoot, CurrentTime); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8554 #endif /* ! 0 */ |
286 | 8555 } |
8556 | |
771 | 8557 /* Raise frame F. */ |
8558 | |
21514 | 8559 void |
771 | 8560 x_raise_frame (f) |
8561 struct frame *f; | |
286 | 8562 { |
1658
452ba03935d7
* xterm.c (XTread_socket): When we get MapNotify, UnmapNotify,
Jim Blandy <jimb@redhat.com>
parents:
1530
diff
changeset
|
8563 if (f->async_visible) |
286 | 8564 { |
8565 BLOCK_INPUT; | |
49644
834df49192b0
Use FRAME_OUTER_WINDOW instead of ifdef X_TOOLKIT/else/endif
Jan Djärv <jan.h.d@swipnet.se>
parents:
49600
diff
changeset
|
8566 XRaiseWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f)); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8567 XFlush (FRAME_X_DISPLAY (f)); |
286 | 8568 UNBLOCK_INPUT; |
8569 } | |
8570 } | |
8571 | |
771 | 8572 /* Lower frame F. */ |
8573 | |
21514 | 8574 void |
771 | 8575 x_lower_frame (f) |
8576 struct frame *f; | |
286 | 8577 { |
1658
452ba03935d7
* xterm.c (XTread_socket): When we get MapNotify, UnmapNotify,
Jim Blandy <jimb@redhat.com>
parents:
1530
diff
changeset
|
8578 if (f->async_visible) |
286 | 8579 { |
8580 BLOCK_INPUT; | |
49644
834df49192b0
Use FRAME_OUTER_WINDOW instead of ifdef X_TOOLKIT/else/endif
Jan Djärv <jan.h.d@swipnet.se>
parents:
49600
diff
changeset
|
8581 XLowerWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f)); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8582 XFlush (FRAME_X_DISPLAY (f)); |
286 | 8583 UNBLOCK_INPUT; |
8584 } | |
8585 } | |
8586 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8587 static void |
14411
bac274f178b0
(XTframe_raise_lower): Rename arg `raise' to `raise_flag'.
Richard M. Stallman <rms@gnu.org>
parents:
14305
diff
changeset
|
8588 XTframe_raise_lower (f, raise_flag) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8589 FRAME_PTR f; |
14411
bac274f178b0
(XTframe_raise_lower): Rename arg `raise' to `raise_flag'.
Richard M. Stallman <rms@gnu.org>
parents:
14305
diff
changeset
|
8590 int raise_flag; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8591 { |
14411
bac274f178b0
(XTframe_raise_lower): Rename arg `raise' to `raise_flag'.
Richard M. Stallman <rms@gnu.org>
parents:
14305
diff
changeset
|
8592 if (raise_flag) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8593 x_raise_frame (f); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8594 else |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8595 x_lower_frame (f); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
8596 } |
12172
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8597 |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8598 /* Change of visibility. */ |
286 | 8599 |
12192
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8600 /* This tries to wait until the frame is really visible. |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8601 However, if the window manager asks the user where to position |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8602 the frame, this will return before the user finishes doing that. |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8603 The frame will not actually be visible at that time, |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8604 but it will become visible later when the window manager |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8605 finishes with it. */ |
1b571a7992b0
(x_make_frame_visible): Test and set asked_for_visible.
Karl Heuer <kwzh@gnu.org>
parents:
12189
diff
changeset
|
8606 |
21514 | 8607 void |
771 | 8608 x_make_frame_visible (f) |
8609 struct frame *f; | |
286 | 8610 { |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8611 Lisp_Object type; |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8612 int original_top, original_left; |
31948
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8613 int retry_count = 2; |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8614 |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8615 retry: |
286 | 8616 |
429 | 8617 BLOCK_INPUT; |
8618 | |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8619 type = x_icon_type (f); |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8620 if (!NILP (type)) |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8621 x_bitmap_icon (f, type); |
9446
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
8622 |
771 | 8623 if (! FRAME_VISIBLE_P (f)) |
286 | 8624 { |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8625 /* We test FRAME_GARBAGED_P here to make sure we don't |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8626 call x_set_offset a second time |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8627 if we get to x_make_frame_visible a second time |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8628 before the window gets really visible. */ |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8629 if (! FRAME_ICONIFIED_P (f) |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8630 && ! f->output_data.x->asked_for_visible) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8631 x_set_offset (f, f->left_pos, f->top_pos, 0); |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8632 |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8633 f->output_data.x->asked_for_visible = 1; |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8634 |
429 | 8635 if (! EQ (Vx_no_window_manager, Qt)) |
771 | 8636 x_wm_set_window_state (f, NormalState); |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8637 #ifdef USE_X_TOOLKIT |
7167
2fa74c48e4e5
(x_make_frame_visible): Use XtMapWidget, not XtPopup.
Richard M. Stallman <rms@gnu.org>
parents:
7128
diff
changeset
|
8638 /* This was XtPopup, but that did nothing for an iconified frame. */ |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
8639 XtMapWidget (f->output_data.x->widget); |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8640 #else /* not USE_X_TOOLKIT */ |
49322 | 8641 #ifdef USE_GTK |
8642 gtk_widget_show_all (FRAME_GTK_OUTER_WIDGET (f)); | |
49651
05ebf4266798
xterm.c (x_make_frame_visible): Call gtk_window_deiconify.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49644
diff
changeset
|
8643 gtk_window_deiconify (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f))); |
49322 | 8644 #else |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
8645 XMapRaised (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f)); |
49322 | 8646 #endif /* not USE_GTK */ |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8647 #endif /* not USE_X_TOOLKIT */ |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
8648 #if 0 /* This seems to bring back scroll bars in the wrong places |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
8649 if the window configuration has changed. They seem |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
8650 to come back ok without this. */ |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
8651 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f)) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8652 XMapSubwindows (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f)); |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
8653 #endif |
429 | 8654 } |
286 | 8655 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8656 XFlush (FRAME_X_DISPLAY (f)); |
429 | 8657 |
7959
224440646fa7
(make_frame_visible): At end, wait till Emacs sees frame is visible.
Richard M. Stallman <rms@gnu.org>
parents:
7935
diff
changeset
|
8658 /* Synchronize to ensure Emacs knows the frame is visible |
224440646fa7
(make_frame_visible): At end, wait till Emacs sees frame is visible.
Richard M. Stallman <rms@gnu.org>
parents:
7935
diff
changeset
|
8659 before we do anything else. We do this loop with input not blocked |
224440646fa7
(make_frame_visible): At end, wait till Emacs sees frame is visible.
Richard M. Stallman <rms@gnu.org>
parents:
7935
diff
changeset
|
8660 so that incoming events are handled. */ |
224440646fa7
(make_frame_visible): At end, wait till Emacs sees frame is visible.
Richard M. Stallman <rms@gnu.org>
parents:
7935
diff
changeset
|
8661 { |
224440646fa7
(make_frame_visible): At end, wait till Emacs sees frame is visible.
Richard M. Stallman <rms@gnu.org>
parents:
7935
diff
changeset
|
8662 Lisp_Object frame; |
27040
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8663 int count; |
18528
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8664 /* This must be before UNBLOCK_INPUT |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8665 since events that arrive in response to the actions above |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8666 will set it when they are handled. */ |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8667 int previously_visible = f->output_data.x->has_been_visible; |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8668 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8669 original_left = f->left_pos; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8670 original_top = f->top_pos; |
9337
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
8671 |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
8672 /* This must come after we set COUNT. */ |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
8673 UNBLOCK_INPUT; |
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
8674 |
22907
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8675 /* We unblock here so that arriving X events are processed. */ |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8676 |
18008
d25d2472df51
(XTread_socket) <ConfigureNotify>: Don't call
Richard M. Stallman <rms@gnu.org>
parents:
17963
diff
changeset
|
8677 /* Now move the window back to where it was "supposed to be". |
d25d2472df51
(XTread_socket) <ConfigureNotify>: Don't call
Richard M. Stallman <rms@gnu.org>
parents:
17963
diff
changeset
|
8678 But don't do it if the gravity is negative. |
d25d2472df51
(XTread_socket) <ConfigureNotify>: Don't call
Richard M. Stallman <rms@gnu.org>
parents:
17963
diff
changeset
|
8679 When the gravity is negative, this uses a position |
18528
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8680 that is 3 pixels too low. Perhaps that's really the border width. |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8681 |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8682 Don't do this if the window has never been visible before, |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8683 because the window manager may choose the position |
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8684 and we don't want to override it. */ |
18008
d25d2472df51
(XTread_socket) <ConfigureNotify>: Don't call
Richard M. Stallman <rms@gnu.org>
parents:
17963
diff
changeset
|
8685 |
18630
3e414b9da546
(x_make_frame_visible): Don't move the frame
Richard M. Stallman <rms@gnu.org>
parents:
18528
diff
changeset
|
8686 if (! FRAME_VISIBLE_P (f) && ! FRAME_ICONIFIED_P (f) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8687 && f->win_gravity == NorthWestGravity |
18528
73f4d9258f04
(x_make_frame_visible): Check has_been_visible
Richard M. Stallman <rms@gnu.org>
parents:
18347
diff
changeset
|
8688 && previously_visible) |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8689 { |
22907
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8690 Drawable rootw; |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8691 int x, y; |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8692 unsigned int width, height, border, depth; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8693 |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8694 BLOCK_INPUT; |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8695 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8696 /* On some window managers (such as FVWM) moving an existing |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8697 window, even to the same place, causes the window manager |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8698 to introduce an offset. This can cause the window to move |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8699 to an unexpected location. Check the geometry (a little |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8700 slow here) and then verify that the window is in the right |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8701 place. If the window is not in the right place, move it |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8702 there, and take the potential window manager hit. */ |
22907
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8703 XGetGeometry (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8704 &rootw, &x, &y, &width, &height, &border, &depth); |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8705 |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8706 if (original_left != x || original_top != y) |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8707 XMoveWindow (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8708 original_left, original_top); |
43e290c6fb19
(x_list_fonts): Call XFreeFont after the new call to XLoadQueryFont.
Richard M. Stallman <rms@gnu.org>
parents:
22773
diff
changeset
|
8709 |
17963
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8710 UNBLOCK_INPUT; |
b77c13e71ba3
(XTread_socket) <UnmapNotify>: Don't make an inconify_event
Richard M. Stallman <rms@gnu.org>
parents:
17953
diff
changeset
|
8711 } |
17953
96a51be54a7e
(x_make_frame_visible): Call x_set_offset only after
Richard M. Stallman <rms@gnu.org>
parents:
17877
diff
changeset
|
8712 |
9338
873508897cc2
(x_new_focus_frame, construct_mouse_click, construct_menu_click,
Karl Heuer <kwzh@gnu.org>
parents:
9337
diff
changeset
|
8713 XSETFRAME (frame, f); |
9337
7b933936a676
(input_signal_count): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9232
diff
changeset
|
8714 |
27040
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8715 /* Wait until the frame is visible. Process X events until a |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8716 MapNotify event has been seen, or until we think we won't get a |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8717 MapNotify at all.. */ |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8718 for (count = input_signal_count + 10; |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8719 input_signal_count < count && !FRAME_VISIBLE_P (f);) |
8098
e44c31d682b1
(x_draw_box): Use curs_x and curs_y, not f->cursor_[xy].
Richard M. Stallman <rms@gnu.org>
parents:
8036
diff
changeset
|
8720 { |
27040
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8721 /* Force processing of queued events. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8722 x_sync (f); |
27040
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8723 |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8724 /* Machines that do polling rather than SIGIO have been |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8725 observed to go into a busy-wait here. So we'll fake an |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8726 alarm signal to let the handler know that there's something |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8727 to be read. We used to raise a real alarm, but it seems |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8728 that the handler isn't always enabled here. This is |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8729 probably a bug. */ |
8682
42f95b1368ea
(x_make_frame_visible): Call input_polling_used.
Richard M. Stallman <rms@gnu.org>
parents:
8652
diff
changeset
|
8730 if (input_polling_used ()) |
8652 | 8731 { |
27040
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8732 /* It could be confusing if a real alarm arrives while |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8733 processing the fake one. Turn it off and let the |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8734 handler reset it. */ |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
8735 extern void poll_for_input_1 P_ ((void)); |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
8736 int old_poll_suppress_count = poll_suppress_count; |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
8737 poll_suppress_count = 1; |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
8738 poll_for_input_1 (); |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
8739 poll_suppress_count = old_poll_suppress_count; |
8652 | 8740 } |
27040
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8741 |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8742 /* See if a MapNotify event has been processed. */ |
900a02429efa
(x_make_frame_visible): Wait for frame becoming visible
Gerd Moellmann <gerd@gnu.org>
parents:
27000
diff
changeset
|
8743 FRAME_SAMPLE_VISIBILITY (f); |
8098
e44c31d682b1
(x_draw_box): Use curs_x and curs_y, not f->cursor_[xy].
Richard M. Stallman <rms@gnu.org>
parents:
8036
diff
changeset
|
8744 } |
31948
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8745 |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8746 /* 2000-09-28: In |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8747 |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8748 (let ((f (selected-frame))) |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8749 (iconify-frame f) |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8750 (raise-frame f)) |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8751 |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8752 the frame is not raised with various window managers on |
51093 | 8753 FreeBSD, GNU/Linux and Solaris. It turns out that, for some |
31948
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8754 unknown reason, the call to XtMapWidget is completely ignored. |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8755 Mapping the widget a second time works. */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
8756 |
31948
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8757 if (!FRAME_VISIBLE_P (f) && --retry_count > 0) |
a6e9ef37895d
(x_make_frame_visible): Try harder to make the frame
Gerd Moellmann <gerd@gnu.org>
parents:
31864
diff
changeset
|
8758 goto retry; |
7959
224440646fa7
(make_frame_visible): At end, wait till Emacs sees frame is visible.
Richard M. Stallman <rms@gnu.org>
parents:
7935
diff
changeset
|
8759 } |
286 | 8760 } |
8761 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8762 /* Change from mapped state to withdrawn state. */ |
286 | 8763 |
12172
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8764 /* Make the frame visible (mapped and not iconified). */ |
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8765 |
21514 | 8766 void |
771 | 8767 x_make_frame_invisible (f) |
8768 struct frame *f; | |
286 | 8769 { |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8770 Window window; |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8771 |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8772 /* Use the frame's outermost window, not the one we normally draw on. */ |
49644
834df49192b0
Use FRAME_OUTER_WINDOW instead of ifdef X_TOOLKIT/else/endif
Jan Djärv <jan.h.d@swipnet.se>
parents:
49600
diff
changeset
|
8773 window = FRAME_OUTER_WINDOW (f); |
286 | 8774 |
3284
a47979ffad1e
(XTread_socket): For UnmapNotify, if frame was visible,
Richard M. Stallman <rms@gnu.org>
parents:
3282
diff
changeset
|
8775 /* Don't keep the highlight on an invisible frame. */ |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
8776 if (FRAME_X_DISPLAY_INFO (f)->x_highlight_frame == f) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
8777 FRAME_X_DISPLAY_INFO (f)->x_highlight_frame = 0; |
3284
a47979ffad1e
(XTread_socket): For UnmapNotify, if frame was visible,
Richard M. Stallman <rms@gnu.org>
parents:
3282
diff
changeset
|
8778 |
6983
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8779 #if 0/* This might add unreliability; I don't trust it -- rms. */ |
3284
a47979ffad1e
(XTread_socket): For UnmapNotify, if frame was visible,
Richard M. Stallman <rms@gnu.org>
parents:
3282
diff
changeset
|
8780 if (! f->async_visible && ! f->async_iconified) |
286 | 8781 return; |
6983
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8782 #endif |
286 | 8783 |
8784 BLOCK_INPUT; | |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8785 |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
8786 /* Before unmapping the window, update the WM_SIZE_HINTS property to claim |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
8787 that the current position of the window is user-specified, rather than |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
8788 program-specified, so that when the window is mapped again, it will be |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
8789 placed at the same location, without forcing the user to position it |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
8790 by hand again (they have already done that once for this window.) */ |
11915
e2ab839155e1
(XTflash): Use pointers as args to select.
Karl Heuer <kwzh@gnu.org>
parents:
11904
diff
changeset
|
8791 x_wm_set_size_hint (f, (long) 0, 1); |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
8792 |
49322 | 8793 #ifdef USE_GTK |
8794 if (FRAME_GTK_OUTER_WIDGET (f)) | |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
8795 gtk_widget_hide (FRAME_GTK_OUTER_WIDGET (f)); |
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
8796 else |
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
8797 #endif |
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
8798 { |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8799 #ifdef HAVE_X11R4 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8800 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8801 if (! XWithdrawWindow (FRAME_X_DISPLAY (f), window, |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8802 DefaultScreen (FRAME_X_DISPLAY (f)))) |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8803 { |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8804 UNBLOCK_INPUT_RESIGNAL; |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8805 error ("Can't notify window manager of window withdrawal"); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8806 } |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8807 #else /* ! defined (HAVE_X11R4) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8808 |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8809 /* Tell the window manager what we're going to do. */ |
286 | 8810 if (! EQ (Vx_no_window_manager, Qt)) |
8811 { | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8812 XEvent unmap; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8813 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8814 unmap.xunmap.type = UnmapNotify; |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8815 unmap.xunmap.window = window; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8816 unmap.xunmap.event = DefaultRootWindow (FRAME_X_DISPLAY (f)); |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8817 unmap.xunmap.from_configure = False; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8818 if (! XSendEvent (FRAME_X_DISPLAY (f), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8819 DefaultRootWindow (FRAME_X_DISPLAY (f)), |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8820 False, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8821 SubstructureRedirectMaskSubstructureNotifyMask, |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8822 &unmap)) |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8823 { |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8824 UNBLOCK_INPUT_RESIGNAL; |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8825 error ("Can't notify window manager of withdrawal"); |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8826 } |
286 | 8827 } |
8828 | |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8829 /* Unmap the window ourselves. Cheeky! */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8830 XUnmapWindow (FRAME_X_DISPLAY (f), window); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8831 #endif /* ! defined (HAVE_X11R4) */ |
50324
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
8832 } |
d9a401f2769d
(take_vertical_position_into_account): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50270
diff
changeset
|
8833 |
6983
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8834 /* We can't distinguish this from iconification |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8835 just by the event that we get from the server. |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8836 So we can't win using the usual strategy of letting |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8837 FRAME_SAMPLE_VISIBILITY set this. So do it by hand, |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8838 and synchronize with the server to make sure we agree. */ |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8839 f->visible = 0; |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8840 FRAME_ICONIFIED_P (f) = 0; |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8841 f->async_visible = 0; |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8842 f->async_iconified = 0; |
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8843 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8844 x_sync (f); |
6983
b18e5c09d7c3
(XTread_socket, case ClientMessage): Use x_window_to_frame unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6941
diff
changeset
|
8845 |
286 | 8846 UNBLOCK_INPUT; |
8847 } | |
8848 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
8849 /* Change window state from mapped to iconified. */ |
286 | 8850 |
21514 | 8851 void |
771 | 8852 x_iconify_frame (f) |
8853 struct frame *f; | |
286 | 8854 { |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8855 int result; |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8856 Lisp_Object type; |
286 | 8857 |
3284
a47979ffad1e
(XTread_socket): For UnmapNotify, if frame was visible,
Richard M. Stallman <rms@gnu.org>
parents:
3282
diff
changeset
|
8858 /* Don't keep the highlight on an invisible frame. */ |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
8859 if (FRAME_X_DISPLAY_INFO (f)->x_highlight_frame == f) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
8860 FRAME_X_DISPLAY_INFO (f)->x_highlight_frame = 0; |
3284
a47979ffad1e
(XTread_socket): For UnmapNotify, if frame was visible,
Richard M. Stallman <rms@gnu.org>
parents:
3282
diff
changeset
|
8861 |
1658
452ba03935d7
* xterm.c (XTread_socket): When we get MapNotify, UnmapNotify,
Jim Blandy <jimb@redhat.com>
parents:
1530
diff
changeset
|
8862 if (f->async_iconified) |
286 | 8863 return; |
8864 | |
9446
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
8865 BLOCK_INPUT; |
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
8866 |
13627
8873aa3451dd
(XTmouse_position): Exit the loop if child == win.
Richard M. Stallman <rms@gnu.org>
parents:
13598
diff
changeset
|
8867 FRAME_SAMPLE_VISIBILITY (f); |
8873aa3451dd
(XTmouse_position): Exit the loop if child == win.
Richard M. Stallman <rms@gnu.org>
parents:
13598
diff
changeset
|
8868 |
9565
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8869 type = x_icon_type (f); |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8870 if (!NILP (type)) |
255d98c7cd67
(dumpglyphs): Explicitly draw background stipple.
Richard M. Stallman <rms@gnu.org>
parents:
9542
diff
changeset
|
8871 x_bitmap_icon (f, type); |
9446
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
8872 |
49322 | 8873 #ifdef USE_GTK |
8874 if (FRAME_GTK_OUTER_WIDGET (f)) | |
8875 { | |
8876 if (! FRAME_VISIBLE_P (f)) | |
8877 gtk_widget_show_all (FRAME_GTK_OUTER_WIDGET (f)); | |
8878 | |
8879 gtk_window_iconify (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f))); | |
8880 f->iconified = 1; | |
8881 f->visible = 1; | |
8882 f->async_iconified = 1; | |
8883 f->async_visible = 0; | |
8884 UNBLOCK_INPUT; | |
8885 return; | |
8886 } | |
8887 #endif | |
8888 | |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8889 #ifdef USE_X_TOOLKIT |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8890 |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8891 if (! FRAME_VISIBLE_P (f)) |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8892 { |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8893 if (! EQ (Vx_no_window_manager, Qt)) |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8894 x_wm_set_window_state (f, IconicState); |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8895 /* This was XtPopup, but that did nothing for an iconified frame. */ |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
8896 XtMapWidget (f->output_data.x->widget); |
15472
300b52e37681
(x_iconify_frame): If frame is invisible, explicitly mark it as iconified.
Richard M. Stallman <rms@gnu.org>
parents:
15376
diff
changeset
|
8897 /* The server won't give us any event to indicate |
300b52e37681
(x_iconify_frame): If frame is invisible, explicitly mark it as iconified.
Richard M. Stallman <rms@gnu.org>
parents:
15376
diff
changeset
|
8898 that an invisible frame was changed to an icon, |
300b52e37681
(x_iconify_frame): If frame is invisible, explicitly mark it as iconified.
Richard M. Stallman <rms@gnu.org>
parents:
15376
diff
changeset
|
8899 so we have to record it here. */ |
300b52e37681
(x_iconify_frame): If frame is invisible, explicitly mark it as iconified.
Richard M. Stallman <rms@gnu.org>
parents:
15376
diff
changeset
|
8900 f->iconified = 1; |
16753
ab63a77c3a23
(x_iconify_frame): Clear visible when we set iconified.
Richard M. Stallman <rms@gnu.org>
parents:
16491
diff
changeset
|
8901 f->visible = 1; |
15472
300b52e37681
(x_iconify_frame): If frame is invisible, explicitly mark it as iconified.
Richard M. Stallman <rms@gnu.org>
parents:
15376
diff
changeset
|
8902 f->async_iconified = 1; |
16753
ab63a77c3a23
(x_iconify_frame): Clear visible when we set iconified.
Richard M. Stallman <rms@gnu.org>
parents:
16491
diff
changeset
|
8903 f->async_visible = 0; |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8904 UNBLOCK_INPUT; |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8905 return; |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8906 } |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8907 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8908 result = XIconifyWindow (FRAME_X_DISPLAY (f), |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
8909 XtWindow (f->output_data.x->widget), |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8910 DefaultScreen (FRAME_X_DISPLAY (f))); |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8911 UNBLOCK_INPUT; |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8912 |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8913 if (!result) |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8914 error ("Can't notify window manager of iconification"); |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8915 |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8916 f->async_iconified = 1; |
16753
ab63a77c3a23
(x_iconify_frame): Clear visible when we set iconified.
Richard M. Stallman <rms@gnu.org>
parents:
16491
diff
changeset
|
8917 f->async_visible = 0; |
ab63a77c3a23
(x_iconify_frame): Clear visible when we set iconified.
Richard M. Stallman <rms@gnu.org>
parents:
16491
diff
changeset
|
8918 |
5740
48da4ed089e9
(x_iconify_frame): Fix misbalanced BLOCK_INPUT/UNBLOCK_INPUT.
Karl Heuer <kwzh@gnu.org>
parents:
5737
diff
changeset
|
8919 |
48da4ed089e9
(x_iconify_frame): Fix misbalanced BLOCK_INPUT/UNBLOCK_INPUT.
Karl Heuer <kwzh@gnu.org>
parents:
5737
diff
changeset
|
8920 BLOCK_INPUT; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8921 XFlush (FRAME_X_DISPLAY (f)); |
5740
48da4ed089e9
(x_iconify_frame): Fix misbalanced BLOCK_INPUT/UNBLOCK_INPUT.
Karl Heuer <kwzh@gnu.org>
parents:
5737
diff
changeset
|
8922 UNBLOCK_INPUT; |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8923 #else /* not USE_X_TOOLKIT */ |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
8924 |
7738
a810335742bb
(x_iconify_frame): Call x_set_offset,
Richard M. Stallman <rms@gnu.org>
parents:
7706
diff
changeset
|
8925 /* Make sure the X server knows where the window should be positioned, |
a810335742bb
(x_iconify_frame): Call x_set_offset,
Richard M. Stallman <rms@gnu.org>
parents:
7706
diff
changeset
|
8926 in case the user deiconifies with the window manager. */ |
a810335742bb
(x_iconify_frame): Call x_set_offset,
Richard M. Stallman <rms@gnu.org>
parents:
7706
diff
changeset
|
8927 if (! FRAME_VISIBLE_P (f) && !FRAME_ICONIFIED_P (f)) |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
8928 x_set_offset (f, f->left_pos, f->top_pos, 0); |
7738
a810335742bb
(x_iconify_frame): Call x_set_offset,
Richard M. Stallman <rms@gnu.org>
parents:
7706
diff
changeset
|
8929 |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8930 /* Since we don't know which revision of X we're running, we'll use both |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8931 the X11R3 and X11R4 techniques. I don't know if this is a good idea. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8932 |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8933 /* X11R4: send a ClientMessage to the window manager using the |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8934 WM_CHANGE_STATE type. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8935 { |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8936 XEvent message; |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
8937 |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
8938 message.xclient.window = FRAME_X_WINDOW (f); |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8939 message.xclient.type = ClientMessage; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8940 message.xclient.message_type = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_change_state; |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8941 message.xclient.format = 32; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8942 message.xclient.data.l[0] = IconicState; |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8943 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8944 if (! XSendEvent (FRAME_X_DISPLAY (f), |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8945 DefaultRootWindow (FRAME_X_DISPLAY (f)), |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8946 False, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8947 SubstructureRedirectMask | SubstructureNotifyMask, |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8948 &message)) |
286 | 8949 { |
8950 UNBLOCK_INPUT_RESIGNAL; | |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
8951 error ("Can't notify window manager of iconification"); |
286 | 8952 } |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8953 } |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8954 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
8955 /* X11R3: set the initial_state field of the window manager hints to |
1020
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8956 IconicState. */ |
7c2565dd644c
* xterm.c (x_wm_hints): Variable deleted. This has to be
Jim Blandy <jimb@redhat.com>
parents:
976
diff
changeset
|
8957 x_wm_set_window_state (f, IconicState); |
286 | 8958 |
4304
b5014da888a8
(x_iconify_frame): Handle case where frame was invisible.
Richard M. Stallman <rms@gnu.org>
parents:
4277
diff
changeset
|
8959 if (!FRAME_VISIBLE_P (f)) |
b5014da888a8
(x_iconify_frame): Handle case where frame was invisible.
Richard M. Stallman <rms@gnu.org>
parents:
4277
diff
changeset
|
8960 { |
b5014da888a8
(x_iconify_frame): Handle case where frame was invisible.
Richard M. Stallman <rms@gnu.org>
parents:
4277
diff
changeset
|
8961 /* If the frame was withdrawn, before, we must map it. */ |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
8962 XMapRaised (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f)); |
4304
b5014da888a8
(x_iconify_frame): Handle case where frame was invisible.
Richard M. Stallman <rms@gnu.org>
parents:
4277
diff
changeset
|
8963 } |
b5014da888a8
(x_iconify_frame): Handle case where frame was invisible.
Richard M. Stallman <rms@gnu.org>
parents:
4277
diff
changeset
|
8964 |
1658
452ba03935d7
* xterm.c (XTread_socket): When we get MapNotify, UnmapNotify,
Jim Blandy <jimb@redhat.com>
parents:
1530
diff
changeset
|
8965 f->async_iconified = 1; |
16753
ab63a77c3a23
(x_iconify_frame): Clear visible when we set iconified.
Richard M. Stallman <rms@gnu.org>
parents:
16491
diff
changeset
|
8966 f->async_visible = 0; |
286 | 8967 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
8968 XFlush (FRAME_X_DISPLAY (f)); |
286 | 8969 UNBLOCK_INPUT; |
5740
48da4ed089e9
(x_iconify_frame): Fix misbalanced BLOCK_INPUT/UNBLOCK_INPUT.
Karl Heuer <kwzh@gnu.org>
parents:
5737
diff
changeset
|
8970 #endif /* not USE_X_TOOLKIT */ |
286 | 8971 } |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
8972 |
12172
58ce63f11008
(x_get_keysym_name): New function.
Karl Heuer <kwzh@gnu.org>
parents:
12079
diff
changeset
|
8973 |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
8974 /* Free X resources of frame F. */ |
1810
bf618128d973
* xterm.c (x_scrollbar_create): Set the scrollbars to use
Jim Blandy <jimb@redhat.com>
parents:
1803
diff
changeset
|
8975 |
21514 | 8976 void |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
8977 x_free_frame_resources (f) |
771 | 8978 struct frame *f; |
286 | 8979 { |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
8980 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8981 Lisp_Object bar; |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8982 struct scroll_bar *b; |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
8983 |
286 | 8984 BLOCK_INPUT; |
1810
bf618128d973
* xterm.c (x_scrollbar_create): Set the scrollbars to use
Jim Blandy <jimb@redhat.com>
parents:
1803
diff
changeset
|
8985 |
14489
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
8986 /* If a display connection is dead, don't try sending more |
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
8987 commands to the X server. */ |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
8988 if (dpyinfo->display) |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
8989 { |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
8990 if (f->output_data.x->icon_desc) |
14489
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
8991 XDestroyWindow (FRAME_X_DISPLAY (f), f->output_data.x->icon_desc); |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8992 |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8993 #ifdef USE_X_TOOLKIT |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8994 /* Explicitly destroy the scroll bars of the frame. Without |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8995 this, we get "BadDrawable" errors from the toolkit later on, |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8996 presumably from expose events generated for the disappearing |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8997 toolkit scroll bars. */ |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8998 for (bar = FRAME_SCROLL_BARS (f); !NILP (bar); bar = b->next) |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
8999 { |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9000 b = XSCROLL_BAR (bar); |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9001 x_scroll_bar_remove (b); |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9002 } |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9003 #endif |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9004 |
14830
34db919835d3
(x_destroy_window) [HAVE_X_I18N]: Free xic and xim of frame.
Richard M. Stallman <rms@gnu.org>
parents:
14826
diff
changeset
|
9005 #ifdef HAVE_X_I18N |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
9006 if (FRAME_XIC (f)) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
9007 free_frame_xic (f); |
14830
34db919835d3
(x_destroy_window) [HAVE_X_I18N]: Free xic and xim of frame.
Richard M. Stallman <rms@gnu.org>
parents:
14826
diff
changeset
|
9008 #endif |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9009 |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
9010 #ifdef USE_X_TOOLKIT |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9011 if (f->output_data.x->widget) |
37212
5c27e50f91d1
(x_free_frame_resources) [USE_X_TOOLKIT]: Set
Gerd Moellmann <gerd@gnu.org>
parents:
37153
diff
changeset
|
9012 { |
5c27e50f91d1
(x_free_frame_resources) [USE_X_TOOLKIT]: Set
Gerd Moellmann <gerd@gnu.org>
parents:
37153
diff
changeset
|
9013 XtDestroyWidget (f->output_data.x->widget); |
5c27e50f91d1
(x_free_frame_resources) [USE_X_TOOLKIT]: Set
Gerd Moellmann <gerd@gnu.org>
parents:
37153
diff
changeset
|
9014 f->output_data.x->widget = NULL; |
5c27e50f91d1
(x_free_frame_resources) [USE_X_TOOLKIT]: Set
Gerd Moellmann <gerd@gnu.org>
parents:
37153
diff
changeset
|
9015 } |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9016 /* Tooltips don't have widgets, only a simple X window, even if |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9017 we are using a toolkit. */ |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9018 else if (FRAME_X_WINDOW (f)) |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9019 XDestroyWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f)); |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9020 |
14489
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
9021 free_frame_menubar (f); |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9022 #else /* !USE_X_TOOLKIT */ |
49322 | 9023 |
9024 #ifdef USE_GTK | |
9025 /* In the GTK version, tooltips are normal X | |
9026 frames. We must check and free both types. */ | |
9027 if (FRAME_GTK_OUTER_WIDGET (f)) | |
9028 { | |
9029 gtk_widget_destroy (FRAME_GTK_OUTER_WIDGET (f)); | |
9030 FRAME_X_WINDOW (f) = 0; /* Set to avoid XDestroyWindow below */ | |
9031 FRAME_GTK_OUTER_WIDGET (f) = 0; | |
9032 } | |
9033 #endif /* USE_GTK */ | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
9034 |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9035 if (FRAME_X_WINDOW (f)) |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9036 XDestroyWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f)); |
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9037 #endif /* !USE_X_TOOLKIT */ |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
9038 |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9039 unload_color (f, f->output_data.x->foreground_pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9040 unload_color (f, f->output_data.x->background_pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9041 unload_color (f, f->output_data.x->cursor_pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9042 unload_color (f, f->output_data.x->cursor_foreground_pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9043 unload_color (f, f->output_data.x->border_pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9044 unload_color (f, f->output_data.x->mouse_pixel); |
41837
ca8e9acfffca
(x_free_frame_resources) [USE_X_TOOLKIT]: Remove all the
Eli Zaretskii <eliz@gnu.org>
parents:
41791
diff
changeset
|
9045 |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9046 if (f->output_data.x->scroll_bar_background_pixel != -1) |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9047 unload_color (f, f->output_data.x->scroll_bar_background_pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9048 if (f->output_data.x->scroll_bar_foreground_pixel != -1) |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9049 unload_color (f, f->output_data.x->scroll_bar_foreground_pixel); |
39618
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9050 #ifdef USE_TOOLKIT_SCROLL_BARS |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9051 /* Scrollbar shadow colors. */ |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9052 if (f->output_data.x->scroll_bar_top_shadow_pixel != -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9053 unload_color (f, f->output_data.x->scroll_bar_top_shadow_pixel); |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9054 if (f->output_data.x->scroll_bar_bottom_shadow_pixel != -1) |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9055 unload_color (f, f->output_data.x->scroll_bar_bottom_shadow_pixel); |
6d60a3a33839
(x_create_toolkit_scroll_bar): Try to allocate colors for the shadows,
Miles Bader <miles@gnu.org>
parents:
39586
diff
changeset
|
9056 #endif /* USE_TOOLKIT_SCROLL_BARS */ |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9057 if (f->output_data.x->white_relief.allocated_p) |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9058 unload_color (f, f->output_data.x->white_relief.pixel); |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9059 if (f->output_data.x->black_relief.allocated_p) |
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9060 unload_color (f, f->output_data.x->black_relief.pixel); |
34318
d302f6935ff8
(x_destroy_window): Call x_free_gcs so that
Gerd Moellmann <gerd@gnu.org>
parents:
34250
diff
changeset
|
9061 |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9062 if (FRAME_FACE_CACHE (f)) |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9063 free_frame_faces (f); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9064 |
34318
d302f6935ff8
(x_destroy_window): Call x_free_gcs so that
Gerd Moellmann <gerd@gnu.org>
parents:
34250
diff
changeset
|
9065 x_free_gcs (f); |
14489
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
9066 XFlush (FRAME_X_DISPLAY (f)); |
9bc700f13f97
(x_connection_signal): Call x_connection_closed properly.
Richard M. Stallman <rms@gnu.org>
parents:
14411
diff
changeset
|
9067 } |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
9068 |
17575 | 9069 if (f->output_data.x->saved_menu_event) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9070 xfree (f->output_data.x->saved_menu_event); |
17574
7fe6de4949e4
(x_destroy_window): Free saved_menu_event, if any.
Richard M. Stallman <rms@gnu.org>
parents:
17519
diff
changeset
|
9071 |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9072 xfree (f->output_data.x); |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9073 f->output_data.x = NULL; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9074 |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
9075 if (f == dpyinfo->x_focus_frame) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
9076 dpyinfo->x_focus_frame = 0; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
9077 if (f == dpyinfo->x_focus_event_frame) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
9078 dpyinfo->x_focus_event_frame = 0; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
9079 if (f == dpyinfo->x_highlight_frame) |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
9080 dpyinfo->x_highlight_frame = 0; |
1810
bf618128d973
* xterm.c (x_scrollbar_create): Set the scrollbars to use
Jim Blandy <jimb@redhat.com>
parents:
1803
diff
changeset
|
9081 |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
9082 if (f == dpyinfo->mouse_face_mouse_frame) |
6934
e0ab4f59004e
(dumpglyphs): When HL=2, check explicitly for using
Richard M. Stallman <rms@gnu.org>
parents:
6883
diff
changeset
|
9083 { |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
9084 dpyinfo->mouse_face_beg_row |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
9085 = dpyinfo->mouse_face_beg_col = -1; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
9086 dpyinfo->mouse_face_end_row |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
9087 = dpyinfo->mouse_face_end_col = -1; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
9088 dpyinfo->mouse_face_window = Qnil; |
21017
1ecfba12016a
(XTframe_up_to_date): Check that mouse_face_mouse_frame
Richard M. Stallman <rms@gnu.org>
parents:
20632
diff
changeset
|
9089 dpyinfo->mouse_face_deferred_gc = 0; |
1ecfba12016a
(XTframe_up_to_date): Check that mouse_face_mouse_frame
Richard M. Stallman <rms@gnu.org>
parents:
20632
diff
changeset
|
9090 dpyinfo->mouse_face_mouse_frame = 0; |
6934
e0ab4f59004e
(dumpglyphs): When HL=2, check explicitly for using
Richard M. Stallman <rms@gnu.org>
parents:
6883
diff
changeset
|
9091 } |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9092 |
1810
bf618128d973
* xterm.c (x_scrollbar_create): Set the scrollbars to use
Jim Blandy <jimb@redhat.com>
parents:
1803
diff
changeset
|
9093 UNBLOCK_INPUT; |
286 | 9094 } |
34526
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9095 |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9096 |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9097 /* Destroy the X window of frame F. */ |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9098 |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9099 void |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9100 x_destroy_window (f) |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9101 struct frame *f; |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9102 { |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9103 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9104 |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9105 /* If a display connection is dead, don't try sending more |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9106 commands to the X server. */ |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9107 if (dpyinfo->display != 0) |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9108 x_free_frame_resources (f); |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9109 |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9110 dpyinfo->reference_count--; |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9111 } |
0da25e792d3e
(x_free_frame_resources): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
34511
diff
changeset
|
9112 |
286 | 9113 |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
9114 /* Setting window manager hints. */ |
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
9115 |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9116 /* Set the normal size hints for the window manager, for frame F. |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9117 FLAGS is the flags word to use--or 0 meaning preserve the flags |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9118 that the window now has. |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9119 If USER_POSITION is nonzero, we set the USPosition |
49322 | 9120 flag (this is useful when FLAGS is 0). |
9121 The GTK version is in gtkutils.c */ | |
9122 | |
9123 #ifndef USE_GTK | |
21514 | 9124 void |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9125 x_wm_set_size_hint (f, flags, user_position) |
771 | 9126 struct frame *f; |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9127 long flags; |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9128 int user_position; |
286 | 9129 { |
9130 XSizeHints size_hints; | |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
9131 |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
9132 #ifdef USE_X_TOOLKIT |
6631
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9133 Arg al[2]; |
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9134 int ac = 0; |
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9135 Dimension widget_width, widget_height; |
49322 | 9136 #endif |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
9137 |
49322 | 9138 Window window = FRAME_OUTER_WINDOW (f); |
286 | 9139 |
7187
ca0102511d80
(x_wm_set_size_hint): Don't set PMaxSize.
Richard M. Stallman <rms@gnu.org>
parents:
7169
diff
changeset
|
9140 /* Setting PMaxSize caused various problems. */ |
ca0102511d80
(x_wm_set_size_hint): Don't set PMaxSize.
Richard M. Stallman <rms@gnu.org>
parents:
7169
diff
changeset
|
9141 size_hints.flags = PResizeInc | PMinSize /* | PMaxSize */; |
286 | 9142 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9143 size_hints.x = f->left_pos; |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9144 size_hints.y = f->top_pos; |
7123
4f2c825cc0f8
(x_wm_set_size_hint): Do set max_height, max_width, and PMaxSize flag.
Richard M. Stallman <rms@gnu.org>
parents:
7122
diff
changeset
|
9145 |
6631
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9146 #ifdef USE_X_TOOLKIT |
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9147 XtSetArg (al[ac], XtNwidth, &widget_width); ac++; |
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9148 XtSetArg (al[ac], XtNheight, &widget_height); ac++; |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9149 XtGetValues (f->output_data.x->widget, al, ac); |
6631
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9150 size_hints.height = widget_height; |
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9151 size_hints.width = widget_width; |
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9152 #else /* not USE_X_TOOLKIT */ |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9153 size_hints.height = FRAME_PIXEL_HEIGHT (f); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9154 size_hints.width = FRAME_PIXEL_WIDTH (f); |
6631
eea1789dc6fd
(x_wm_set_size_hint): Add USE_X_TOOLKIT conditional and call
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6626
diff
changeset
|
9155 #endif /* not USE_X_TOOLKIT */ |
7123
4f2c825cc0f8
(x_wm_set_size_hint): Do set max_height, max_width, and PMaxSize flag.
Richard M. Stallman <rms@gnu.org>
parents:
7122
diff
changeset
|
9156 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9157 size_hints.width_inc = FRAME_COLUMN_WIDTH (f); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9158 size_hints.height_inc = FRAME_LINE_HEIGHT (f); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
9159 size_hints.max_width |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9160 = FRAME_X_DISPLAY_INFO (f)->width - FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, 0); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
9161 size_hints.max_height |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9162 = FRAME_X_DISPLAY_INFO (f)->height - FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, 0); |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9163 |
12189 | 9164 /* Calculate the base and minimum sizes. |
9165 | |
9166 (When we use the X toolkit, we don't do it here. | |
9167 Instead we copy the values that the widgets are using, below.) */ | |
9168 #ifndef USE_X_TOOLKIT | |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
9169 { |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9170 int base_width, base_height; |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9171 int min_rows = 0, min_cols = 0; |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9172 |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9173 base_width = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, 0); |
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9174 base_height = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, 0); |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9175 |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9176 check_frame_size (f, &min_rows, &min_cols); |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9177 |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9178 /* The window manager uses the base width hints to calculate the |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9179 current number of rows and columns in the frame while |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9180 resizing; min_width and min_height aren't useful for this |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9181 purpose, since they might not give the dimensions for a |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9182 zero-row, zero-column frame. |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
9183 |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9184 We use the base_width and base_height members if we have |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9185 them; otherwise, we set the min_width and min_height members |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9186 to the size for a zero x zero frame. */ |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9187 |
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9188 #ifdef HAVE_X11R4 |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9189 size_hints.flags |= PBaseSize; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9190 size_hints.base_width = base_width; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9191 size_hints.base_height = base_height; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9192 size_hints.min_width = base_width + min_cols * size_hints.width_inc; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9193 size_hints.min_height = base_height + min_rows * size_hints.height_inc; |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9194 #else |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9195 size_hints.min_width = base_width; |
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9196 size_hints.min_height = base_height; |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9197 #endif |
976
cbdfc337ec8f
* xterm.c (x_wm_hints): New variable.
Jim Blandy <jimb@redhat.com>
parents:
786
diff
changeset
|
9198 } |
286 | 9199 |
12189 | 9200 /* If we don't need the old flags, we don't need the old hint at all. */ |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9201 if (flags) |
286 | 9202 { |
12189 | 9203 size_hints.flags |= flags; |
9204 goto no_read; | |
9205 } | |
9206 #endif /* not USE_X_TOOLKIT */ | |
9207 | |
9208 { | |
9209 XSizeHints hints; /* Sometimes I hate X Windows... */ | |
9210 long supplied_return; | |
9211 int value; | |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9212 |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9213 #ifdef HAVE_X11R4 |
12189 | 9214 value = XGetWMNormalHints (FRAME_X_DISPLAY (f), window, &hints, |
9215 &supplied_return); | |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9216 #else |
12189 | 9217 value = XGetNormalHints (FRAME_X_DISPLAY (f), window, &hints); |
9218 #endif | |
9219 | |
9220 #ifdef USE_X_TOOLKIT | |
9221 size_hints.base_height = hints.base_height; | |
9222 size_hints.base_width = hints.base_width; | |
9223 size_hints.min_height = hints.min_height; | |
9224 size_hints.min_width = hints.min_width; | |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9225 #endif |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
9226 |
12189 | 9227 if (flags) |
9228 size_hints.flags |= flags; | |
9229 else | |
9230 { | |
9231 if (value == 0) | |
9232 hints.flags = 0; | |
9233 if (hints.flags & PSize) | |
9234 size_hints.flags |= PSize; | |
9235 if (hints.flags & PPosition) | |
9236 size_hints.flags |= PPosition; | |
9237 if (hints.flags & USPosition) | |
9238 size_hints.flags |= USPosition; | |
9239 if (hints.flags & USSize) | |
9240 size_hints.flags |= USSize; | |
9241 } | |
9242 } | |
9243 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9244 #ifndef USE_X_TOOLKIT |
12189 | 9245 no_read: |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9246 #endif |
6883
77ceede38423
(x_make_frame_visible): Don't call XMapSubwindows.
Richard M. Stallman <rms@gnu.org>
parents:
6791
diff
changeset
|
9247 |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9248 #ifdef PWinGravity |
51213
791af636af55
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51129
diff
changeset
|
9249 size_hints.win_gravity = f->win_gravity; |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9250 size_hints.flags |= PWinGravity; |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9251 |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9252 if (user_position) |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
9253 { |
7210
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9254 size_hints.flags &= ~ PPosition; |
682ff6213c36
(x_wm_set_size_hint): Always set PWinGravity.
Richard M. Stallman <rms@gnu.org>
parents:
7187
diff
changeset
|
9255 size_hints.flags |= USPosition; |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
9256 } |
4777
21ed9c9bb210
(w_wn_set_size_hint): Make recent window gravity addition
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
9257 #endif /* PWinGravity */ |
4630
70247ce8b381
(x_wm_set_size_hint): New args spec_x and spec_y.
Richard M. Stallman <rms@gnu.org>
parents:
4493
diff
changeset
|
9258 |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9259 #ifdef HAVE_X11R4 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
9260 XSetWMNormalHints (FRAME_X_DISPLAY (f), window, &size_hints); |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9261 #else |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
9262 XSetNormalHints (FRAME_X_DISPLAY (f), window, &size_hints); |
1127
cd3d59155bf7
* xterm.c (x_wm_set_size_hint): Set the base_width and base_height
Jim Blandy <jimb@redhat.com>
parents:
1077
diff
changeset
|
9263 #endif |
286 | 9264 } |
49322 | 9265 #endif /* not USE_GTK */ |
286 | 9266 |
9267 /* Used for IconicState or NormalState */ | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9268 |
21514 | 9269 void |
771 | 9270 x_wm_set_window_state (f, state) |
9271 struct frame *f; | |
286 | 9272 int state; |
9273 { | |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
9274 #ifdef USE_X_TOOLKIT |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
9275 Arg al[1]; |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
9276 |
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
9277 XtSetArg (al[0], XtNinitialState, state); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9278 XtSetValues (f->output_data.x->widget, al, 1); |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
9279 #else /* not USE_X_TOOLKIT */ |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
9280 Window window = FRAME_X_WINDOW (f); |
286 | 9281 |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9282 f->output_data.x->wm_hints.flags |= StateHint; |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9283 f->output_data.x->wm_hints.initial_state = state; |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9284 |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9285 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->output_data.x->wm_hints); |
7602
136819b017fc
(x_wm_set_window_state) [USE_X_TOOLKIT]: Use XtSetValues.
Richard M. Stallman <rms@gnu.org>
parents:
7508
diff
changeset
|
9286 #endif /* not USE_X_TOOLKIT */ |
286 | 9287 } |
9288 | |
21514 | 9289 void |
9542
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
9290 x_wm_set_icon_pixmap (f, pixmap_id) |
771 | 9291 struct frame *f; |
9542
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
9292 int pixmap_id; |
286 | 9293 { |
15117
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9294 Pixmap icon_pixmap; |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9295 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9296 #ifndef USE_X_TOOLKIT |
49322 | 9297 Window window = FRAME_OUTER_WINDOW (f); |
7806
ef7a60d59543
(x_wm_set_icon_position, x_wm_set_icon_pixmap):
Richard M. Stallman <rms@gnu.org>
parents:
7801
diff
changeset
|
9298 #endif |
286 | 9299 |
9542
f8b7a65a94bc
(x_bitmap_icon): Allow bitmap to come from file.
Richard M. Stallman <rms@gnu.org>
parents:
9537
diff
changeset
|
9300 if (pixmap_id > 0) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
9301 { |
15117
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9302 icon_pixmap = x_bitmap_pixmap (f, pixmap_id); |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9303 f->output_data.x->wm_hints.icon_pixmap = icon_pixmap; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
9304 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
9305 else |
12966
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9306 { |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9307 /* It seems there is no way to turn off use of an icon pixmap. |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9308 The following line does it, only if no icon has yet been created, |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9309 for some window managers. But with mwm it crashes. |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9310 Some people say it should clear the IconPixmapHint bit in this case, |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9311 but that doesn't work, and the X consortium said it isn't the |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9312 right thing at all. Since there is no way to win, |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9313 best to explicitly give up. */ |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9314 #if 0 |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9315 f->output_data.x->wm_hints.icon_pixmap = None; |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9316 #else |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9317 return; |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9318 #endif |
ce60b1a64399
(x_wm_set_icon_pixmap): If trying to turn off icon pixmap, do nothing.
Richard M. Stallman <rms@gnu.org>
parents:
12771
diff
changeset
|
9319 } |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9320 |
15117
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9321 #ifdef USE_X_TOOLKIT /* same as in x_wm_set_window_state. */ |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9322 |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9323 { |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9324 Arg al[1]; |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9325 XtSetArg (al[0], XtNiconPixmap, icon_pixmap); |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9326 XtSetValues (f->output_data.x->widget, al, 1); |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9327 } |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9328 |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9329 #else /* not USE_X_TOOLKIT */ |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9330 |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9331 f->output_data.x->wm_hints.flags |= IconPixmapHint; |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9332 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->output_data.x->wm_hints); |
15117
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9333 |
21673af29c32
[USE_X_TOOLKIT]: Include X11/Shell.h.
Richard M. Stallman <rms@gnu.org>
parents:
15080
diff
changeset
|
9334 #endif /* not USE_X_TOOLKIT */ |
286 | 9335 } |
9336 | |
21514 | 9337 void |
771 | 9338 x_wm_set_icon_position (f, icon_x, icon_y) |
9339 struct frame *f; | |
286 | 9340 int icon_x, icon_y; |
9341 { | |
49644
834df49192b0
Use FRAME_OUTER_WINDOW instead of ifdef X_TOOLKIT/else/endif
Jan Djärv <jan.h.d@swipnet.se>
parents:
49600
diff
changeset
|
9342 Window window = FRAME_OUTER_WINDOW (f); |
286 | 9343 |
12667
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9344 f->output_data.x->wm_hints.flags |= IconPositionHint; |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9345 f->output_data.x->wm_hints.icon_x = icon_x; |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9346 f->output_data.x->wm_hints.icon_y = icon_y; |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9347 |
a3466dad7d6d
Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents:
12657
diff
changeset
|
9348 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->output_data.x->wm_hints); |
286 | 9349 } |
9350 | |
9351 | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9352 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9353 Fonts |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9354 ***********************************************************************/ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9355 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9356 /* Return a pointer to struct font_info of font FONT_IDX of frame F. */ |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9357 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9358 struct font_info * |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9359 x_get_font_info (f, font_idx) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9360 FRAME_PTR f; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9361 int font_idx; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9362 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9363 return (FRAME_X_FONT_TABLE (f) + font_idx); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9364 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9365 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9366 |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9367 /* Return a list of names of available fonts matching PATTERN on frame F. |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9368 |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9369 If SIZE is > 0, it is the size (maximum bounds width) of fonts |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9370 to be listed. |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9371 |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9372 SIZE < 0 means include scalable fonts. |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9373 |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9374 Frame F null means we have not yet created any frame on X, and |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9375 consult the first display in x_display_list. MAXNAMES sets a limit |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9376 on how many fonts to match. */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9377 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9378 Lisp_Object |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9379 x_list_fonts (f, pattern, size, maxnames) |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9380 struct frame *f; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9381 Lisp_Object pattern; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9382 int size; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9383 int maxnames; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9384 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9385 Lisp_Object list = Qnil, patterns, newlist = Qnil, key = Qnil; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9386 Lisp_Object tem, second_best; |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9387 struct x_display_info *dpyinfo |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9388 = f ? FRAME_X_DISPLAY_INFO (f) : x_display_list; |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9389 Display *dpy = dpyinfo->display; |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9390 int try_XLoadQueryFont = 0; |
24633
c7d905dca6ba
(x_list_fonts): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents:
24618
diff
changeset
|
9391 int count; |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9392 int allow_scalable_fonts_p = 0; |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9393 |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9394 if (size < 0) |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9395 { |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9396 allow_scalable_fonts_p = 1; |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9397 size = 0; |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9398 } |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9399 |
19447
34099ec680df
(x_list_fonts): Adjusted for the name change of
Kenichi Handa <handa@m17n.org>
parents:
19276
diff
changeset
|
9400 patterns = Fassoc (pattern, Valternate_fontname_alist); |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9401 if (NILP (patterns)) |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9402 patterns = Fcons (pattern, Qnil); |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9403 |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9404 if (maxnames == 1 && !size) |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9405 /* We can return any single font matching PATTERN. */ |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9406 try_XLoadQueryFont = 1; |
19062
9cc02044117d
(x_list_fonts): Request at least 10 fonts by XListFonts.
Kenichi Handa <handa@m17n.org>
parents:
19060
diff
changeset
|
9407 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9408 for (; CONSP (patterns); patterns = XCDR (patterns)) |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9409 { |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9410 int num_fonts; |
29600
a377acd06ea8
(x_frame_of_widget): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
29536
diff
changeset
|
9411 char **names = NULL; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9412 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9413 pattern = XCAR (patterns); |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9414 /* See if we cached the result for this particular query. |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9415 The cache is an alist of the form: |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9416 ((((PATTERN . MAXNAMES) . SCALABLE) (FONTNAME . WIDTH) ...) ...) */ |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9417 tem = XCDR (dpyinfo->name_list_element); |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9418 key = Fcons (Fcons (pattern, make_number (maxnames)), |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9419 allow_scalable_fonts_p ? Qt : Qnil); |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9420 list = Fassoc (key, tem); |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9421 if (!NILP (list)) |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9422 { |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9423 list = Fcdr_safe (list); |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9424 /* We have a cashed list. Don't have to get the list again. */ |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9425 goto label_cached; |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9426 } |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9427 |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9428 /* At first, put PATTERN in the cache. */ |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9429 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9430 BLOCK_INPUT; |
24618
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9431 count = x_catch_errors (dpy); |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9432 |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9433 if (try_XLoadQueryFont) |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9434 { |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9435 XFontStruct *font; |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9436 unsigned long value; |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9437 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
9438 font = XLoadQueryFont (dpy, SDATA (pattern)); |
24618
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9439 if (x_had_errors_p (dpy)) |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9440 { |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9441 /* This error is perhaps due to insufficient memory on X |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9442 server. Let's just ignore it. */ |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9443 font = NULL; |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9444 x_clear_errors (dpy); |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9445 } |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9446 |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9447 if (font |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9448 && XGetFontProperty (font, XA_FONT, &value)) |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9449 { |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9450 char *name = (char *) XGetAtomName (dpy, (Atom) value); |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9451 int len = strlen (name); |
22530
6d2e22a16952
(x_list_fonts): Keep alloca usage simple.
Karl Heuer <kwzh@gnu.org>
parents:
22522
diff
changeset
|
9452 char *tmp; |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9453 |
23095
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9454 /* If DXPC (a Differential X Protocol Compressor) |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9455 Ver.3.7 is running, XGetAtomName will return null |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9456 string. We must avoid such a name. */ |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9457 if (len == 0) |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9458 try_XLoadQueryFont = 0; |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9459 else |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9460 { |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9461 num_fonts = 1; |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9462 names = (char **) alloca (sizeof (char *)); |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9463 /* Some systems only allow alloca assigned to a |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9464 simple var. */ |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9465 tmp = (char *) alloca (len + 1); names[0] = tmp; |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9466 bcopy (name, names[0], len + 1); |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9467 XFree (name); |
4e83e072cd97
(x_list_fonts): Work-around for the case XGetAtomName
Kenichi Handa <handa@m17n.org>
parents:
23037
diff
changeset
|
9468 } |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9469 } |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9470 else |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9471 try_XLoadQueryFont = 0; |
22943
5493321d4526
(x_list_fonts): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22907
diff
changeset
|
9472 |
5493321d4526
(x_list_fonts): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22907
diff
changeset
|
9473 if (font) |
5493321d4526
(x_list_fonts): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
22907
diff
changeset
|
9474 XFreeFont (dpy, font); |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9475 } |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9476 |
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9477 if (!try_XLoadQueryFont) |
24618
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9478 { |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9479 /* We try at least 10 fonts because XListFonts will return |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9480 auto-scaled fonts at the head. */ |
49859
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9481 if (maxnames < 0) |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9482 { |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9483 int limit; |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9484 |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9485 for (limit = 500;;) |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9486 { |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9487 names = XListFonts (dpy, SDATA (pattern), limit, &num_fonts); |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9488 if (num_fonts == limit) |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9489 { |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9490 BLOCK_INPUT; |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9491 XFreeFontNames (names); |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9492 UNBLOCK_INPUT; |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9493 limit *= 2; |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9494 } |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9495 else |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9496 break; |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9497 } |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9498 } |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9499 else |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9500 names = XListFonts (dpy, SDATA (pattern), max (maxnames, 10), |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9501 &num_fonts); |
c6bacc76cfb6
* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents:
49651
diff
changeset
|
9502 |
24618
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9503 if (x_had_errors_p (dpy)) |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9504 { |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9505 /* This error is perhaps due to insufficient memory on X |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9506 server. Let's just ignore it. */ |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9507 names = NULL; |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9508 x_clear_errors (dpy); |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9509 } |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9510 } |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9511 |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9512 x_uncatch_errors (dpy, count); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9513 UNBLOCK_INPUT; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9514 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9515 if (names) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9516 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9517 int i; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9518 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9519 /* Make a list of all the fonts we got back. |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9520 Store that in the font cache for the display. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9521 for (i = 0; i < num_fonts; i++) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9522 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9523 int width = 0; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9524 char *p = names[i]; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9525 int average_width = -1, dashes = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9526 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9527 /* Count the number of dashes in NAMES[I]. If there are |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9528 14 dashes, and the field value following 12th dash |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9529 (AVERAGE_WIDTH) is 0, this is a auto-scaled font which |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9530 is usually too ugly to be used for editing. Let's |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9531 ignore it. */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9532 while (*p) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9533 if (*p++ == '-') |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9534 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9535 dashes++; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9536 if (dashes == 7) /* PIXEL_SIZE field */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9537 width = atoi (p); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9538 else if (dashes == 12) /* AVERAGE_WIDTH field */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9539 average_width = atoi (p); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9540 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9541 |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9542 if (allow_scalable_fonts_p |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9543 || dashes < 14 || average_width != 0) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9544 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9545 tem = build_string (names[i]); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9546 if (NILP (Fassoc (tem, list))) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9547 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9548 if (STRINGP (Vx_pixel_size_width_font_regexp) |
18191
3c353983bba9
(x_list_fonts): fast_c_string_match_ignore_case renamed.
Richard M. Stallman <rms@gnu.org>
parents:
18188
diff
changeset
|
9549 && ((fast_c_string_match_ignore_case |
3c353983bba9
(x_list_fonts): fast_c_string_match_ignore_case renamed.
Richard M. Stallman <rms@gnu.org>
parents:
18188
diff
changeset
|
9550 (Vx_pixel_size_width_font_regexp, names[i])) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9551 >= 0)) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9552 /* We can set the value of PIXEL_SIZE to the |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9553 width of this font. */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9554 list = Fcons (Fcons (tem, make_number (width)), list); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9555 else |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9556 /* For the moment, width is not known. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9557 list = Fcons (Fcons (tem, Qnil), list); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9558 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9559 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9560 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9561 |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9562 if (!try_XLoadQueryFont) |
38246
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9563 { |
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9564 BLOCK_INPUT; |
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9565 XFreeFontNames (names); |
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9566 UNBLOCK_INPUT; |
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9567 } |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9568 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9569 |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9570 /* Now store the result in the cache. */ |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9571 XSETCDR (dpyinfo->name_list_element, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9572 Fcons (Fcons (key, list), XCDR (dpyinfo->name_list_element))); |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9573 |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9574 label_cached: |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9575 if (NILP (list)) continue; /* Try the remaining alternatives. */ |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9576 |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9577 newlist = second_best = Qnil; |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9578 /* Make a list of the fonts that have the right width. */ |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9579 for (; CONSP (list); list = XCDR (list)) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9580 { |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9581 int found_size; |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9582 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9583 tem = XCAR (list); |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9584 |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9585 if (!CONSP (tem) || NILP (XCAR (tem))) |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9586 continue; |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9587 if (!size) |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9588 { |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9589 newlist = Fcons (XCAR (tem), newlist); |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9590 continue; |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9591 } |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9592 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9593 if (!INTEGERP (XCDR (tem))) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9594 { |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9595 /* Since we have not yet known the size of this font, we |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9596 must try slow function call XLoadQueryFont. */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9597 XFontStruct *thisinfo; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9598 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9599 BLOCK_INPUT; |
24618
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9600 count = x_catch_errors (dpy); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9601 thisinfo = XLoadQueryFont (dpy, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
9602 SDATA (XCAR (tem))); |
24618
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9603 if (x_had_errors_p (dpy)) |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9604 { |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9605 /* This error is perhaps due to insufficient memory on X |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9606 server. Let's just ignore it. */ |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9607 thisinfo = NULL; |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9608 x_clear_errors (dpy); |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9609 } |
b18f51ec1b6c
Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24561
diff
changeset
|
9610 x_uncatch_errors (dpy, count); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9611 UNBLOCK_INPUT; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9612 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9613 if (thisinfo) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9614 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9615 XSETCDR (tem, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9616 (thisinfo->min_bounds.width == 0 |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9617 ? make_number (0) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9618 : make_number (thisinfo->max_bounds.width))); |
38246
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9619 BLOCK_INPUT; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9620 XFreeFont (dpy, thisinfo); |
38246
b93fb0eb254d
(x_list_fonts): Make sure XFreeFont is called
Gerd Moellmann <gerd@gnu.org>
parents:
38094
diff
changeset
|
9621 UNBLOCK_INPUT; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9622 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9623 else |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9624 /* For unknown reason, the previous call of XListFont had |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9625 returned a font which can't be opened. Record the size |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9626 as 0 not to try to open it again. */ |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9627 XSETCDR (tem, make_number (0)); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9628 } |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9629 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9630 found_size = XINT (XCDR (tem)); |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9631 if (found_size == size) |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9632 newlist = Fcons (XCAR (tem), newlist); |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9633 else if (found_size > 0) |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9634 { |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9635 if (NILP (second_best)) |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9636 second_best = tem; |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9637 else if (found_size < size) |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9638 { |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9639 if (XINT (XCDR (second_best)) > size |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9640 || XINT (XCDR (second_best)) < found_size) |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9641 second_best = tem; |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9642 } |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9643 else |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9644 { |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9645 if (XINT (XCDR (second_best)) > size |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9646 && XINT (XCDR (second_best)) > found_size) |
19060
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9647 second_best = tem; |
7b362a9bf8e9
(x_list_fonts): Reject a font whose min_bounds.width is 0.
Richard M. Stallman <rms@gnu.org>
parents:
19027
diff
changeset
|
9648 } |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9649 } |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9650 } |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9651 if (!NILP (newlist)) |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9652 break; |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9653 else if (!NILP (second_best)) |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9654 { |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9655 newlist = Fcons (XCAR (second_best), Qnil); |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9656 break; |
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9657 } |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9658 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9659 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9660 return newlist; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9661 } |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9662 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9663 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9664 #if GLYPH_DEBUG |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9665 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9666 /* Check that FONT is valid on frame F. It is if it can be found in F's |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9667 font table. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9668 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9669 static void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9670 x_check_font (f, font) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9671 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9672 XFontStruct *font; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9673 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9674 int i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9675 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9676 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9677 xassert (font != NULL); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9678 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9679 for (i = 0; i < dpyinfo->n_fonts; i++) |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9680 if (dpyinfo->font_table[i].name |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9681 && font == dpyinfo->font_table[i].font) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9682 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9683 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9684 xassert (i < dpyinfo->n_fonts); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9685 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9686 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9687 #endif /* GLYPH_DEBUG != 0 */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9688 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9689 /* Set *W to the minimum width, *H to the minimum font height of FONT. |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9690 Note: There are (broken) X fonts out there with invalid XFontStruct |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9691 min_bounds contents. For example, handa@etl.go.jp reports that |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9692 "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1" fonts |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9693 have font->min_bounds.width == 0. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9694 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9695 static INLINE void |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9696 x_font_min_bounds (font, w, h) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9697 XFontStruct *font; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9698 int *w, *h; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9699 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9700 *h = FONT_HEIGHT (font); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9701 *w = font->min_bounds.width; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9702 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9703 /* Try to handle the case where FONT->min_bounds has invalid |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9704 contents. Since the only font known to have invalid min_bounds |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9705 is fixed-width, use max_bounds if min_bounds seems to be invalid. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9706 if (*w <= 0) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9707 *w = font->max_bounds.width; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9708 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9709 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9710 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9711 /* Compute the smallest character width and smallest font height over |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9712 all fonts available on frame F. Set the members smallest_char_width |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9713 and smallest_font_height in F's x_display_info structure to |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9714 the values computed. Value is non-zero if smallest_font_height or |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9715 smallest_char_width become smaller than they were before. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9716 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9717 static int |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9718 x_compute_min_glyph_bounds (f) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9719 struct frame *f; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9720 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9721 int i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9722 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9723 XFontStruct *font; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9724 int old_width = dpyinfo->smallest_char_width; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9725 int old_height = dpyinfo->smallest_font_height; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9726 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9727 dpyinfo->smallest_font_height = 100000; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9728 dpyinfo->smallest_char_width = 100000; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9729 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9730 for (i = 0; i < dpyinfo->n_fonts; ++i) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9731 if (dpyinfo->font_table[i].name) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9732 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9733 struct font_info *fontp = dpyinfo->font_table + i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9734 int w, h; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9735 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9736 font = (XFontStruct *) fontp->font; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9737 xassert (font != (XFontStruct *) ~0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9738 x_font_min_bounds (font, &w, &h); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9739 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9740 dpyinfo->smallest_font_height = min (dpyinfo->smallest_font_height, h); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9741 dpyinfo->smallest_char_width = min (dpyinfo->smallest_char_width, w); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9742 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9743 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9744 xassert (dpyinfo->smallest_char_width > 0 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9745 && dpyinfo->smallest_font_height > 0); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9746 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9747 return (dpyinfo->n_fonts == 1 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9748 || dpyinfo->smallest_char_width < old_width |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9749 || dpyinfo->smallest_font_height < old_height); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9750 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9751 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9752 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9753 /* Load font named FONTNAME of the size SIZE for frame F, and return a |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9754 pointer to the structure font_info while allocating it dynamically. |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9755 If SIZE is 0, load any size of font. |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9756 If loading is failed, return NULL. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9757 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9758 struct font_info * |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9759 x_load_font (f, fontname, size) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9760 struct frame *f; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9761 register char *fontname; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9762 int size; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9763 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9764 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9765 Lisp_Object font_names; |
24484
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9766 int count; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9767 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9768 /* Get a list of all the fonts that match this name. Once we |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9769 have a list of matching fonts, we compare them against the fonts |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9770 we already have by comparing names. */ |
22503
104e277d77d3
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
Kenichi Handa <handa@m17n.org>
parents:
22400
diff
changeset
|
9771 font_names = x_list_fonts (f, build_string (fontname), size, 1); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9772 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9773 if (!NILP (font_names)) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9774 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9775 Lisp_Object tail; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9776 int i; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9777 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9778 for (i = 0; i < dpyinfo->n_fonts; i++) |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9779 for (tail = font_names; CONSP (tail); tail = XCDR (tail)) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9780 if (dpyinfo->font_table[i].name |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9781 && (!strcmp (dpyinfo->font_table[i].name, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
9782 SDATA (XCAR (tail))) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9783 || !strcmp (dpyinfo->font_table[i].full_name, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
9784 SDATA (XCAR (tail))))) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9785 return (dpyinfo->font_table + i); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9786 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9787 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9788 /* Load the font and add it to the table. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9789 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9790 char *full_name; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9791 XFontStruct *font; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9792 struct font_info *fontp; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9793 unsigned long value; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9794 int i; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9795 |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9796 /* If we have found fonts by x_list_font, load one of them. If |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9797 not, we still try to load a font by the name given as FONTNAME |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9798 because XListFonts (called in x_list_font) of some X server has |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9799 a bug of not finding a font even if the font surely exists and |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9800 is loadable by XLoadQueryFont. */ |
23162
b36799069143
(x_load_font): If SIZE is 0, don't use a name x_list_font returns.
Kenichi Handa <handa@m17n.org>
parents:
23151
diff
changeset
|
9801 if (size > 0 && !NILP (font_names)) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
9802 fontname = (char *) SDATA (XCAR (font_names)); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9803 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9804 BLOCK_INPUT; |
24484
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9805 count = x_catch_errors (FRAME_X_DISPLAY (f)); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9806 font = (XFontStruct *) XLoadQueryFont (FRAME_X_DISPLAY (f), fontname); |
24484
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9807 if (x_had_errors_p (FRAME_X_DISPLAY (f))) |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9808 { |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9809 /* This error is perhaps due to insufficient memory on X |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9810 server. Let's just ignore it. */ |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9811 font = NULL; |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9812 x_clear_errors (FRAME_X_DISPLAY (f)); |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9813 } |
d4ee4399e999
(x_list_fonts): Trap X errors so that Emacs doesn't die
Kenichi Handa <handa@m17n.org>
parents:
24224
diff
changeset
|
9814 x_uncatch_errors (FRAME_X_DISPLAY (f), count); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9815 UNBLOCK_INPUT; |
17194
ae76b2a59dcc
(dumpglyphs): Set a clipping region when we draw glyphs
Kenichi Handa <handa@m17n.org>
parents:
17178
diff
changeset
|
9816 if (!font) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9817 return NULL; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9818 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9819 /* Find a free slot in the font table. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9820 for (i = 0; i < dpyinfo->n_fonts; ++i) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9821 if (dpyinfo->font_table[i].name == NULL) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9822 break; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9823 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9824 /* If no free slot found, maybe enlarge the font table. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9825 if (i == dpyinfo->n_fonts |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9826 && dpyinfo->n_fonts == dpyinfo->font_table_size) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9827 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9828 int sz; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9829 dpyinfo->font_table_size = max (16, 2 * dpyinfo->font_table_size); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9830 sz = dpyinfo->font_table_size * sizeof *dpyinfo->font_table; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9831 dpyinfo->font_table |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9832 = (struct font_info *) xrealloc (dpyinfo->font_table, sz); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9833 } |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9834 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9835 fontp = dpyinfo->font_table + i; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9836 if (i == dpyinfo->n_fonts) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9837 ++dpyinfo->n_fonts; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9838 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9839 /* Now fill in the slots of *FONTP. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9840 BLOCK_INPUT; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9841 fontp->font = font; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9842 fontp->font_idx = i; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9843 fontp->name = (char *) xmalloc (strlen (fontname) + 1); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9844 bcopy (fontname, fontp->name, strlen (fontname) + 1); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9845 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9846 /* Try to get the full name of FONT. Put it in FULL_NAME. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9847 full_name = 0; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9848 if (XGetFontProperty (font, XA_FONT, &value)) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9849 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9850 char *name = (char *) XGetAtomName (FRAME_X_DISPLAY (f), (Atom) value); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9851 char *p = name; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9852 int dashes = 0; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9853 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9854 /* Count the number of dashes in the "full name". |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9855 If it is too few, this isn't really the font's full name, |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9856 so don't use it. |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9857 In X11R4, the fonts did not come with their canonical names |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9858 stored in them. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9859 while (*p) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9860 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9861 if (*p == '-') |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9862 dashes++; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9863 p++; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9864 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9865 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9866 if (dashes >= 13) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9867 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9868 full_name = (char *) xmalloc (p - name + 1); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9869 bcopy (name, full_name, p - name + 1); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9870 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9871 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9872 XFree (name); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9873 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
9874 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9875 if (full_name != 0) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9876 fontp->full_name = full_name; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9877 else |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9878 fontp->full_name = fontp->name; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9879 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9880 fontp->size = font->max_bounds.width; |
24224
4001ff593a99
(x_load_font): For the height of font, if normarl ascent and
Kenichi Handa <handa@m17n.org>
parents:
24223
diff
changeset
|
9881 fontp->height = FONT_HEIGHT (font); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9882 |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9883 if (NILP (font_names)) |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9884 { |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9885 /* We come here because of a bug of XListFonts mentioned at |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9886 the head of this block. Let's store this information in |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9887 the cache for x_list_fonts. */ |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9888 Lisp_Object lispy_name = build_string (fontname); |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9889 Lisp_Object lispy_full_name = build_string (fontp->full_name); |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9890 Lisp_Object key = Fcons (Fcons (lispy_name, make_number (256)), |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9891 Qnil); |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9892 |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9893 XSETCDR (dpyinfo->name_list_element, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9894 Fcons (Fcons (key, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9895 Fcons (Fcons (lispy_full_name, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9896 make_number (fontp->size)), |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9897 Qnil)), |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9898 XCDR (dpyinfo->name_list_element))); |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9899 if (full_name) |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9900 { |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9901 key = Fcons (Fcons (lispy_full_name, make_number (256)), |
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9902 Qnil); |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9903 XSETCDR (dpyinfo->name_list_element, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9904 Fcons (Fcons (key, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9905 Fcons (Fcons (lispy_full_name, |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9906 make_number (fontp->size)), |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9907 Qnil)), |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
9908 XCDR (dpyinfo->name_list_element))); |
35367
68000d773920
(x_list_fonts): Allow scalable fonts if SIZE is < 0,
Gerd Moellmann <gerd@gnu.org>
parents:
35315
diff
changeset
|
9909 } |
18347
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9910 } |
b7024f44f5d2
(dumpglyphs): Use FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents:
18191
diff
changeset
|
9911 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9912 /* The slot `encoding' specifies how to map a character |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9913 code-points (0x20..0x7F or 0x2020..0x7F7F) of each charset to |
28231
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
9914 the font code-points (0:0x20..0x7F, 1:0xA0..0xFF), or |
076ed36c3101
Include fontset.h after dispextern.h.
Kenichi Handa <handa@m17n.org>
parents:
28183
diff
changeset
|
9915 (0:0x2020..0x7F7F, 1:0xA0A0..0xFFFF, 3:0x20A0..0x7FFF, |
18057
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9916 2:0xA020..0xFF7F). For the moment, we don't know which charset |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9917 uses this font. So, we set information in fontp->encoding[1] |
18057
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9918 which is never used by any charset. If mapping can't be |
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9919 decided, set FONT_ENCODING_NOT_DECIDED. */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9920 fontp->encoding[1] |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9921 = (font->max_byte1 == 0 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9922 /* 1-byte font */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9923 ? (font->min_char_or_byte2 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9924 ? (font->max_char_or_byte2 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9925 ? 0 /* 0x20..0x7F */ |
18057
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9926 : FONT_ENCODING_NOT_DECIDED) /* 0x20..0xFF */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9927 : 1) /* 0xA0..0xFF */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9928 /* 2-byte font */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9929 : (font->min_byte1 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9930 ? (font->max_byte1 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9931 ? (font->min_char_or_byte2 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9932 ? (font->max_char_or_byte2 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9933 ? 0 /* 0x2020..0x7F7F */ |
18057
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9934 : FONT_ENCODING_NOT_DECIDED) /* 0x2020..0x7FFF */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9935 : 3) /* 0x20A0..0x7FFF */ |
18057
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9936 : FONT_ENCODING_NOT_DECIDED) /* 0x20??..0xA0?? */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9937 : (font->min_char_or_byte2 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9938 ? (font->max_char_or_byte2 < 0x80 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9939 ? 2 /* 0xA020..0xFF7F */ |
18057
07e0112aa8f5
(x_load_font): Use macro FONT_ENCODING_NOT_DECIDED.
Richard M. Stallman <rms@gnu.org>
parents:
18008
diff
changeset
|
9940 : FONT_ENCODING_NOT_DECIDED) /* 0xA020..0xFFFF */ |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9941 : 1))); /* 0xA0A0..0xFFFF */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9942 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9943 fontp->baseline_offset |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9944 = (XGetFontProperty (font, dpyinfo->Xatom_MULE_BASELINE_OFFSET, &value) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9945 ? (long) value : 0); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9946 fontp->relative_compose |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9947 = (XGetFontProperty (font, dpyinfo->Xatom_MULE_RELATIVE_COMPOSE, &value) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9948 ? (long) value : 0); |
17103
7cde34a6424e
(dumpglyphs): Pay attention to characters registered in
Kenichi Handa <handa@m17n.org>
parents:
17050
diff
changeset
|
9949 fontp->default_ascent |
7cde34a6424e
(dumpglyphs): Pay attention to characters registered in
Kenichi Handa <handa@m17n.org>
parents:
17050
diff
changeset
|
9950 = (XGetFontProperty (font, dpyinfo->Xatom_MULE_DEFAULT_ASCENT, &value) |
7cde34a6424e
(dumpglyphs): Pay attention to characters registered in
Kenichi Handa <handa@m17n.org>
parents:
17050
diff
changeset
|
9951 ? (long) value : 0); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9952 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9953 /* Set global flag fonts_changed_p to non-zero if the font loaded |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9954 has a character with a smaller width than any other character |
42688
21f5612addbb
(x_load_font): Never set fonts_changed_p to zero.
Andreas Schwab <schwab@suse.de>
parents:
42675
diff
changeset
|
9955 before, or if the font loaded has a smaller height than any |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9956 other font loaded before. If this happens, it will make a |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9957 glyph matrix reallocation necessary. */ |
42688
21f5612addbb
(x_load_font): Never set fonts_changed_p to zero.
Andreas Schwab <schwab@suse.de>
parents:
42675
diff
changeset
|
9958 fonts_changed_p |= x_compute_min_glyph_bounds (f); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9959 UNBLOCK_INPUT; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9960 return fontp; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9961 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9962 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9963 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9964 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9965 /* Return a pointer to struct font_info of a font named FONTNAME for |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9966 frame F. If no such font is loaded, return NULL. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9967 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9968 struct font_info * |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9969 x_query_font (f, fontname) |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9970 struct frame *f; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9971 register char *fontname; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9972 { |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9973 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9974 int i; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9975 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9976 for (i = 0; i < dpyinfo->n_fonts; i++) |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9977 if (dpyinfo->font_table[i].name |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9978 && (!strcmp (dpyinfo->font_table[i].name, fontname) |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9979 || !strcmp (dpyinfo->font_table[i].full_name, fontname))) |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9980 return (dpyinfo->font_table + i); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9981 return NULL; |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9982 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
9983 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9984 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
9985 /* Find a CCL program for a font specified by FONTP, and set the member |
21548
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9986 `encoder' of the structure. */ |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9987 |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9988 void |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9989 x_find_ccl_program (fontp) |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9990 struct font_info *fontp; |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9991 { |
25068
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
9992 Lisp_Object list, elt; |
21548
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9993 |
31694
97c48afc4c5a
(x_draw_image_glyph_string): Remove a comment describing
Gerd Moellmann <gerd@gnu.org>
parents:
31614
diff
changeset
|
9994 elt = Qnil; |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9995 for (list = Vfont_ccl_encoder_alist; CONSP (list); list = XCDR (list)) |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9996 { |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9997 elt = XCAR (list); |
21548
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
9998 if (CONSP (elt) |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
9999 && STRINGP (XCAR (elt)) |
32640
9adbb2160f48
(x_find_ccl_program): Check also fontp->full_name.
Kenichi Handa <handa@m17n.org>
parents:
32607
diff
changeset
|
10000 && ((fast_c_string_match_ignore_case (XCAR (elt), fontp->name) |
9adbb2160f48
(x_find_ccl_program): Check also fontp->full_name.
Kenichi Handa <handa@m17n.org>
parents:
32607
diff
changeset
|
10001 >= 0) |
9adbb2160f48
(x_find_ccl_program): Check also fontp->full_name.
Kenichi Handa <handa@m17n.org>
parents:
32607
diff
changeset
|
10002 || (fast_c_string_match_ignore_case (XCAR (elt), fontp->full_name) |
9adbb2160f48
(x_find_ccl_program): Check also fontp->full_name.
Kenichi Handa <handa@m17n.org>
parents:
32607
diff
changeset
|
10003 >= 0))) |
25068
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10004 break; |
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10005 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10006 |
25068
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10007 if (! NILP (list)) |
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10008 { |
25085
23813e3a69b8
(x_find_ccl_program): Add casting.
Kenichi Handa <handa@m17n.org>
parents:
25083
diff
changeset
|
10009 struct ccl_program *ccl |
23813e3a69b8
(x_find_ccl_program): Add casting.
Kenichi Handa <handa@m17n.org>
parents:
25083
diff
changeset
|
10010 = (struct ccl_program *) xmalloc (sizeof (struct ccl_program)); |
25068
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10011 |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10012 if (setup_ccl_program (ccl, XCDR (elt)) < 0) |
25068
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10013 xfree (ccl); |
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10014 else |
0d081383b5b8
(x_find_ccl_program): Get compiled CCL code by just
Kenichi Handa <handa@m17n.org>
parents:
24991
diff
changeset
|
10015 fontp->font_encoder = ccl; |
21548
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
10016 } |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
10017 } |
5d1f1ba38043
(x_find_ccl_program): New function.
Kenichi Handa <handa@m17n.org>
parents:
21514
diff
changeset
|
10018 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10019 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10020 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10021 /*********************************************************************** |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10022 Initialization |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10023 ***********************************************************************/ |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
10024 |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10025 #ifdef USE_X_TOOLKIT |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10026 static XrmOptionDescRec emacs_options[] = { |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10027 {"-geometry", ".geometry", XrmoptionSepArg, NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10028 {"-iconic", ".iconic", XrmoptionNoArg, (XtPointer) "yes"}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10029 |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10030 {"-internal-border-width", "*EmacsScreen.internalBorderWidth", |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10031 XrmoptionSepArg, NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10032 {"-ib", "*EmacsScreen.internalBorderWidth", XrmoptionSepArg, NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10033 |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10034 {"-T", "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10035 {"-wn", "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10036 {"-title", "*EmacsShell.title", XrmoptionSepArg, (XtPointer) NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10037 {"-iconname", "*EmacsShell.iconName", XrmoptionSepArg, (XtPointer) NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10038 {"-in", "*EmacsShell.iconName", XrmoptionSepArg, (XtPointer) NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10039 {"-mc", "*pointerColor", XrmoptionSepArg, (XtPointer) NULL}, |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10040 {"-cr", "*cursorColor", XrmoptionSepArg, (XtPointer) NULL} |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10041 }; |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10042 #endif /* USE_X_TOOLKIT */ |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10043 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10044 static int x_initialized; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10045 |
11015 | 10046 #ifdef MULTI_KBOARD |
10047 /* Test whether two display-name strings agree up to the dot that separates | |
10048 the screen number from the server number. */ | |
10049 static int | |
10050 same_x_server (name1, name2) | |
46479
4729f849c572
(same_x_server): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46435
diff
changeset
|
10051 const char *name1, *name2; |
11015 | 10052 { |
10053 int seen_colon = 0; | |
46479
4729f849c572
(same_x_server): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46435
diff
changeset
|
10054 const unsigned char *system_name = SDATA (Vsystem_name); |
24164
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10055 int system_name_length = strlen (system_name); |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10056 int length_until_period = 0; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10057 |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10058 while (system_name[length_until_period] != 0 |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10059 && system_name[length_until_period] != '.') |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10060 length_until_period++; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10061 |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10062 /* Treat `unix' like an empty host name. */ |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10063 if (! strncmp (name1, "unix:", 5)) |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10064 name1 += 4; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10065 if (! strncmp (name2, "unix:", 5)) |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10066 name2 += 4; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10067 /* Treat this host's name like an empty host name. */ |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10068 if (! strncmp (name1, system_name, system_name_length) |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10069 && name1[system_name_length] == ':') |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10070 name1 += system_name_length; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10071 if (! strncmp (name2, system_name, system_name_length) |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10072 && name2[system_name_length] == ':') |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10073 name2 += system_name_length; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10074 /* Treat this host's domainless name like an empty host name. */ |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10075 if (! strncmp (name1, system_name, length_until_period) |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10076 && name1[length_until_period] == ':') |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10077 name1 += length_until_period; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10078 if (! strncmp (name2, system_name, length_until_period) |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10079 && name2[length_until_period] == ':') |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10080 name2 += length_until_period; |
1f8d4cb55bd6
(same_x_server): Detect treat ":0" and "unix:0"
Richard M. Stallman <rms@gnu.org>
parents:
23925
diff
changeset
|
10081 |
11015 | 10082 for (; *name1 != '\0' && *name1 == *name2; name1++, name2++) |
10083 { | |
10084 if (*name1 == ':') | |
10085 seen_colon++; | |
10086 if (seen_colon && *name1 == '.') | |
10087 return 1; | |
10088 } | |
10089 return (seen_colon | |
10090 && (*name1 == '.' || *name1 == '\0') | |
10091 && (*name2 == '.' || *name2 == '\0')); | |
10092 } | |
10093 #endif | |
10094 | |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10095 struct x_display_info * |
7801
10e818a0248a
(x_term_init): New args xrm_option and resource_string.
Richard M. Stallman <rms@gnu.org>
parents:
7738
diff
changeset
|
10096 x_term_init (display_name, xrm_option, resource_name) |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10097 Lisp_Object display_name; |
7801
10e818a0248a
(x_term_init): New args xrm_option and resource_string.
Richard M. Stallman <rms@gnu.org>
parents:
7738
diff
changeset
|
10098 char *xrm_option; |
10e818a0248a
(x_term_init): New args xrm_option and resource_string.
Richard M. Stallman <rms@gnu.org>
parents:
7738
diff
changeset
|
10099 char *resource_name; |
286 | 10100 { |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10101 int connection; |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10102 Display *dpy; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10103 struct x_display_info *dpyinfo; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10104 XrmDatabase xrdb; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10105 |
11997
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10106 BLOCK_INPUT; |
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10107 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10108 if (!x_initialized) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10109 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10110 x_initialize (); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10111 x_initialized = 1; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10112 } |
286 | 10113 |
49322 | 10114 #ifdef USE_GTK |
10115 { | |
10116 #define NUM_ARGV 10 | |
10117 int argc; | |
10118 char *argv[NUM_ARGV]; | |
10119 char **argv2 = argv; | |
10120 GdkAtom atom; | |
10121 | |
10122 /* GTK 2.0 can only handle one display, GTK 2.2 can handle more | |
10123 than one, but this remains to be implemented. */ | |
10124 if (x_initialized > 1) | |
10125 return 0; | |
10126 | |
10127 x_initialized++; | |
10128 | |
10129 for (argc = 0; argc < NUM_ARGV; ++argc) | |
10130 argv[argc] = 0; | |
10131 | |
10132 argc = 0; | |
10133 argv[argc++] = initial_argv[0]; | |
10134 | |
10135 if (! NILP (display_name)) | |
10136 { | |
10137 argv[argc++] = "--display"; | |
10138 argv[argc++] = SDATA (display_name); | |
10139 } | |
10140 | |
10141 argv[argc++] = "--name"; | |
10142 argv[argc++] = resource_name; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
10143 |
49434
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
10144 #ifdef HAVE_X11R5 |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
10145 XSetLocaleModifiers (""); |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
10146 #endif |
a4d0ee33dcce
Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49326
diff
changeset
|
10147 |
49322 | 10148 gtk_init (&argc, &argv2); |
10149 | |
10150 /* gtk_init does set_locale. We must fix locale after calling it. */ | |
10151 fixup_locale (); | |
10152 xg_initialize (); | |
10153 | |
10154 dpy = GDK_DISPLAY (); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
10155 |
49322 | 10156 /* NULL window -> events for all windows go to our function */ |
10157 gdk_window_add_filter (NULL, event_handler_gdk, NULL); | |
10158 | |
10159 /* Load our own gtkrc if it exists. */ | |
10160 { | |
10161 struct gcpro gcpro1, gcpro2; | |
10162 char *file = "~/.emacs.d/gtkrc"; | |
10163 Lisp_Object s, abs_file; | |
10164 | |
50103
2e253c47d904
(x_term_init) [USE_GTK]: Fix typo.
Andreas Schwab <schwab@suse.de>
parents:
50097
diff
changeset
|
10165 GCPRO2 (s, abs_file); |
49322 | 10166 s = make_string (file, strlen (file)); |
10167 abs_file = Fexpand_file_name(s, Qnil); | |
10168 | |
10169 if (! NILP (abs_file) && Ffile_readable_p (abs_file)) | |
10170 gtk_rc_parse (SDATA (abs_file)); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
10171 |
49322 | 10172 UNGCPRO; |
10173 } | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49434
diff
changeset
|
10174 |
49322 | 10175 XSetErrorHandler (x_error_handler); |
10176 XSetIOErrorHandler (x_io_error_quitter); | |
10177 } | |
10178 #else /* not USE_GTK */ | |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10179 #ifdef USE_X_TOOLKIT |
11436
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
10180 /* weiner@footloose.sps.mot.com reports that this causes |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
10181 errors with X11R5: |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
10182 X protocol error: BadAtom (invalid Atom parameter) |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
10183 on protocol request 18skiloaf. |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
10184 So let's not use it until R6. */ |
9829d3c035f2
(x_term_init): Call XtSetLanguageProc only if HAVE_X11XTR6.
Richard M. Stallman <rms@gnu.org>
parents:
11375
diff
changeset
|
10185 #ifdef HAVE_X11XTR6 |
9446
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
10186 XtSetLanguageProc (NULL, NULL, NULL); |
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
10187 #endif |
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
10188 |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10189 { |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10190 int argc = 0; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10191 char *argv[3]; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10192 |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10193 argv[0] = ""; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10194 argc = 1; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10195 if (xrm_option) |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10196 { |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10197 argv[argc++] = "-xrm"; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10198 argv[argc++] = xrm_option; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10199 } |
48169
d2c93bc1faf1
(x_term_init): Use turn_on_atimers, not start_polling and stop_polling.
Richard M. Stallman <rms@gnu.org>
parents:
48145
diff
changeset
|
10200 turn_on_atimers (0); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10201 dpy = XtOpenDisplay (Xt_app_con, SDATA (display_name), |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10202 resource_name, EMACS_CLASS, |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10203 emacs_options, XtNumber (emacs_options), |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10204 &argc, argv); |
48169
d2c93bc1faf1
(x_term_init): Use turn_on_atimers, not start_polling and stop_polling.
Richard M. Stallman <rms@gnu.org>
parents:
48145
diff
changeset
|
10205 turn_on_atimers (1); |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
10206 |
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
10207 #ifdef HAVE_X11XTR6 |
14963
6ac4f300f9b4
Include locale.h if HAVE_SETLOCALE.
Richard M. Stallman <rms@gnu.org>
parents:
14946
diff
changeset
|
10208 /* I think this is to compensate for XtSetLanguageProc. */ |
23115
b992f7bb67d7
(fixup_locale): New function. For now, it resets
Paul Eggert <eggert@twinsun.com>
parents:
23107
diff
changeset
|
10209 fixup_locale (); |
12530
c2b2449231c2
[HAVE_X11XTR6]: Include locale.h
Karl Heuer <kwzh@gnu.org>
parents:
12494
diff
changeset
|
10210 #endif |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10211 } |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10212 |
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10213 #else /* not USE_X_TOOLKIT */ |
9446
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
10214 #ifdef HAVE_X11R5 |
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
10215 XSetLocaleModifiers (""); |
be58ba7c209d
(x_term_init): Call XtSetLanguageProc or XSetLocaleModifiers.
Richard M. Stallman <rms@gnu.org>
parents:
9340
diff
changeset
|
10216 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10217 dpy = XOpenDisplay (SDATA (display_name)); |
5672
cbc4229c1f90
(x_wm_set_size_hint): Swap southeast and northwest.
Richard M. Stallman <rms@gnu.org>
parents:
5362
diff
changeset
|
10218 #endif /* not USE_X_TOOLKIT */ |
49322 | 10219 #endif /* not USE_GTK*/ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10220 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10221 /* Detect failure. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10222 if (dpy == 0) |
11997
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10223 { |
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10224 UNBLOCK_INPUT; |
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10225 return 0; |
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10226 } |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10227 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10228 /* We have definitely succeeded. Record the new connection. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10229 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10230 dpyinfo = (struct x_display_info *) xmalloc (sizeof (struct x_display_info)); |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
10231 bzero (dpyinfo, sizeof *dpyinfo); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10232 |
11015 | 10233 #ifdef MULTI_KBOARD |
10234 { | |
10235 struct x_display_info *share; | |
10236 Lisp_Object tail; | |
10237 | |
10238 for (share = x_display_list, tail = x_display_name_list; share; | |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10239 share = share->next, tail = XCDR (tail)) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10240 if (same_x_server (SDATA (XCAR (XCAR (tail))), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10241 SDATA (display_name))) |
11015 | 10242 break; |
10243 if (share) | |
10244 dpyinfo->kboard = share->kboard; | |
10245 else | |
10246 { | |
10247 dpyinfo->kboard = (KBOARD *) xmalloc (sizeof (KBOARD)); | |
10248 init_kboard (dpyinfo->kboard); | |
11807
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10249 if (!EQ (XSYMBOL (Qvendor_specific_keysyms)->function, Qunbound)) |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10250 { |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10251 char *vendor = ServerVendor (dpy); |
28307
1d4a11a5f39d
(x_term_init): Unblock input around call1.
Gerd Moellmann <gerd@gnu.org>
parents:
28281
diff
changeset
|
10252 UNBLOCK_INPUT; |
11807
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10253 dpyinfo->kboard->Vsystem_key_alist |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10254 = call1 (Qvendor_specific_keysyms, |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10255 build_string (vendor ? vendor : "")); |
28307
1d4a11a5f39d
(x_term_init): Unblock input around call1.
Gerd Moellmann <gerd@gnu.org>
parents:
28281
diff
changeset
|
10256 BLOCK_INPUT; |
11807
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10257 } |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10258 |
11015 | 10259 dpyinfo->kboard->next_kboard = all_kboards; |
10260 all_kboards = dpyinfo->kboard; | |
11544
cc965273a769
(x_term_init): If the previous kboard was the dummy one,
Karl Heuer <kwzh@gnu.org>
parents:
11536
diff
changeset
|
10261 /* Don't let the initial kboard remain current longer than necessary. |
cc965273a769
(x_term_init): If the previous kboard was the dummy one,
Karl Heuer <kwzh@gnu.org>
parents:
11536
diff
changeset
|
10262 That would cause problems if a file loaded on startup tries to |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10263 prompt in the mini-buffer. */ |
11544
cc965273a769
(x_term_init): If the previous kboard was the dummy one,
Karl Heuer <kwzh@gnu.org>
parents:
11536
diff
changeset
|
10264 if (current_kboard == initial_kboard) |
cc965273a769
(x_term_init): If the previous kboard was the dummy one,
Karl Heuer <kwzh@gnu.org>
parents:
11536
diff
changeset
|
10265 current_kboard = dpyinfo->kboard; |
11015 | 10266 } |
10267 dpyinfo->kboard->reference_count++; | |
10268 } | |
10652
f6a41cb94a75
[MULTI_PERDISPLAY] (x_term_init): Initialize perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10634
diff
changeset
|
10269 #endif |
f6a41cb94a75
[MULTI_PERDISPLAY] (x_term_init): Initialize perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10634
diff
changeset
|
10270 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10271 /* Put this display on the chain. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10272 dpyinfo->next = x_display_list; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10273 x_display_list = dpyinfo; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10274 |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10275 /* Put it on x_display_name_list as well, to keep them parallel. */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10276 x_display_name_list = Fcons (Fcons (display_name, Qnil), |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10277 x_display_name_list); |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10278 dpyinfo->name_list_element = XCAR (x_display_name_list); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10279 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10280 dpyinfo->display = dpy; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10281 |
286 | 10282 #if 0 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10283 XSetAfterFunction (x_current_display, x_trace_wire); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10284 #endif /* ! 0 */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10285 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10286 dpyinfo->x_id_name |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10287 = (char *) xmalloc (SBYTES (Vinvocation_name) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10288 + SBYTES (Vsystem_name) |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10289 + 2); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10290 sprintf (dpyinfo->x_id_name, "%s@%s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10291 SDATA (Vinvocation_name), SDATA (Vsystem_name)); |
1279
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
10292 |
74ae34a80f94
* xterm.c (x_meta_mod_mask): New variable, indicating which X
Jim Blandy <jimb@redhat.com>
parents:
1127
diff
changeset
|
10293 /* Figure out which modifier bits mean what. */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10294 x_find_modifier_meanings (dpyinfo); |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
10295 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
10296 /* Get the scroll bar cursor. */ |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10297 dpyinfo->vertical_scroll_bar_cursor |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10298 = XCreateFontCursor (dpyinfo->display, XC_sb_v_double_arrow); |
2195
b20bb441f47f
(Xatom_wm_change_state): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
2127
diff
changeset
|
10299 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10300 xrdb = x_load_resources (dpyinfo->display, xrm_option, |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10301 resource_name, EMACS_CLASS); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10302 #ifdef HAVE_XRMSETDATABASE |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10303 XrmSetDatabase (dpyinfo->display, xrdb); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10304 #else |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10305 dpyinfo->display->db = xrdb; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10306 #endif |
11162
95b70c82ec51
(x_term_init): Initialize cut_buffers_initialized.
Karl Heuer <kwzh@gnu.org>
parents:
11122
diff
changeset
|
10307 /* Put the rdb where we can find it in a way that works on |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10308 all versions. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10309 dpyinfo->xrdb = xrdb; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10310 |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10311 dpyinfo->screen = ScreenOfDisplay (dpyinfo->display, |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10312 DefaultScreen (dpyinfo->display)); |
27991
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10313 select_visual (dpyinfo); |
27985
4ba445af210b
(x_term_init): Set Colormap member of x_display_info
Gerd Moellmann <gerd@gnu.org>
parents:
27974
diff
changeset
|
10314 dpyinfo->cmap = DefaultColormapOfScreen (dpyinfo->screen); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10315 dpyinfo->height = HeightOfScreen (dpyinfo->screen); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10316 dpyinfo->width = WidthOfScreen (dpyinfo->screen); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10317 dpyinfo->root_window = RootWindowOfScreen (dpyinfo->screen); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10318 dpyinfo->grabbed = 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10319 dpyinfo->reference_count = 0; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10320 dpyinfo->icon_bitmap_id = -1; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10321 dpyinfo->font_table = NULL; |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10322 dpyinfo->n_fonts = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10323 dpyinfo->font_table_size = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10324 dpyinfo->bitmaps = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10325 dpyinfo->bitmaps_size = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10326 dpyinfo->bitmaps_last = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10327 dpyinfo->scratch_cursor_gc = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10328 dpyinfo->mouse_face_mouse_frame = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10329 dpyinfo->mouse_face_deferred_gc = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10330 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10331 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10332 dpyinfo->mouse_face_face_id = DEFAULT_FACE_ID; |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10333 dpyinfo->mouse_face_window = Qnil; |
36587
d9bb01d5dbbb
(note_mouse_highlight): Call mouse_face_overlay_overlaps
Gerd Moellmann <gerd@gnu.org>
parents:
36555
diff
changeset
|
10334 dpyinfo->mouse_face_overlay = Qnil; |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10335 dpyinfo->mouse_face_mouse_x = dpyinfo->mouse_face_mouse_y = 0; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10336 dpyinfo->mouse_face_defer = 0; |
43369
493438ba5e2c
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43343
diff
changeset
|
10337 dpyinfo->mouse_face_hidden = 0; |
11536
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
10338 dpyinfo->x_focus_frame = 0; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
10339 dpyinfo->x_focus_event_frame = 0; |
c4d3218acd7e
(x_focus_frame, x_focus_event_frame, x_highlight_frame):
Karl Heuer <kwzh@gnu.org>
parents:
11436
diff
changeset
|
10340 dpyinfo->x_highlight_frame = 0; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10341 dpyinfo->image_cache = make_image_cache (); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10342 |
27985
4ba445af210b
(x_term_init): Set Colormap member of x_display_info
Gerd Moellmann <gerd@gnu.org>
parents:
27974
diff
changeset
|
10343 /* See if a private colormap is requested. */ |
27991
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10344 if (dpyinfo->visual == DefaultVisualOfScreen (dpyinfo->screen)) |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10345 { |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10346 if (dpyinfo->visual->class == PseudoColor) |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10347 { |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10348 Lisp_Object value; |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10349 value = display_x_get_resource (dpyinfo, |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10350 build_string ("privateColormap"), |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10351 build_string ("PrivateColormap"), |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10352 Qnil, Qnil); |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10353 if (STRINGP (value) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10354 && (!strcmp (SDATA (value), "true") |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10355 || !strcmp (SDATA (value), "on"))) |
27991
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10356 dpyinfo->cmap = XCopyColormapAndFree (dpyinfo->display, dpyinfo->cmap); |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10357 } |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10358 } |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10359 else |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10360 dpyinfo->cmap = XCreateColormap (dpyinfo->display, dpyinfo->root_window, |
cf10555b8ce0
(x_term_init): Create a colormap if not using the
Gerd Moellmann <gerd@gnu.org>
parents:
27985
diff
changeset
|
10361 dpyinfo->visual, AllocNone); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10362 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10363 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10364 int screen_number = XScreenNumberOfScreen (dpyinfo->screen); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10365 double pixels = DisplayHeight (dpyinfo->display, screen_number); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10366 double mm = DisplayHeightMM (dpyinfo->display, screen_number); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10367 dpyinfo->resy = pixels * 25.4 / mm; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10368 pixels = DisplayWidth (dpyinfo->display, screen_number); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10369 mm = DisplayWidthMM (dpyinfo->display, screen_number); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10370 dpyinfo->resx = pixels * 25.4 / mm; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10371 } |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10372 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10373 dpyinfo->Xatom_wm_protocols |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10374 = XInternAtom (dpyinfo->display, "WM_PROTOCOLS", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10375 dpyinfo->Xatom_wm_take_focus |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10376 = XInternAtom (dpyinfo->display, "WM_TAKE_FOCUS", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10377 dpyinfo->Xatom_wm_save_yourself |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10378 = XInternAtom (dpyinfo->display, "WM_SAVE_YOURSELF", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10379 dpyinfo->Xatom_wm_delete_window |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10380 = XInternAtom (dpyinfo->display, "WM_DELETE_WINDOW", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10381 dpyinfo->Xatom_wm_change_state |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10382 = XInternAtom (dpyinfo->display, "WM_CHANGE_STATE", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10383 dpyinfo->Xatom_wm_configure_denied |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10384 = XInternAtom (dpyinfo->display, "WM_CONFIGURE_DENIED", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10385 dpyinfo->Xatom_wm_window_moved |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10386 = XInternAtom (dpyinfo->display, "WM_MOVED", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10387 dpyinfo->Xatom_editres |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10388 = XInternAtom (dpyinfo->display, "Editres", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10389 dpyinfo->Xatom_CLIPBOARD |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10390 = XInternAtom (dpyinfo->display, "CLIPBOARD", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10391 dpyinfo->Xatom_TIMESTAMP |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10392 = XInternAtom (dpyinfo->display, "TIMESTAMP", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10393 dpyinfo->Xatom_TEXT |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10394 = XInternAtom (dpyinfo->display, "TEXT", False); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10395 dpyinfo->Xatom_COMPOUND_TEXT |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10396 = XInternAtom (dpyinfo->display, "COMPOUND_TEXT", False); |
46882
9c2b3f9ec15a
(x_term_init): Initialize dpyinfo->Xatom_UTF8_STRING.
Kenichi Handa <handa@m17n.org>
parents:
46814
diff
changeset
|
10397 dpyinfo->Xatom_UTF8_STRING |
9c2b3f9ec15a
(x_term_init): Initialize dpyinfo->Xatom_UTF8_STRING.
Kenichi Handa <handa@m17n.org>
parents:
46814
diff
changeset
|
10398 = XInternAtom (dpyinfo->display, "UTF8_STRING", False); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10399 dpyinfo->Xatom_DELETE |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10400 = XInternAtom (dpyinfo->display, "DELETE", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10401 dpyinfo->Xatom_MULTIPLE |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10402 = XInternAtom (dpyinfo->display, "MULTIPLE", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10403 dpyinfo->Xatom_INCR |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10404 = XInternAtom (dpyinfo->display, "INCR", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10405 dpyinfo->Xatom_EMACS_TMP |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10406 = XInternAtom (dpyinfo->display, "_EMACS_TMP_", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10407 dpyinfo->Xatom_TARGETS |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10408 = XInternAtom (dpyinfo->display, "TARGETS", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10409 dpyinfo->Xatom_NULL |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10410 = XInternAtom (dpyinfo->display, "NULL", False); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10411 dpyinfo->Xatom_ATOM_PAIR |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10412 = XInternAtom (dpyinfo->display, "ATOM_PAIR", False); |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10413 /* For properties of font. */ |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10414 dpyinfo->Xatom_PIXEL_SIZE |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10415 = XInternAtom (dpyinfo->display, "PIXEL_SIZE", False); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10416 dpyinfo->Xatom_MULE_BASELINE_OFFSET |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10417 = XInternAtom (dpyinfo->display, "_MULE_BASELINE_OFFSET", False); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10418 dpyinfo->Xatom_MULE_RELATIVE_COMPOSE |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10419 = XInternAtom (dpyinfo->display, "_MULE_RELATIVE_COMPOSE", False); |
17103
7cde34a6424e
(dumpglyphs): Pay attention to characters registered in
Kenichi Handa <handa@m17n.org>
parents:
17050
diff
changeset
|
10420 dpyinfo->Xatom_MULE_DEFAULT_ASCENT |
7cde34a6424e
(dumpglyphs): Pay attention to characters registered in
Kenichi Handa <handa@m17n.org>
parents:
17050
diff
changeset
|
10421 = XInternAtom (dpyinfo->display, "_MULE_DEFAULT_ASCENT", False); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10422 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10423 /* Ghostscript support. */ |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10424 dpyinfo->Xatom_PAGE = XInternAtom (dpyinfo->display, "PAGE", False); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10425 dpyinfo->Xatom_DONE = XInternAtom (dpyinfo->display, "DONE", False); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10426 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10427 dpyinfo->Xatom_Scrollbar = XInternAtom (dpyinfo->display, "SCROLLBAR", |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10428 False); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10429 |
11162
95b70c82ec51
(x_term_init): Initialize cut_buffers_initialized.
Karl Heuer <kwzh@gnu.org>
parents:
11122
diff
changeset
|
10430 dpyinfo->cut_buffers_initialized = 0; |
95b70c82ec51
(x_term_init): Initialize cut_buffers_initialized.
Karl Heuer <kwzh@gnu.org>
parents:
11122
diff
changeset
|
10431 |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10432 connection = ConnectionNumber (dpyinfo->display); |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10433 dpyinfo->connection = connection; |
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10434 |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10435 { |
18705
c4f2eab8e736
(x_term_init): Don't use initializer for null_bits.
Richard M. Stallman <rms@gnu.org>
parents:
18646
diff
changeset
|
10436 char null_bits[1]; |
c4f2eab8e736
(x_term_init): Don't use initializer for null_bits.
Richard M. Stallman <rms@gnu.org>
parents:
18646
diff
changeset
|
10437 |
c4f2eab8e736
(x_term_init): Don't use initializer for null_bits.
Richard M. Stallman <rms@gnu.org>
parents:
18646
diff
changeset
|
10438 null_bits[0] = 0x00; |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10439 |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10440 dpyinfo->null_pixel |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10441 = XCreatePixmapFromBitmapData (dpyinfo->display, dpyinfo->root_window, |
17050
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10442 null_bits, 1, 1, (long) 0, (long) 0, |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10443 1); |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10444 } |
1e5fa2dc98cf
Include charset.h, ccl.h, and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents:
16898
diff
changeset
|
10445 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10446 { |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10447 extern int gray_bitmap_width, gray_bitmap_height; |
34511
1f69c833e2af
(x_term_init): Declare gray_bitmap_bits as `extern
Gerd Moellmann <gerd@gnu.org>
parents:
34449
diff
changeset
|
10448 extern char *gray_bitmap_bits; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10449 dpyinfo->gray |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10450 = XCreatePixmapFromBitmapData (dpyinfo->display, dpyinfo->root_window, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10451 gray_bitmap_bits, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10452 gray_bitmap_width, gray_bitmap_height, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10453 (unsigned long) 1, (unsigned long) 0, 1); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10454 } |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10455 |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10456 #ifdef HAVE_X_I18N |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10457 xim_initialize (dpyinfo, resource_name); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10458 #endif |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10459 |
9572 | 10460 #ifdef subprocesses |
10461 /* This is only needed for distinguishing keyboard and process input. */ | |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10462 if (connection != 0) |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10463 add_keyboard_wait_descriptor (connection); |
9572 | 10464 #endif |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10465 |
4147
c6657758fb6f
* xterm.c (x_term_init): Adjust message printed when we can't
Jim Blandy <jimb@redhat.com>
parents:
3951
diff
changeset
|
10466 #ifndef F_SETOWN_BUG |
286 | 10467 #ifdef F_SETOWN |
10468 #ifdef F_SETOWN_SOCK_NEG | |
4683
6a5197116086
(x_term_init): Call change_keyboard_wait_descriptor,
Richard M. Stallman <rms@gnu.org>
parents:
4630
diff
changeset
|
10469 /* stdin is a socket here */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10470 fcntl (connection, F_SETOWN, -getpid ()); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10471 #else /* ! defined (F_SETOWN_SOCK_NEG) */ |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10472 fcntl (connection, F_SETOWN, getpid ()); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10473 #endif /* ! defined (F_SETOWN_SOCK_NEG) */ |
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10474 #endif /* ! defined (F_SETOWN) */ |
4147
c6657758fb6f
* xterm.c (x_term_init): Adjust message printed when we can't
Jim Blandy <jimb@redhat.com>
parents:
3951
diff
changeset
|
10475 #endif /* F_SETOWN_BUG */ |
286 | 10476 |
10477 #ifdef SIGIO | |
11994
b4dd8ca308dd
(x_term_init): Call init_sigio only if interrupt_input.
Karl Heuer <kwzh@gnu.org>
parents:
11988
diff
changeset
|
10478 if (interrupt_input) |
b4dd8ca308dd
(x_term_init): Call init_sigio only if interrupt_input.
Karl Heuer <kwzh@gnu.org>
parents:
11988
diff
changeset
|
10479 init_sigio (connection); |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10480 #endif /* ! defined (SIGIO) */ |
286 | 10481 |
15904
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10482 #ifdef USE_LUCID |
19021
6f150e46a5fd
(x_term_init) [! HAVE_X11R5]: Don't try to use XtCvtStringToFont.
Richard M. Stallman <rms@gnu.org>
parents:
18996
diff
changeset
|
10483 #ifdef HAVE_X11R5 /* It seems X11R4 lacks XtCvtStringToFont, and XPointer. */ |
15904
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10484 /* Make sure that we have a valid font for dialog boxes |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10485 so that Xt does not crash. */ |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10486 { |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10487 Display *dpy = dpyinfo->display; |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10488 XrmValue d, fr, to; |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10489 Font font; |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10490 int count; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10491 |
15904
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10492 d.addr = (XPointer)&dpy; |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10493 d.size = sizeof (Display *); |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10494 fr.addr = XtDefaultFont; |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10495 fr.size = sizeof (XtDefaultFont); |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10496 to.size = sizeof (Font *); |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10497 to.addr = (XPointer)&font; |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10498 count = x_catch_errors (dpy); |
15904
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10499 if (!XtCallConverter (dpy, XtCvtStringToFont, &d, 1, &fr, &to, NULL)) |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10500 abort (); |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10501 if (x_had_errors_p (dpy) || !XQueryFont (dpy, font)) |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10502 XrmPutLineResource (&xrdb, "Emacs.dialog.*.font: 9x15"); |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10503 x_uncatch_errors (dpy, count); |
15904
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10504 } |
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10505 #endif |
19021
6f150e46a5fd
(x_term_init) [! HAVE_X11R5]: Don't try to use XtCvtStringToFont.
Richard M. Stallman <rms@gnu.org>
parents:
18996
diff
changeset
|
10506 #endif |
15904
a31cfab57f69
(x_term_init): If the default Xt font does not exist on
Richard M. Stallman <rms@gnu.org>
parents:
15808
diff
changeset
|
10507 |
28139 | 10508 /* See if we should run in synchronous mode. This is useful |
10509 for debugging X code. */ | |
10510 { | |
10511 Lisp_Object value; | |
10512 value = display_x_get_resource (dpyinfo, | |
10513 build_string ("synchronous"), | |
10514 build_string ("Synchronous"), | |
10515 Qnil, Qnil); | |
10516 if (STRINGP (value) | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10517 && (!strcmp (SDATA (value), "true") |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46293
diff
changeset
|
10518 || !strcmp (SDATA (value), "on"))) |
28139 | 10519 XSynchronize (dpyinfo->display, True); |
10520 } | |
51129 | 10521 |
10522 { | |
10523 Lisp_Object value; | |
10524 value = display_x_get_resource (dpyinfo, | |
10525 build_string ("useXIM"), | |
10526 build_string ("UseXIM"), | |
10527 Qnil, Qnil); | |
10528 if (STRINGP (value) | |
10529 && (!strcmp (XSTRING (value)->data, "false") | |
10530 || !strcmp (XSTRING (value)->data, "off"))) | |
10531 use_xim = 0; | |
10532 } | |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10533 |
11997
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10534 UNBLOCK_INPUT; |
50c7c05fc301
(x_term_init): Block input during this function.
Karl Heuer <kwzh@gnu.org>
parents:
11994
diff
changeset
|
10535 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10536 return dpyinfo; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10537 } |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10538 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10539 /* Get rid of display DPYINFO, assuming all frames are already gone, |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10540 and without sending any more commands to the X server. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10541 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10542 void |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10543 x_delete_display (dpyinfo) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10544 struct x_display_info *dpyinfo; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10545 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10546 delete_keyboard_wait_descriptor (dpyinfo->connection); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10547 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10548 /* Discard this display from x_display_name_list and x_display_list. |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10549 We can't use Fdelq because that can quit. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10550 if (! NILP (x_display_name_list) |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10551 && EQ (XCAR (x_display_name_list), dpyinfo->name_list_element)) |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10552 x_display_name_list = XCDR (x_display_name_list); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10553 else |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10554 { |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10555 Lisp_Object tail; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10556 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10557 tail = x_display_name_list; |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10558 while (CONSP (tail) && CONSP (XCDR (tail))) |
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10559 { |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10560 if (EQ (XCAR (XCDR (tail)), dpyinfo->name_list_element)) |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10561 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39950
diff
changeset
|
10562 XSETCDR (tail, XCDR (XCDR (tail))); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10563 break; |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10564 } |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25633
diff
changeset
|
10565 tail = XCDR (tail); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10566 } |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10567 } |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10568 |
27524
67501e6e8b34
(x_delete_display): Update next_noop_dpyinfo to ensure
Gerd Moellmann <gerd@gnu.org>
parents:
27500
diff
changeset
|
10569 if (next_noop_dpyinfo == dpyinfo) |
67501e6e8b34
(x_delete_display): Update next_noop_dpyinfo to ensure
Gerd Moellmann <gerd@gnu.org>
parents:
27500
diff
changeset
|
10570 next_noop_dpyinfo = dpyinfo->next; |
67501e6e8b34
(x_delete_display): Update next_noop_dpyinfo to ensure
Gerd Moellmann <gerd@gnu.org>
parents:
27500
diff
changeset
|
10571 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10572 if (x_display_list == dpyinfo) |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10573 x_display_list = dpyinfo->next; |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10574 else |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10575 { |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10576 struct x_display_info *tail; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10577 |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10578 for (tail = x_display_list; tail; tail = tail->next) |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10579 if (tail->next == dpyinfo) |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10580 tail->next = tail->next->next; |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10581 } |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10582 |
12771
6f07c79d9a05
(x_delete_display) [AIX]: Don't call XRmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
12750
diff
changeset
|
10583 #ifndef USE_X_TOOLKIT /* I'm told Xt does this itself. */ |
6f07c79d9a05
(x_delete_display) [AIX]: Don't call XRmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
12750
diff
changeset
|
10584 #ifndef AIX /* On AIX, XCloseDisplay calls this. */ |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10585 XrmDestroyDatabase (dpyinfo->xrdb); |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10586 #endif |
12771
6f07c79d9a05
(x_delete_display) [AIX]: Don't call XRmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
12750
diff
changeset
|
10587 #endif |
11015 | 10588 #ifdef MULTI_KBOARD |
10589 if (--dpyinfo->kboard->reference_count == 0) | |
11166
0e9fad3ccf03
(x_delete_display): Extract kboard deletion, for modularity.
Karl Heuer <kwzh@gnu.org>
parents:
11162
diff
changeset
|
10590 delete_kboard (dpyinfo->kboard); |
10652
f6a41cb94a75
[MULTI_PERDISPLAY] (x_term_init): Initialize perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10634
diff
changeset
|
10591 #endif |
27500
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10592 #ifdef HAVE_X_I18N |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10593 if (dpyinfo->xim) |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10594 xim_close_dpy (dpyinfo); |
d33b4becc3ca
(x_display_cursor): Set XIC pre-edit area only if window
Gerd Moellmann <gerd@gnu.org>
parents:
27428
diff
changeset
|
10595 #endif |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10596 |
10652
f6a41cb94a75
[MULTI_PERDISPLAY] (x_term_init): Initialize perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10634
diff
changeset
|
10597 xfree (dpyinfo->font_table); |
f6a41cb94a75
[MULTI_PERDISPLAY] (x_term_init): Initialize perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10634
diff
changeset
|
10598 xfree (dpyinfo->x_id_name); |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
10599 xfree (dpyinfo->color_cells); |
10652
f6a41cb94a75
[MULTI_PERDISPLAY] (x_term_init): Initialize perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10634
diff
changeset
|
10600 xfree (dpyinfo); |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10601 } |
32607
00d2748a616a
(x_color_cells, x_query_colors, x_query_color): New
Gerd Moellmann <gerd@gnu.org>
parents:
32513
diff
changeset
|
10602 |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10603 #ifdef USE_X_TOOLKIT |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10604 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10605 /* Atimer callback function for TIMER. Called every 0.1s to process |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10606 Xt timeouts, if needed. We must avoid calling XtAppPending as |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10607 much as possible because that function does an implicit XFlush |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10608 that slows us down. */ |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10609 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10610 static void |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10611 x_process_timeouts (timer) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10612 struct atimer *timer; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10613 { |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10614 if (toolkit_scroll_bar_interaction || popup_activated ()) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10615 { |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10616 BLOCK_INPUT; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10617 while (XtAppPending (Xt_app_con) & XtIMTimer) |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10618 XtAppProcessEvent (Xt_app_con, XtIMTimer); |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10619 UNBLOCK_INPUT; |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10620 } |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10621 } |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10622 |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10623 #endif /* USE_X_TOOLKIT */ |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10624 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10625 |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10626 /* Set up use of X before we make the first connection. */ |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10627 |
50371
45e825260791
Remove unnecessary extern declarations.
Kim F. Storm <storm@cua.dk>
parents:
50327
diff
changeset
|
10628 extern frame_parm_handler x_frame_parm_handlers[]; |
45e825260791
Remove unnecessary extern declarations.
Kim F. Storm <storm@cua.dk>
parents:
50327
diff
changeset
|
10629 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10630 static struct redisplay_interface x_redisplay_interface = |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10631 { |
50371
45e825260791
Remove unnecessary extern declarations.
Kim F. Storm <storm@cua.dk>
parents:
50327
diff
changeset
|
10632 x_frame_parm_handlers, |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10633 x_produce_glyphs, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10634 x_write_glyphs, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10635 x_insert_glyphs, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10636 x_clear_end_of_line, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10637 x_scroll_run, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10638 x_after_update_window_line, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10639 x_update_window_begin, |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10640 x_update_window_end, |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10641 x_cursor_to, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10642 x_flush, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10643 #ifndef XFlush |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10644 x_flush, |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10645 #else |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10646 0, /* flush_display_optional */ |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10647 #endif |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10648 x_clear_window_mouse_face, |
25189
710445260df6
(x_draw_phys_cursor_glyph): Redraw overlaps.
Gerd Moellmann <gerd@gnu.org>
parents:
25150
diff
changeset
|
10649 x_get_glyph_overhangs, |
50097 | 10650 x_fix_overlapping_area, |
50151
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
10651 x_draw_fringe_bitmap, |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
10652 x_per_char_metric, |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
10653 x_encode_char, |
0e12b5894d99
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50130
diff
changeset
|
10654 x_compute_glyph_string_overhangs, |
50237
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10655 x_draw_glyph_string, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10656 x_define_frame_cursor, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10657 x_clear_frame_area, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10658 x_draw_window_cursor, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10659 x_draw_vertical_window_border, |
160bd7db88a1
* xterm.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50177
diff
changeset
|
10660 x_shift_glyphs_for_insert |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10661 }; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10662 |
21514 | 10663 void |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10664 x_initialize () |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10665 { |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10666 rif = &x_redisplay_interface; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10667 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10668 clear_frame_hook = x_clear_frame; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10669 ins_del_lines_hook = x_ins_del_lines; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10670 delete_glyphs_hook = x_delete_glyphs; |
286 | 10671 ring_bell_hook = XTring_bell; |
10672 reset_terminal_modes_hook = XTreset_terminal_modes; | |
10673 set_terminal_modes_hook = XTset_terminal_modes; | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10674 update_begin_hook = x_update_begin; |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10675 update_end_hook = x_update_end; |
286 | 10676 set_terminal_window_hook = XTset_terminal_window; |
10677 read_socket_hook = XTread_socket; | |
6616
951c8941b931
[INCLUDED_FCNTL]: Don't include fcntl.h again.
Richard M. Stallman <rms@gnu.org>
parents:
6560
diff
changeset
|
10678 frame_up_to_date_hook = XTframe_up_to_date; |
1720
4f5e3ac5d822
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1658
diff
changeset
|
10679 mouse_position_hook = XTmouse_position; |
771 | 10680 frame_rehighlight_hook = XTframe_rehighlight; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1810
diff
changeset
|
10681 frame_raise_lower_hook = XTframe_raise_lower; |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
10682 set_vertical_scroll_bar_hook = XTset_vertical_scroll_bar; |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
10683 condemn_scroll_bars_hook = XTcondemn_scroll_bars; |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
10684 redeem_scroll_bar_hook = XTredeem_scroll_bar; |
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
10685 judge_scroll_bars_hook = XTjudge_scroll_bars; |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
10686 |
771 | 10687 scroll_region_ok = 1; /* we'll scroll partial frames */ |
35393
2470cdee5ed8
(x_initialize): Set char_ins_del_ok to 1.
Gerd Moellmann <gerd@gnu.org>
parents:
35367
diff
changeset
|
10688 char_ins_del_ok = 1; |
286 | 10689 line_ins_del_ok = 1; /* we'll just blt 'em */ |
10690 fast_clear_end_of_line = 1; /* X does this well */ | |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
10691 memory_below_frame = 0; /* we don't remember what scrolls |
286 | 10692 off the bottom */ |
10693 baud_rate = 19200; | |
10694 | |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10695 x_noop_count = 0; |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25541
diff
changeset
|
10696 last_tool_bar_item = -1; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10697 any_help_event_p = 0; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10698 |
4476
e7de1b007447
(x_term_init): Set the hooks before we call Fset_input_mode.
Richard M. Stallman <rms@gnu.org>
parents:
4304
diff
changeset
|
10699 /* Try to use interrupt input; if we can't, then start polling. */ |
e7de1b007447
(x_term_init): Set the hooks before we call Fset_input_mode.
Richard M. Stallman <rms@gnu.org>
parents:
4304
diff
changeset
|
10700 Fset_input_mode (Qt, Qnil, Qt, Qnil); |
e7de1b007447
(x_term_init): Set the hooks before we call Fset_input_mode.
Richard M. Stallman <rms@gnu.org>
parents:
4304
diff
changeset
|
10701 |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10702 #ifdef USE_X_TOOLKIT |
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10703 XtToolkitInitialize (); |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10704 |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10705 Xt_app_con = XtCreateApplicationContext (); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10706 |
37143
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10707 /* Register a converter from strings to pixels, which uses |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10708 Emacs' color allocation infrastructure. */ |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10709 XtAppSetTypeConverter (Xt_app_con, |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10710 XtRString, XtRPixel, cvt_string_to_pixel, |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10711 cvt_string_to_pixel_args, |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10712 XtNumber (cvt_string_to_pixel_args), |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10713 XtCacheByDisplay, cvt_pixel_dtor); |
187f754d89cc
(x_alloc_nearest_color_1): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37033
diff
changeset
|
10714 |
12494
bfbe2490dbf0
(x_initialize) [USE_X_TOOLKIT]: Set fallback resources.
Richard M. Stallman <rms@gnu.org>
parents:
12431
diff
changeset
|
10715 XtAppSetFallbackResources (Xt_app_con, Xt_default_resources); |
27428
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10716 |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10717 /* Install an asynchronous timer that processes Xt timeout events |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10718 every 0.1s. This is necessary because some widget sets use |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10719 timeouts internally, for example the LessTif menu bar, or the |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10720 Xaw3d scroll bar. When Xt timouts aren't processed, these |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10721 widgets don't behave normally. */ |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10722 { |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10723 EMACS_TIME interval; |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10724 EMACS_SET_SECS_USECS (interval, 0, 100000); |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10725 start_atimer (ATIMER_CONTINUOUS, interval, x_process_timeouts, 0); |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10726 } |
c8b20597f0fd
(toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27040
diff
changeset
|
10727 #endif |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10728 |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
10729 #ifdef USE_TOOLKIT_SCROLL_BARS |
49322 | 10730 #ifndef USE_GTK |
26789
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
10731 xaw3d_arrow_scroll = False; |
03a6016a38bf
(#includes): Allow compilation with only Xaw.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26633
diff
changeset
|
10732 xaw3d_pick_top = True; |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10733 #endif |
49322 | 10734 #endif |
9741
bd9d06e542c6
(x_delete_display): Call XrmDestroyDatabase.
Richard M. Stallman <rms@gnu.org>
parents:
9704
diff
changeset
|
10735 |
9537
f025140f7ff7
(stuffline, scraplines): Functions deleted.
Karl Heuer <kwzh@gnu.org>
parents:
9526
diff
changeset
|
10736 /* Note that there is no real way portable across R3/R4 to get the |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10737 original error handler. */ |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10738 XSetErrorHandler (x_error_handler); |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10739 XSetIOErrorHandler (x_io_error_quitter); |
286 | 10740 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10741 /* Disable Window Change signals; they are handled by X events. */ |
286 | 10742 #ifdef SIGWINCH |
10743 signal (SIGWINCH, SIG_DFL); | |
44763
f6ac4d8b01cd
Fix misleading comment after #endif.
Pavel Janík <Pavel@Janik.cz>
parents:
44708
diff
changeset
|
10744 #endif /* SIGWINCH */ |
1052
b8defcaf1b61
* xterm.c (x_make_frame_invisible): Don't forget to check the
Jim Blandy <jimb@redhat.com>
parents:
1020
diff
changeset
|
10745 |
10743
6977bff3ff38
(x_display_bar_cursor): Use frame's cursor_width.
Richard M. Stallman <rms@gnu.org>
parents:
10652
diff
changeset
|
10746 signal (SIGPIPE, x_connection_signal); |
43812
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
10747 |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
10748 #ifdef HAVE_X_SM |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
10749 x_session_initialize (); |
20dbe11a2ad3
Added calls to x_session_check_input () and x_session_initialize ().
Jan Djärv <jan.h.d@swipnet.se>
parents:
43713
diff
changeset
|
10750 #endif |
286 | 10751 } |
395 | 10752 |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10753 |
395 | 10754 void |
10755 syms_of_xterm () | |
10756 { | |
17607
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10757 staticpro (&x_error_message_string); |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10758 x_error_message_string = Qnil; |
251e103f2d53
(XTmouse_position, x_term_init):
Richard M. Stallman <rms@gnu.org>
parents:
17575
diff
changeset
|
10759 |
9704
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10760 staticpro (&x_display_name_list); |
39b34bbe59c9
(x_catch_errors, x_check_errors, x_had_errors_p)
Richard M. Stallman <rms@gnu.org>
parents:
9654
diff
changeset
|
10761 x_display_name_list = Qnil; |
9654
41681efe1086
Use FRAME_X_DISPLAY instead of x_current_display and XDISPLAY.
Richard M. Stallman <rms@gnu.org>
parents:
9577
diff
changeset
|
10762 |
1993
645d96bd3daf
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1935
diff
changeset
|
10763 staticpro (&last_mouse_scroll_bar); |
4948
7653c78ac0c1
(syms_of_xterm): Initialize last_mouse_scroll_bar.
Richard M. Stallman <rms@gnu.org>
parents:
4909
diff
changeset
|
10764 last_mouse_scroll_bar = Qnil; |
11807
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10765 |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10766 staticpro (&Qvendor_specific_keysyms); |
73fb6570f718
(Qvendor_specific_keysyms): New var.
Karl Heuer <kwzh@gnu.org>
parents:
11610
diff
changeset
|
10767 Qvendor_specific_keysyms = intern ("vendor-specific-keysyms"); |
15803
f214673e68a8
(XTread_socket): Pass keys in menu bar to toolkit alone
Richard M. Stallman <rms@gnu.org>
parents:
15794
diff
changeset
|
10768 |
44626
404f74d6dc4a
(Qlatin_1, Qutf_8): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44533
diff
changeset
|
10769 staticpro (&Qutf_8); |
404f74d6dc4a
(Qlatin_1, Qutf_8): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44533
diff
changeset
|
10770 Qutf_8 = intern ("utf-8"); |
404f74d6dc4a
(Qlatin_1, Qutf_8): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44533
diff
changeset
|
10771 staticpro (&Qlatin_1); |
404f74d6dc4a
(Qlatin_1, Qutf_8): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44533
diff
changeset
|
10772 Qlatin_1 = intern ("latin-1"); |
404f74d6dc4a
(Qlatin_1, Qutf_8): New vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44533
diff
changeset
|
10773 |
15803
f214673e68a8
(XTread_socket): Pass keys in menu bar to toolkit alone
Richard M. Stallman <rms@gnu.org>
parents:
15794
diff
changeset
|
10774 staticpro (&last_mouse_press_frame); |
f214673e68a8
(XTread_socket): Pass keys in menu bar to toolkit alone
Richard M. Stallman <rms@gnu.org>
parents:
15794
diff
changeset
|
10775 last_mouse_press_frame = Qnil; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10776 |
37153
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
10777 DEFVAR_BOOL ("x-use-underline-position-properties", |
39988
eac4e9ae201c
Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents:
39973
diff
changeset
|
10778 &x_use_underline_position_properties, |
eac4e9ae201c
Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents:
39973
diff
changeset
|
10779 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. |
42206 | 10780 nil means ignore them. If you encounter fonts with bogus |
39914
91951fb5b9e5
Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents:
39821
diff
changeset
|
10781 UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
91951fb5b9e5
Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents:
39821
diff
changeset
|
10782 to 4.1, set this to nil. */); |
37153
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
10783 x_use_underline_position_properties = 1; |
3799cab1815b
(x_use_underline_position_properties): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
37143
diff
changeset
|
10784 |
39988
eac4e9ae201c
Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents:
39973
diff
changeset
|
10785 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, |
eac4e9ae201c
Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents:
39973
diff
changeset
|
10786 doc: /* What X toolkit scroll bars Emacs uses. |
39914
91951fb5b9e5
Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents:
39821
diff
changeset
|
10787 A value of nil means Emacs doesn't use X toolkit scroll bars. |
91951fb5b9e5
Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents:
39821
diff
changeset
|
10788 Otherwise, value is a symbol describing the X toolkit. */); |
34066
2482c17f546e
Test USE_TOOLKIT_SCROLL_BARS everywhere with #ifdef and
Gerd Moellmann <gerd@gnu.org>
parents:
34030
diff
changeset
|
10789 #ifdef USE_TOOLKIT_SCROLL_BARS |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10790 #ifdef USE_MOTIF |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10791 Vx_toolkit_scroll_bars = intern ("motif"); |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10792 #elif defined HAVE_XAW3D |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10793 Vx_toolkit_scroll_bars = intern ("xaw3d"); |
49322 | 10794 #elif USE_GTK |
10795 Vx_toolkit_scroll_bars = intern ("gtk"); | |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10796 #else |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10797 Vx_toolkit_scroll_bars = intern ("xaw"); |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10798 #endif |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10799 #else |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34673
diff
changeset
|
10800 Vx_toolkit_scroll_bars = Qnil; |
24991
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10801 #endif |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10802 |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10803 staticpro (&last_mouse_motion_frame); |
53d428012caf
Display-related functions implemented from scratch. Add toolkit
Gerd Moellmann <gerd@gnu.org>
parents:
24941
diff
changeset
|
10804 last_mouse_motion_frame = Qnil; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10805 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10806 Qmodifier_value = intern ("modifier-value"); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10807 Qalt = intern ("alt"); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10808 Fput (Qalt, Qmodifier_value, make_number (alt_modifier)); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10809 Qhyper = intern ("hyper"); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10810 Fput (Qhyper, Qmodifier_value, make_number (hyper_modifier)); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10811 Qmeta = intern ("meta"); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10812 Fput (Qmeta, Qmodifier_value, make_number (meta_modifier)); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10813 Qsuper = intern ("super"); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10814 Fput (Qsuper, Qmodifier_value, make_number (super_modifier)); |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10815 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10816 DEFVAR_LISP ("x-alt-keysym", &Vx_alt_keysym, |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10817 doc: /* Which keys Emacs uses for the alt modifier. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10818 This should be one of the symbols `alt', `hyper', `meta', `super'. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10819 For example, `alt' means use the Alt_L and Alt_R keysyms. The default |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10820 is nil, which is the same as `alt'. */); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10821 Vx_alt_keysym = Qnil; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10822 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10823 DEFVAR_LISP ("x-hyper-keysym", &Vx_hyper_keysym, |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10824 doc: /* Which keys Emacs uses for the hyper modifier. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10825 This should be one of the symbols `alt', `hyper', `meta', `super'. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10826 For example, `hyper' means use the Hyper_L and Hyper_R keysyms. The |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10827 default is nil, which is the same as `hyper'. */); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10828 Vx_hyper_keysym = Qnil; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10829 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10830 DEFVAR_LISP ("x-meta-keysym", &Vx_meta_keysym, |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10831 doc: /* Which keys Emacs uses for the meta modifier. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10832 This should be one of the symbols `alt', `hyper', `meta', `super'. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10833 For example, `meta' means use the Meta_L and Meta_R keysyms. The |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10834 default is nil, which is the same as `meta'. */); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10835 Vx_meta_keysym = Qnil; |
47942
080b4586492b
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
47766
diff
changeset
|
10836 |
43302
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10837 DEFVAR_LISP ("x-super-keysym", &Vx_super_keysym, |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10838 doc: /* Which keys Emacs uses for the super modifier. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10839 This should be one of the symbols `alt', `hyper', `meta', `super'. |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10840 For example, `super' means use the Super_L and Super_R keysyms. The |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10841 default is nil, which is the same as `super'. */); |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10842 Vx_super_keysym = Qnil; |
2f479ac769e1
(Vx_alt_keysym, Vx_hyper_keysym, Vx_meta_keysym)
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
42996
diff
changeset
|
10843 |
48085 | 10844 DEFVAR_LISP ("x-keysym-table", &Vx_keysym_table, |
10845 doc: /* Hash table of character codes indexed by X keysym codes. */); | |
10846 Vx_keysym_table = make_hash_table (Qeql, make_number (900), | |
10847 make_float (DEFAULT_REHASH_SIZE), | |
10848 make_float (DEFAULT_REHASH_THRESHOLD), | |
10849 Qnil, Qnil, Qnil); | |
395 | 10850 } |
14694
41de9b2640a1
(X_CONNECTION_LOCK_FLAG): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
14692
diff
changeset
|
10851 |
39096 | 10852 #endif /* HAVE_X_WINDOWS */ |