annotate src/xfns.c @ 91411:ebb1b38229bc

Add copyright and license notice.
author Glenn Morris <rgm@gnu.org>
date Sat, 02 Feb 2008 03:50:03 +0000
parents 606f2d163a64
children e33a0659fabe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Functions for the X window system.
59905
d6551c039c8f Copyright update.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 59904
diff changeset
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79392
diff changeset
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79392
diff changeset
4 Free Software Foundation, Inc.
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 This file is part of GNU Emacs.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 GNU Emacs is free software; you can redistribute it and/or modify
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
78260
922696f363b0 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 77854
diff changeset
10 the Free Software Foundation; either version 3, or (at your option)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 any later version.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 GNU General Public License for more details.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63772
diff changeset
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63772
diff changeset
21 Boston, MA 02110-1301, USA. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26032
diff changeset
23 #include <config.h>
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
24 #include <stdio.h>
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
25 #include <math.h>
7899
facf6b0e97ff Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 7860
diff changeset
26
40700
6f6287da52d1 Include unistd.h, if it exists.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
27 #ifdef HAVE_UNISTD_H
6f6287da52d1 Include unistd.h, if it exists.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
28 #include <unistd.h>
6f6287da52d1 Include unistd.h, if it exists.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
29 #endif
6f6287da52d1 Include unistd.h, if it exists.
Richard M. Stallman <rms@gnu.org>
parents: 40656
diff changeset
30
8091
f40cbe50c74f (XLIB_ILLEGAL_ACCESS): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 8090
diff changeset
31 /* This makes the fields of a Display accessible, in Xlib header files. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
32
8091
f40cbe50c74f (XLIB_ILLEGAL_ACCESS): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 8090
diff changeset
33 #define XLIB_ILLEGAL_ACCESS
f40cbe50c74f (XLIB_ILLEGAL_ACCESS): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 8090
diff changeset
34
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #include "lisp.h"
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 #include "xterm.h"
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
37 #include "frame.h"
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 #include "window.h"
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 #include "buffer.h"
26876
578acd06aa3b Include intervals.h.
Kenichi Handa <handa@m17n.org>
parents: 26808
diff changeset
40 #include "intervals.h"
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 #include "dispextern.h"
515
0005d4c90c97 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 485
diff changeset
42 #include "keyboard.h"
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2355
diff changeset
43 #include "blockinput.h"
24412
d11ac02f9d6a Use epaths.h istead of paths.h.
Richard M. Stallman <rms@gnu.org>
parents: 24170
diff changeset
44 #include <epaths.h>
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
45 #include "character.h"
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
46 #include "charset.h"
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
47 #include "coding.h"
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
48 #include "fontset.h"
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
49 #include "systime.h"
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
50 #include "termhooks.h"
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
51 #include "atimer.h"
53226
dd3018b4785b Implemented multiple tty support.
Karoly Lorentey <lorentey@elte.hu>
parents: 53069
diff changeset
52 #include "termchar.h"
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
54 #ifdef USE_FONT_BACKEND
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
55 #include "font.h"
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
56 #endif /* USE_FONT_BACKEND */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
57
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 #ifdef HAVE_X_WINDOWS
25451
786ab5197e4b Include <stdlib.h> if available, and declare abort only if not. Include
Andreas Schwab <schwab@suse.de>
parents: 25390
diff changeset
59
786ab5197e4b Include <stdlib.h> if available, and declare abort only if not. Include
Andreas Schwab <schwab@suse.de>
parents: 25390
diff changeset
60 #include <ctype.h>
27069
b2934c683b5e (gif_load): Avoid sign extension and thus out of bounds
Gerd Moellmann <gerd@gnu.org>
parents: 27066
diff changeset
61 #include <sys/types.h>
b2934c683b5e (gif_load): Avoid sign extension and thus out of bounds
Gerd Moellmann <gerd@gnu.org>
parents: 27066
diff changeset
62 #include <sys/stat.h>
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63
2355
cec8c9490d8a * xfns.c [VMS]: Get the gray_bits from [.bitmaps]gray.xbm.
Jim Blandy <jimb@redhat.com>
parents: 2341
diff changeset
64 #ifndef VMS
3821
8f353c2491d0 * xfns.c: Always #include "bitmaps/gray.xbm"; the bitmaps seem to
Jim Blandy <jimb@redhat.com>
parents: 3692
diff changeset
65 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
3512
2657b04dd324 [EMACS_BIT_MAPS]: Include gray.xbm from ./bitmaps.
Richard M. Stallman <rms@gnu.org>
parents: 3507
diff changeset
66 #include "bitmaps/gray.xbm"
2657b04dd324 [EMACS_BIT_MAPS]: Include gray.xbm from ./bitmaps.
Richard M. Stallman <rms@gnu.org>
parents: 3507
diff changeset
67 #else
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1786
diff changeset
68 #include <X11/bitmaps/gray>
3512
2657b04dd324 [EMACS_BIT_MAPS]: Include gray.xbm from ./bitmaps.
Richard M. Stallman <rms@gnu.org>
parents: 3507
diff changeset
69 #endif
2355
cec8c9490d8a * xfns.c [VMS]: Get the gray_bits from [.bitmaps]gray.xbm.
Jim Blandy <jimb@redhat.com>
parents: 2341
diff changeset
70 #else
cec8c9490d8a * xfns.c [VMS]: Get the gray_bits from [.bitmaps]gray.xbm.
Jim Blandy <jimb@redhat.com>
parents: 2341
diff changeset
71 #include "[.bitmaps]gray.xbm"
cec8c9490d8a * xfns.c [VMS]: Get the gray_bits from [.bitmaps]gray.xbm.
Jim Blandy <jimb@redhat.com>
parents: 2341
diff changeset
72 #endif
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1786
diff changeset
73
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
74 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
75 #include "gtkutil.h"
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
76 #endif
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
77
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
78 #ifdef USE_X_TOOLKIT
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
79 #include <X11/Shell.h>
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
80
12616
ca170048a679 [USE_MOTIF]: Don't include X11/Xaw/Paned.h, X11/Xaw/Label.h.
Richard M. Stallman <rms@gnu.org>
parents: 12546
diff changeset
81 #ifndef USE_MOTIF
81374
c567f60cd935 Link to xaw3d if available.
Chong Yidong <cyd@stupidchicken.com>
parents: 81291
diff changeset
82 #ifdef HAVE_XAW3D
c567f60cd935 Link to xaw3d if available.
Chong Yidong <cyd@stupidchicken.com>
parents: 81291
diff changeset
83 #include <X11/Xaw3d/Paned.h>
81375
7d290e488d73 Fix last fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 81374
diff changeset
84 #include <X11/Xaw3d/Label.h>
81374
c567f60cd935 Link to xaw3d if available.
Chong Yidong <cyd@stupidchicken.com>
parents: 81291
diff changeset
85 #else /* !HAVE_XAW3D */
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
86 #include <X11/Xaw/Paned.h>
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
87 #include <X11/Xaw/Label.h>
81374
c567f60cd935 Link to xaw3d if available.
Chong Yidong <cyd@stupidchicken.com>
parents: 81291
diff changeset
88 #endif /* HAVE_XAW3D */
12616
ca170048a679 [USE_MOTIF]: Don't include X11/Xaw/Paned.h, X11/Xaw/Label.h.
Richard M. Stallman <rms@gnu.org>
parents: 12546
diff changeset
89 #endif /* USE_MOTIF */
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
90
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
91 #ifdef USG
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
92 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
93 #include <X11/Xos.h>
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
94 #define USG
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
95 #else
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
96 #include <X11/Xos.h>
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
97 #endif
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
98
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
99 #include "widget.h"
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
100
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
101 #include "../lwlib/lwlib.h"
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
102
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
103 #ifdef USE_MOTIF
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
104 #include <Xm/Xm.h>
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
105 #include <Xm/DialogS.h>
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
106 #include <Xm/FileSB.h>
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
107 #endif
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
108
13508
b64345cf1ee9 (HACK_EDITRES): Don't define if NO_EDITRES is defined.
Richard M. Stallman <rms@gnu.org>
parents: 13227
diff changeset
109 /* Do the EDITRES protocol if running X11R5
b64345cf1ee9 (HACK_EDITRES): Don't define if NO_EDITRES is defined.
Richard M. Stallman <rms@gnu.org>
parents: 13227
diff changeset
110 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
111
13508
b64345cf1ee9 (HACK_EDITRES): Don't define if NO_EDITRES is defined.
Richard M. Stallman <rms@gnu.org>
parents: 13227
diff changeset
112 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
113 #define HACK_EDITRES
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
114 extern void _XEditResCheckMessages ();
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
115 #endif /* R5 + Athena */
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
116
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
117 /* Unique id counter for widgets created by the Lucid Widget Library. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
118
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
119 extern LWLIB_ID widget_id_tick;
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
120
15720
f1549b7501af (Fx_create_frame): Do xlwmenu hack only if USE_LUCID.
Karl Heuer <kwzh@gnu.org>
parents: 15706
diff changeset
121 #ifdef USE_LUCID
9742
fe7653791d28 (Fx_create_frame): Set xlwmenu_default_font.
Richard M. Stallman <rms@gnu.org>
parents: 9703
diff changeset
122 /* This is part of a kludge--see lwlib/xlwmenu.c. */
15706
bf891f379d9f (xlwmenu_default_font): Declare, but don't define.
Karl Heuer <kwzh@gnu.org>
parents: 15704
diff changeset
123 extern XFontStruct *xlwmenu_default_font;
15720
f1549b7501af (Fx_create_frame): Do xlwmenu hack only if USE_LUCID.
Karl Heuer <kwzh@gnu.org>
parents: 15706
diff changeset
124 #endif
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
125
5900
284c0d70a50a (x_set_menu_bar_lines) [USE_X_TOOLKIT]: Dont Call XtDestroyWidget but
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 5899
diff changeset
126 extern void free_frame_menubar ();
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
127 extern double atof ();
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
128
37210
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
129 #ifdef USE_MOTIF
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
130
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
131 /* LessTif/Motif version info. */
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
132
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
133 static Lisp_Object Vmotif_version_string;
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
134
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
135 #endif /* USE_MOTIF */
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
136
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
137 #endif /* USE_X_TOOLKIT */
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
138
52334
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
139 #ifdef USE_GTK
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
140
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
141 /* GTK+ version info */
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
142
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
143 static Lisp_Object Vgtk_version_string;
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
144
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
145 #endif /* USE_GTK */
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
146
4279
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
147 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
148
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
149 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
150 it, and including `bitmaps/gray' more than once is a problem when
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
151 config.h defines `static' as an empty replacement string. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
152
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
153 int gray_bitmap_width = gray_width;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
154 int gray_bitmap_height = gray_height;
34512
d069886667e6 (gray_bitmap_bits): Declare `char *'.
Gerd Moellmann <gerd@gnu.org>
parents: 34476
diff changeset
155 char *gray_bitmap_bits = gray_bits;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
156
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
157 /* Non-zero means we're allowed to display an hourglass cursor. */
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
158
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
159 int display_hourglass_p;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
160
58463
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
161 /* Non-zero means prompt with the old GTK file selection dialog. */
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
162
72964
4e1cc9325b0e * xfns.c (syms_of_xfns): Rename x-use-old-gtk-file-dialog
Jan Djärv <jan.h.d@swipnet.se>
parents: 72932
diff changeset
163 int x_gtk_use_old_file_dialog;
58463
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
164
67842
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
165 /* If non-zero, by default show hidden files in the GTK file chooser. */
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
166
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
167 int x_gtk_show_hidden_files;
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
168
72932
eea4777d0d23 * xfns.c (syms_of_xfns): New variable: x-gtk-show-chooser-help-text.
Jan Djärv <jan.h.d@swipnet.se>
parents: 72777
diff changeset
169 /* If non-zero, don't show additional help text in the GTK file chooser. */
eea4777d0d23 * xfns.c (syms_of_xfns): New variable: x-gtk-show-chooser-help-text.
Jan Djärv <jan.h.d@swipnet.se>
parents: 72777
diff changeset
170
72969
f8188a2ff5f6 * xfns.c (syms_of_xfns): Rename x_gtk_show_chooser_help_text to
Jan Djärv <jan.h.d@swipnet.se>
parents: 72964
diff changeset
171 int x_gtk_file_dialog_help_text;
72932
eea4777d0d23 * xfns.c (syms_of_xfns): New variable: x-gtk-show-chooser-help-text.
Jan Djärv <jan.h.d@swipnet.se>
parents: 72777
diff changeset
172
68880
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
173 /* If non-zero, don't collapse to tool bar when it is detached. */
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
174
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
175 int x_gtk_whole_detached_tool_bar;
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
176
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 /* The background and shape of the mouse pointer, and shape when not
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
178 over text or in the modeline. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
179
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape;
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
181 Lisp_Object Vx_hourglass_pointer_shape;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
182
7683
be3423efbdce (Vx_sensitive_text_pointer_shape):
Richard M. Stallman <rms@gnu.org>
parents: 7599
diff changeset
183 /* The shape when over mouse-sensitive text. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
184
7683
be3423efbdce (Vx_sensitive_text_pointer_shape):
Richard M. Stallman <rms@gnu.org>
parents: 7599
diff changeset
185 Lisp_Object Vx_sensitive_text_pointer_shape;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
187 /* If non-nil, the pointer shape to indicate that windows can be
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
188 dragged horizontally. */
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
189
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
190 Lisp_Object Vx_window_horizontal_drag_shape;
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
191
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
192 /* Color of chars displayed in cursor box. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
193
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 Lisp_Object Vx_cursor_fore_pixel;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
196 /* Nonzero if using X. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
197
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
198 static int x_in_use;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
199
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
200 /* Non nil if no window manager is in use. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
201
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 Lisp_Object Vx_no_window_manager;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
204 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
205
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
206 Lisp_Object Vx_pixel_size_width_font_regexp;
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
207
1874
19cf50641d6c * frame.c (Fframe_parameters): Report the `minibuffer' parameter of
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
208 Lisp_Object Qnone;
2328
82e4fed9cdd6 * xfns.c (Fx_parse_geometry): Renamed from Fx_geometry.
Jim Blandy <jimb@redhat.com>
parents: 2295
diff changeset
209 Lisp_Object Qsuppress_icon;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 Lisp_Object Qundefined_color;
35402
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
211 Lisp_Object Qcompound_text, Qcancel_timer;
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
212
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
213 /* In dispnew.c */
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
214
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
215 extern Lisp_Object Vwindow_system_version;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
216
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
217 /* The below are defined in frame.c. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
218
34895
53e52b3525bf Use #if GLYPH_DEBUG instead of #ifdef GLYPH_DEBUG.
Gerd Moellmann <gerd@gnu.org>
parents: 34662
diff changeset
219 #if GLYPH_DEBUG
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
220 int image_cache_refcount, dpyinfo_refcount;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
221 #endif
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
222
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
223
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224
2999
33c820044087 (check_x): New function.
Richard M. Stallman <rms@gnu.org>
parents: 2964
diff changeset
225 /* Error if we are not connected to X. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
226
5948
ef777779bd80 (check_x): Make it global.
Karl Heuer <kwzh@gnu.org>
parents: 5900
diff changeset
227 void
2999
33c820044087 (check_x): New function.
Richard M. Stallman <rms@gnu.org>
parents: 2964
diff changeset
228 check_x ()
33c820044087 (check_x): New function.
Richard M. Stallman <rms@gnu.org>
parents: 2964
diff changeset
229 {
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
230 if (! x_in_use)
2999
33c820044087 (check_x): New function.
Richard M. Stallman <rms@gnu.org>
parents: 2964
diff changeset
231 error ("X windows are not in use or not initialized");
33c820044087 (check_x): New function.
Richard M. Stallman <rms@gnu.org>
parents: 2964
diff changeset
232 }
33c820044087 (check_x): New function.
Richard M. Stallman <rms@gnu.org>
parents: 2964
diff changeset
233
13867
19a05b5a597d (check_x_display_info, check_x_frame, x_set_font)
Richard M. Stallman <rms@gnu.org>
parents: 13781
diff changeset
234 /* Nonzero if we can use mouse menus.
19a05b5a597d (check_x_display_info, check_x_frame, x_set_font)
Richard M. Stallman <rms@gnu.org>
parents: 13781
diff changeset
235 You should not call this unless HAVE_MENUS is defined. */
7791
2b4e4a76468b (using_x_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7683
diff changeset
236
2b4e4a76468b (using_x_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7683
diff changeset
237 int
13867
19a05b5a597d (check_x_display_info, check_x_frame, x_set_font)
Richard M. Stallman <rms@gnu.org>
parents: 13781
diff changeset
238 have_menus_p ()
7791
2b4e4a76468b (using_x_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7683
diff changeset
239 {
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
240 return x_in_use;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
241 }
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
242
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
243 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
244 and checking validity for X. */
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
245
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
246 FRAME_PTR
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
247 check_x_frame (frame)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
248 Lisp_Object frame;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
249 {
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
250 FRAME_PTR f;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
251
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
252 if (NILP (frame))
25679
8b09c5927f1c (QCfile): Moved to xdisp.c.
Gerd Moellmann <gerd@gnu.org>
parents: 25646
diff changeset
253 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
254 CHECK_LIVE_FRAME (frame);
25679
8b09c5927f1c (QCfile): Moved to xdisp.c.
Gerd Moellmann <gerd@gnu.org>
parents: 25646
diff changeset
255 f = XFRAME (frame);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
256 if (! FRAME_X_P (f))
13867
19a05b5a597d (check_x_display_info, check_x_frame, x_set_font)
Richard M. Stallman <rms@gnu.org>
parents: 13781
diff changeset
257 error ("Non-X frame used");
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
258 return f;
7791
2b4e4a76468b (using_x_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7683
diff changeset
259 }
2b4e4a76468b (using_x_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7683
diff changeset
260
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
261 /* Let the user specify an X display with a Lisp object.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
262 OBJECT may be nil, a frame or a terminal id.
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
263 nil stands for the selected frame--or, if that is not an X frame,
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
264 the first X display on the list. */
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
265
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
266 struct x_display_info *
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
267 check_x_display_info (object)
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
268 Lisp_Object object;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
269 {
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
270 struct x_display_info *dpyinfo = NULL;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
271
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
272 if (NILP (object))
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
273 {
25679
8b09c5927f1c (QCfile): Moved to xdisp.c.
Gerd Moellmann <gerd@gnu.org>
parents: 25646
diff changeset
274 struct frame *sf = XFRAME (selected_frame);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
275
25679
8b09c5927f1c (QCfile): Moved to xdisp.c.
Gerd Moellmann <gerd@gnu.org>
parents: 25646
diff changeset
276 if (FRAME_X_P (sf) && FRAME_LIVE_P (sf))
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
277 dpyinfo = FRAME_X_DISPLAY_INFO (sf);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
278 else if (x_display_list != 0)
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
279 dpyinfo = x_display_list;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
280 else
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
281 error ("X windows are not in use or not initialized");
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
282 }
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
283 else if (INTEGERP (object))
83167
69ebc75cb461 Implemented display ids for multiple emacsclients on the same tty. Plus assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83123
diff changeset
284 {
83760
aa5347e75afa (check_x_display_info): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83648
diff changeset
285 struct terminal *t = get_terminal (object, 1);
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
286
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
287 if (t->type != output_x_window)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
288 error ("Terminal %d is not an X display", XINT (object));
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
289
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
290 dpyinfo = t->display_info.x;
83167
69ebc75cb461 Implemented display ids for multiple emacsclients on the same tty. Plus assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83123
diff changeset
291 }
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
292 else if (STRINGP (object))
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
293 dpyinfo = x_display_info_for_name (object);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
294 else
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
295 {
83342
9216636c02fc Rename `struct display' to `struct device'. Update function, parameter and variable names accordingly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83332
diff changeset
296 FRAME_PTR f = check_x_frame (object);
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
297 dpyinfo = FRAME_X_DISPLAY_INFO (f);
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
298 }
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
299
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
300 return dpyinfo;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
301 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
302
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
303
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
304 /* Return the Emacs frame-object corresponding to an X window.
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
305 It could be the frame's main window or an icon window. */
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
306
9948
982820033564 (x_window_to_frame, x_any_window_to_frame, x_top_window_to_frame): Use the new
Karl Heuer <kwzh@gnu.org>
parents: 9813
diff changeset
307 /* This function can be called during GC, so use GC_xxx type test macros. */
2964
a0ff2bc5dd05 (x_window_to_frame): Use XGCTYPE.
Richard M. Stallman <rms@gnu.org>
parents: 2936
diff changeset
308
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
309 struct frame *
11197
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
310 x_window_to_frame (dpyinfo, wdesc)
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
311 struct x_display_info *dpyinfo;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 int wdesc;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 {
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
314 Lisp_Object tail, frame;
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
315 struct frame *f;
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
316
56781
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
317 if (wdesc == None) return 0;
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
318
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
319 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
320 {
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
321 frame = XCAR (tail);
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
322 if (!FRAMEP (frame))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 continue;
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
324 f = XFRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
325 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
11197
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
326 continue;
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
327 if (f->output_data.x->hourglass_window == wdesc)
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
328 return f;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
329 #ifdef USE_X_TOOLKIT
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
330 if ((f->output_data.x->edit_widget
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
331 && XtWindow (f->output_data.x->edit_widget) == wdesc)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
332 /* A tooltip frame? */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
333 || (!f->output_data.x->edit_widget
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
334 && FRAME_X_WINDOW (f) == wdesc)
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
335 || f->output_data.x->icon_desc == wdesc)
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
336 return f;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
337 #else /* not USE_X_TOOLKIT */
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
338 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
339 if (f->output_data.x->edit_widget)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
340 {
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
341 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
342 struct x_output *x = f->output_data.x;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
343 if (gwdesc != 0 && gwdesc == x->edit_widget)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
344 return f;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
345 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
346 #endif /* USE_GTK */
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
347 if (FRAME_X_WINDOW (f) == wdesc
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
348 || f->output_data.x->icon_desc == wdesc)
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
349 return f;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
350 #endif /* not USE_X_TOOLKIT */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 return 0;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
355 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
356 /* Like x_window_to_frame but also compares the window with the widget's
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
357 windows. */
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
358
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
359 struct frame *
11197
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
360 x_any_window_to_frame (dpyinfo, wdesc)
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
361 struct x_display_info *dpyinfo;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
362 int wdesc;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
363 {
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
364 Lisp_Object tail, frame;
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
365 struct frame *f, *found;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
366 struct x_output *x;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
367
56781
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
368 if (wdesc == None) return NULL;
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
369
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
370 found = NULL;
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
371 for (tail = Vframe_list; CONSP (tail) && !found; tail = XCDR (tail))
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
372 {
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
373 frame = XCAR (tail);
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
374 if (!FRAMEP (frame))
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
375 continue;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
376
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
377 f = XFRAME (frame);
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
378 if (FRAME_X_P (f) && FRAME_X_DISPLAY_INFO (f) == dpyinfo)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
379 {
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
380 /* This frame matches if the window is any of its widgets. */
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
381 x = f->output_data.x;
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
382 if (x->hourglass_window == wdesc)
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
383 found = f;
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
384 else if (x->widget)
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
385 {
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
386 #ifdef USE_GTK
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
387 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
388 if (gwdesc != 0
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
389 && (gwdesc == x->widget
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
390 || gwdesc == x->edit_widget
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
391 || gwdesc == x->vbox_widget
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
392 || gwdesc == x->menubar_widget))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
393 found = f;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
394 #else
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
395 if (wdesc == XtWindow (x->widget)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
396 || wdesc == XtWindow (x->column_widget)
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
397 || wdesc == XtWindow (x->edit_widget))
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
398 found = f;
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
399 /* Match if the window is this frame's menubar. */
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
400 else if (lw_window_is_in_menubar (wdesc, x->menubar_widget))
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
401 found = f;
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
402 #endif
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
403 }
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
404 else if (FRAME_X_WINDOW (f) == wdesc)
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
405 /* A tooltip frame. */
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
406 found = f;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
407 }
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
408 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
409
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
410 return found;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
411 }
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
412
11611
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
413 /* Likewise, but exclude the menu bar widget. */
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
414
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
415 struct frame *
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
416 x_non_menubar_window_to_frame (dpyinfo, wdesc)
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
417 struct x_display_info *dpyinfo;
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
418 int wdesc;
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
419 {
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
420 Lisp_Object tail, frame;
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
421 struct frame *f;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
422 struct x_output *x;
11611
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
423
56781
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
424 if (wdesc == None) return 0;
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
425
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
426 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
427 {
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
428 frame = XCAR (tail);
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
429 if (!FRAMEP (frame))
11611
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
430 continue;
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
431 f = XFRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
432 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
11611
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
433 continue;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
434 x = f->output_data.x;
11611
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
435 /* This frame matches if the window is any of its widgets. */
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
436 if (x->hourglass_window == wdesc)
27798
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
437 return f;
d00730392332 (x_window_to_frame, x_any_window_to_frame)
Gerd Moellmann <gerd@gnu.org>
parents: 27659
diff changeset
438 else if (x->widget)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
439 {
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
440 #ifdef USE_GTK
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
441 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
442 if (gwdesc != 0
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
443 && (gwdesc == x->widget
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
444 || gwdesc == x->edit_widget
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
445 || gwdesc == x->vbox_widget))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
446 return f;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
447 #else
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
448 if (wdesc == XtWindow (x->widget)
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
449 || wdesc == XtWindow (x->column_widget)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
450 || wdesc == XtWindow (x->edit_widget))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
451 return f;
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
452 #endif
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
453 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
454 else if (FRAME_X_WINDOW (f) == wdesc)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
455 /* A tooltip frame. */
11611
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
456 return f;
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
457 }
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
458 return 0;
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
459 }
bf53e9945a3c (x_non_menubar_window_to_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11537
diff changeset
460
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
461 /* Likewise, but consider only the menu bar widget. */
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
462
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
463 struct frame *
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
464 x_menubar_window_to_frame (dpyinfo, wdesc)
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
465 struct x_display_info *dpyinfo;
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
466 int wdesc;
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
467 {
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
468 Lisp_Object tail, frame;
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
469 struct frame *f;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
470 struct x_output *x;
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
471
56781
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
472 if (wdesc == None) return 0;
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
473
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
474 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
475 {
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
476 frame = XCAR (tail);
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
477 if (!FRAMEP (frame))
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
478 continue;
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
479 f = XFRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
480 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
481 continue;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
482 x = f->output_data.x;
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
483 /* Match if the window is this frame's menubar. */
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
484 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
485 if (x->menubar_widget)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
486 {
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
487 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
488 int found = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
489
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
490 BLOCK_INPUT;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
491 if (gwdesc != 0
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
492 && (gwdesc == x->menubar_widget
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
493 || gtk_widget_get_parent (gwdesc) == x->menubar_widget))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
494 found = 1;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
495 UNBLOCK_INPUT;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
496 if (found) return f;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
497 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
498 #else
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
499 if (x->menubar_widget
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
500 && lw_window_is_in_menubar (wdesc, x->menubar_widget))
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
501 return f;
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
502 #endif
12656
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
503 }
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
504 return 0;
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
505 }
5beb1d2be5c1 (x_menubar_window_to_frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 12616
diff changeset
506
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
507 /* Return the frame whose principal (outermost) window is WDESC.
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
508 If WDESC is some other (smaller) window, we return 0. */
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
509
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
510 struct frame *
11197
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
511 x_top_window_to_frame (dpyinfo, wdesc)
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
512 struct x_display_info *dpyinfo;
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
513 int wdesc;
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
514 {
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
515 Lisp_Object tail, frame;
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
516 struct frame *f;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
517 struct x_output *x;
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
518
56781
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
519 if (wdesc == None) return 0;
c54fa35b4ded * xfns.c (x_window_to_frame, x_any_window_to_frame)
Jan Djärv <jan.h.d@swipnet.se>
parents: 56718
diff changeset
520
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
521 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
522 {
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
523 frame = XCAR (tail);
90970
3371fc48749b Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90951
diff changeset
524 if (!FRAMEP (frame))
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
525 continue;
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
526 f = XFRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
527 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
11197
1bdc265aab86 (x_window_to_frame): New arg DPYINFO. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11060
diff changeset
528 continue;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
529 x = f->output_data.x;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
530
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
531 if (x->widget)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
532 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
533 /* This frame matches if the window is its topmost widget. */
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
534 #ifdef USE_GTK
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
535 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
536 if (gwdesc == x->widget)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
537 return f;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
538 #else
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
539 if (wdesc == XtWindow (x->widget))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
540 return f;
12019
63ee64941021 (x_top_window_to_frame): Don't match menu-bar widget.
Karl Heuer <kwzh@gnu.org>
parents: 12011
diff changeset
541 #if 0 /* I don't know why it did this,
63ee64941021 (x_top_window_to_frame): Don't match menu-bar widget.
Karl Heuer <kwzh@gnu.org>
parents: 12011
diff changeset
542 but it seems logically wrong,
63ee64941021 (x_top_window_to_frame): Don't match menu-bar widget.
Karl Heuer <kwzh@gnu.org>
parents: 12011
diff changeset
543 and it causes trouble for MapNotify events. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
544 /* Match if the window is this frame's menubar. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
545 if (x->menubar_widget
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
546 && wdesc == XtWindow (x->menubar_widget))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
547 return f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
548 #endif
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
549 #endif
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
550 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
551 else if (FRAME_X_WINDOW (f) == wdesc)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
552 /* Tooltip frame. */
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
553 return f;
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
554 }
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
555 return 0;
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
556 }
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
557 #endif /* USE_X_TOOLKIT || USE_GTK */
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
558
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559
9543
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
560
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
561 static void x_default_font_parameter P_ ((struct frame *, Lisp_Object));
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
562
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
563 static Lisp_Object unwind_create_frame P_ ((Lisp_Object));
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
564 static Lisp_Object unwind_create_tip_frame P_ ((Lisp_Object));
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
565
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
566 void x_set_foreground_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
38183
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
567 static void x_set_wait_for_wm P_ ((struct frame *, Lisp_Object, Lisp_Object));
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
568 void x_set_background_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
569 void x_set_mouse_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
570 void x_set_cursor_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
571 void x_set_border_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
572 void x_set_cursor_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
573 void x_set_icon_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
574 void x_set_icon_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
575 void x_explicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
576 void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
577 void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object));
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25528
diff changeset
578 void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
579 void x_set_scroll_bar_foreground P_ ((struct frame *, Lisp_Object,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
580 Lisp_Object));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
581 void x_set_scroll_bar_background P_ ((struct frame *, Lisp_Object,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
582 Lisp_Object));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
583 static Lisp_Object x_default_scroll_bar_color_parameter P_ ((struct frame *,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
584 Lisp_Object,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
585 Lisp_Object,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
586 char *, char *,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
587 int));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
589
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
590 /* Store the screen positions of frame F into XPTR and YPTR.
7408
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
591 These are the positions of the containing window manager window,
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
592 not Emacs's own window. */
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
593
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
594 void
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
595 x_real_positions (f, xptr, yptr)
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
596 FRAME_PTR f;
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
597 int *xptr, *yptr;
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
598 {
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
599 int win_x, win_y, outer_x, outer_y;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
600 int real_x = 0, real_y = 0;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
601 int had_errors = 0;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
602 Window win = f->output_data.x->parent_desc;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
603
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
604 BLOCK_INPUT;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
605
69152
f2147c1027b6 * xterm.h (x_catch_errors) Return value changed to void.
Chong Yidong <cyd@stupidchicken.com>
parents: 69065
diff changeset
606 x_catch_errors (FRAME_X_DISPLAY (f));
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
607
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
608 if (win == FRAME_X_DISPLAY_INFO (f)->root_window)
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
609 win = FRAME_OUTER_WINDOW (f);
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
610
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
611 /* This loop traverses up the containment tree until we hit the root
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
612 window. Window managers may intersect many windows between our window
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
613 and the root window. The window we find just before the root window
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
614 should be the outer WM window. */
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
615 for (;;)
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
616 {
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
617 Window wm_window, rootw;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
618 Window *tmp_children;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
619 unsigned int tmp_nchildren;
43914
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
620 int success;
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
621
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
622 success = XQueryTree (FRAME_X_DISPLAY (f), win, &rootw,
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
623 &wm_window, &tmp_children, &tmp_nchildren);
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
624
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
625 had_errors = x_had_errors_p (FRAME_X_DISPLAY (f));
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
626
43914
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
627 /* Don't free tmp_children if XQueryTree failed. */
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
628 if (! success)
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
629 break;
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
630
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
631 XFree ((char *) tmp_children);
fed15ed090bc (x_real_positions): Handle failure in XQueryTree.
Richard M. Stallman <rms@gnu.org>
parents: 43670
diff changeset
632
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
633 if (wm_window == rootw || had_errors)
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
634 break;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
635
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
636 win = wm_window;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
637 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
638
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
639 if (! had_errors)
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
640 {
67264
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
641 unsigned int ign;
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
642 Window child, rootw;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
643
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
644 /* Get the real coordinates for the WM window upper left corner */
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
645 XGetGeometry (FRAME_X_DISPLAY (f), win,
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
646 &rootw, &real_x, &real_y, &ign, &ign, &ign, &ign);
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
647
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
648 /* Translate real coordinates to coordinates relative to our
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
649 window. For our window, the upper left corner is 0, 0.
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
650 Since the upper left corner of the WM window is outside
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
651 our window, win_x and win_y will be negative:
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
652
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
653 ------------------ ---> x
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
654 | title |
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
655 | ----------------- v y
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
656 | | our window
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
657 */
17954
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
658 XTranslateCoordinates (FRAME_X_DISPLAY (f),
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
659
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
660 /* From-window, to-window. */
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
661 FRAME_X_DISPLAY_INFO (f)->root_window,
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
662 FRAME_X_WINDOW (f),
17954
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
663
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
664 /* From-position, to-position. */
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
665 real_x, real_y, &win_x, &win_y,
17954
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
666
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
667 /* Child of win. */
7c919d7f8217 (x_real_positions): Directly compare the frame's window
Richard M. Stallman <rms@gnu.org>
parents: 17836
diff changeset
668 &child);
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
669
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
670 if (FRAME_X_WINDOW (f) == FRAME_OUTER_WINDOW (f))
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
671 {
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
672 outer_x = win_x;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
673 outer_y = win_y;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
674 }
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
675 else
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
676 {
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
677 XTranslateCoordinates (FRAME_X_DISPLAY (f),
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
678
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
679 /* From-window, to-window. */
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
680 FRAME_X_DISPLAY_INFO (f)->root_window,
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
681 FRAME_OUTER_WINDOW (f),
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
682
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
683 /* From-position, to-position. */
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
684 real_x, real_y, &outer_x, &outer_y,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
685
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
686 /* Child of win. */
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
687 &child);
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
688 }
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
689
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
690 had_errors = x_had_errors_p (FRAME_X_DISPLAY (f));
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
691 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
692
69173
fdee8318ddc9 * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary
Chong Yidong <cyd@stupidchicken.com>
parents: 69152
diff changeset
693 x_uncatch_errors ();
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
694
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
695 UNBLOCK_INPUT;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
696
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
697 if (had_errors) return;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
698
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
699 f->x_pixels_diff = -win_x;
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
700 f->y_pixels_diff = -win_y;
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
701
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
702 FRAME_X_OUTPUT (f)->x_pixels_outer_diff = -outer_x;
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
703 FRAME_X_OUTPUT (f)->y_pixels_outer_diff = -outer_y;
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
704
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
705 *xptr = real_x;
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
706 *yptr = real_y;
7408
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
707 }
65c133b66371 (x_real_positions): New function.
Richard M. Stallman <rms@gnu.org>
parents: 7308
diff changeset
708
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709
10920
bb3f9aaf0e46 (defined_color): If colormap is full, find closest match.
Richard M. Stallman <rms@gnu.org>
parents: 10742
diff changeset
710
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
711
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
712 /* Gamma-correct COLOR on frame F. */
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
713
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
714 void
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
715 gamma_correct (f, color)
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
716 struct frame *f;
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
717 XColor *color;
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
718 {
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
719 if (f->gamma)
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
720 {
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
721 color->red = pow (color->red / 65535.0, f->gamma) * 65535.0 + 0.5;
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
722 color->green = pow (color->green / 65535.0, f->gamma) * 65535.0 + 0.5;
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
723 color->blue = pow (color->blue / 65535.0, f->gamma) * 65535.0 + 0.5;
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
724 }
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
725 }
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
726
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
727
28096
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
728 /* Decide if color named COLOR_NAME is valid for use on frame F. If
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
729 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
730 allocate the color. Value is zero if COLOR_NAME is invalid, or
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
731 no color could be allocated. */
8675
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
732
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 int
28096
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
734 x_defined_color (f, color_name, color, alloc_p)
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
735 struct frame *f;
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
736 char *color_name;
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
737 XColor *color;
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
738 int alloc_p;
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
739 {
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
740 int success_p;
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
741 Display *dpy = FRAME_X_DISPLAY (f);
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
742 Colormap cmap = FRAME_X_COLORMAP (f);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744 BLOCK_INPUT;
28096
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
745 success_p = XParseColor (dpy, cmap, color_name, color);
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
746 if (success_p && alloc_p)
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
747 success_p = x_alloc_nearest_color (f, cmap, color);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 UNBLOCK_INPUT;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749
28096
244f283b3d03 (x_defined_color): Rewritten to use x_allocate_nearest_color.
Gerd Moellmann <gerd@gnu.org>
parents: 28050
diff changeset
750 return success_p;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
753
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
754 /* Return the pixel color value for color COLOR_NAME on frame F. If F
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
755 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
756 Signal an error if color can't be allocated. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 int
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
759 x_decode_color (f, color_name, mono_color)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
760 FRAME_PTR f;
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
761 Lisp_Object color_name;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
762 int mono_color;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 {
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
764 XColor cdef;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
766 CHECK_STRING (color_name);
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
767
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
768 #if 0 /* Don't do this. It's wrong when we're not using the default
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
769 colormap, it makes freeing difficult, and it's probably not
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
770 an important optimization. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
771 if (strcmp (SDATA (color_name), "black") == 0)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
772 return BLACK_PIX_DEFAULT (f);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
773 else if (strcmp (SDATA (color_name), "white") == 0)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
774 return WHITE_PIX_DEFAULT (f);
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
775 #endif
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
776
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
777 /* Return MONO_COLOR for monochrome frames. */
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
778 if (FRAME_X_DISPLAY_INFO (f)->n_planes == 1)
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
779 return mono_color;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
781 /* x_defined_color is responsible for coping with failures
11060
0a7048d331e6 (x_decode_color): Don't use cdef if defined_color failed.
Richard M. Stallman <rms@gnu.org>
parents: 11014
diff changeset
782 by looking for a near-miss. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
783 if (x_defined_color (f, SDATA (color_name), &cdef, 1))
11060
0a7048d331e6 (x_decode_color): Don't use cdef if defined_color failed.
Richard M. Stallman <rms@gnu.org>
parents: 11014
diff changeset
784 return cdef.pixel;
0a7048d331e6 (x_decode_color): Don't use cdef if defined_color failed.
Richard M. Stallman <rms@gnu.org>
parents: 11014
diff changeset
785
71993
3f1637b3adcb (x_decode_color): Use signal_error.
Kim F. Storm <storm@cua.dk>
parents: 71577
diff changeset
786 signal_error ("Undefined color", color_name);
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
787 }
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
788
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
789
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790
38183
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
791 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
792 the previous value of that parameter, NEW_VALUE is the new value.
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
793 See also the comment of wait_for_wm in struct x_output. */
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
794
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
795 static void
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
796 x_set_wait_for_wm (f, new_value, old_value)
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
797 struct frame *f;
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
798 Lisp_Object new_value, old_value;
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
799 {
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
800 f->output_data.x->wait_for_wm = !NILP (new_value);
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
801 }
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
802
51898
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
803 #ifdef USE_GTK
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
804
52095
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
805 /* Set icon from FILE for frame F. By using GTK functions the icon
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
806 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
51898
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
807
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
808 int
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
809 xg_set_icon (f, file)
52095
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
810 FRAME_PTR f;
51898
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
811 Lisp_Object file;
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
812 {
52095
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
813 int result = 0;
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
814 Lisp_Object found;
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
815
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
816 found = x_find_image_file (file);
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
817
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
818 if (! NILP (found))
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
819 {
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
820 GdkPixbuf *pixbuf;
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
821 GError *err = NULL;
67264
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
822 char *filename = (char *) SDATA (found);
52095
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
823 BLOCK_INPUT;
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
824
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
825 pixbuf = gdk_pixbuf_new_from_file (filename, &err);
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
826
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
827 if (pixbuf)
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
828 {
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
829 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)),
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
830 pixbuf);
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
831 g_object_unref (pixbuf);
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
832
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
833 result = 1;
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
834 }
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
835 else
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
836 g_error_free (err);
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
837
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
838 UNBLOCK_INPUT;
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
839 }
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
840
a2208fe45c36 * xfns.c (xg_set_icon): Rewrite to compile with GTK 2.0 and 2.2.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52091
diff changeset
841 return result;
51898
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
842 }
66931
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
843
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
844 int
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
845 xg_set_icon_from_xpm_data (f, data)
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
846 FRAME_PTR f;
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
847 char **data;
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
848 {
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
849 int result = 0;
67264
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
850 GdkPixbuf *pixbuf = gdk_pixbuf_new_from_xpm_data ((const char **) data);
66931
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
851
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
852 if (!pixbuf)
67264
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
853 return 0;
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
854
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
855 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), pixbuf);
66931
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
856 g_object_unref (pixbuf);
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
857 return 1;
1a573209abf9 * xfns.c (xg_set_icon_from_xpm_data): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 66502
diff changeset
858 }
51898
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
859 #endif /* USE_GTK */
b65c743ccded (x_bitmap_mask, x_create_bitmap_mask): New functions to handle mask of bitmaps.
Juanma Barranquero <lekktu@gmail.com>
parents: 51876
diff changeset
860
38183
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
861
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
862 /* Functions called only from `x_set_frame_param'
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 to set individual parameters.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
864
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
865 If FRAME_X_WINDOW (f) is 0,
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
866 the frame is being created and its X-window does not exist yet.
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 In that case, just record the parameter's new value
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868 in the standard place; do not attempt to change the window. */
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870 void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
871 x_set_foreground_color (f, arg, oldval)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
872 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873 Lisp_Object arg, oldval;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874 {
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
875 struct x_output *x = f->output_data.x;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
876 unsigned long fg, old_fg;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
877
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
878 fg = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
879 old_fg = FRAME_FOREGROUND_PIXEL (f);
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
880 FRAME_FOREGROUND_PIXEL (f) = fg;
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
881
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
882 if (FRAME_X_WINDOW (f) != 0)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
883 {
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
884 Display *dpy = FRAME_X_DISPLAY (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
885
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
886 BLOCK_INPUT;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
887 XSetForeground (dpy, x->normal_gc, fg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
888 XSetBackground (dpy, x->reverse_gc, fg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
889
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
890 if (x->cursor_pixel == old_fg)
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
891 {
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
892 unload_color (f, x->cursor_pixel);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
893 x->cursor_pixel = x_copy_color (f, fg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
894 XSetBackground (dpy, x->cursor_gc, x->cursor_pixel);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
895 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
896
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 UNBLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
898
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
899 update_face_from_frame_parameter (f, Qforeground_color, arg);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
900
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
901 if (FRAME_VISIBLE_P (f))
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
902 redraw_frame (f);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
904
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
905 unload_color (f, old_fg);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
907
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908 void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
909 x_set_background_color (f, arg, oldval)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
910 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911 Lisp_Object arg, oldval;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912 {
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
913 struct x_output *x = f->output_data.x;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
914 unsigned long bg;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
915
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
916 bg = x_decode_color (f, arg, WHITE_PIX_DEFAULT (f));
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
917 unload_color (f, FRAME_BACKGROUND_PIXEL (f));
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
918 FRAME_BACKGROUND_PIXEL (f) = bg;
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
919
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
920 if (FRAME_X_WINDOW (f) != 0)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921 {
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
922 Display *dpy = FRAME_X_DISPLAY (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
923
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
924 BLOCK_INPUT;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
925 XSetBackground (dpy, x->normal_gc, bg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
926 XSetForeground (dpy, x->reverse_gc, bg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
927 XSetWindowBackground (dpy, FRAME_X_WINDOW (f), bg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
928 XSetForeground (dpy, x->cursor_gc, bg);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
929
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
930 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
931 xg_set_background_color (f, bg);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
932 #endif
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
933
39159
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
934 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
935 toolkit scroll bars. */
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
936 {
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
937 Lisp_Object bar;
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
938 for (bar = FRAME_SCROLL_BARS (f);
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
939 !NILP (bar);
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
940 bar = XSCROLL_BAR (bar)->next)
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
941 {
86161
3408ab8b4152 * xterm.h (struct scroll_bar): Only use Lisp_Object for lisp data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 86073
diff changeset
942 Window window = XSCROLL_BAR (bar)->x_window;
39159
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
943 XSetWindowBackground (dpy, window, bg);
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
944 }
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
945 }
2c7a6a1b047e (x_set_background_color): Don't change the colors
Gerd Moellmann <gerd@gnu.org>
parents: 38749
diff changeset
946 #endif /* USE_TOOLKIT_SCROLL_BARS */
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
947
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 UNBLOCK_INPUT;
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
949 update_face_from_frame_parameter (f, Qbackground_color, arg);
3075
878381e48b0d * xfns.c: Clear out the old face stuff.
Jim Blandy <jimb@redhat.com>
parents: 3048
diff changeset
950
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
951 if (FRAME_VISIBLE_P (f))
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
952 redraw_frame (f);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956 void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
957 x_set_mouse_color (f, arg, oldval)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
958 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
959 Lisp_Object arg, oldval;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
960 {
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
961 struct x_output *x = f->output_data.x;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
962 Display *dpy = FRAME_X_DISPLAY (f);
50236
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
963 Cursor cursor, nontext_cursor, mode_cursor, hand_cursor;
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
964 Cursor hourglass_cursor, horizontal_drag_cursor;
25075
9f5d679349e9 (x_set_mouse_color): Always unload the old color.
Karl Heuer <kwzh@gnu.org>
parents: 24994
diff changeset
965 unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
966 unsigned long mask_color = FRAME_BACKGROUND_PIXEL (f);
25075
9f5d679349e9 (x_set_mouse_color): Always unload the old color.
Karl Heuer <kwzh@gnu.org>
parents: 24994
diff changeset
967
9f5d679349e9 (x_set_mouse_color): Always unload the old color.
Karl Heuer <kwzh@gnu.org>
parents: 24994
diff changeset
968 /* Don't let pointers be invisible. */
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
969 if (mask_color == pixel)
35261
ba1f849f9381 (x_set_mouse_color): Fix color allocation.
Gerd Moellmann <gerd@gnu.org>
parents: 35191
diff changeset
970 {
ba1f849f9381 (x_set_mouse_color): Fix color allocation.
Gerd Moellmann <gerd@gnu.org>
parents: 35191
diff changeset
971 x_free_colors (f, &pixel, 1);
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
972 pixel = x_copy_color (f, FRAME_FOREGROUND_PIXEL (f));
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
973 }
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
974
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
975 unload_color (f, x->mouse_pixel);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
976 x->mouse_pixel = pixel;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 BLOCK_INPUT;
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
979
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3512
diff changeset
980 /* It's not okay to crash if the user selects a screwy cursor. */
69152
f2147c1027b6 * xterm.h (x_catch_errors) Return value changed to void.
Chong Yidong <cyd@stupidchicken.com>
parents: 69065
diff changeset
981 x_catch_errors (dpy);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
982
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
983 if (!NILP (Vx_pointer_shape))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
985 CHECK_NUMBER (Vx_pointer_shape);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
986 cursor = XCreateFontCursor (dpy, XINT (Vx_pointer_shape));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
987 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
988 else
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
989 cursor = XCreateFontCursor (dpy, XC_xterm);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
990 x_check_errors (dpy, "bad text pointer cursor: %s");
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
991
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
992 if (!NILP (Vx_nontext_pointer_shape))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
994 CHECK_NUMBER (Vx_nontext_pointer_shape);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
995 nontext_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
996 = XCreateFontCursor (dpy, XINT (Vx_nontext_pointer_shape));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 else
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
999 nontext_cursor = XCreateFontCursor (dpy, XC_left_ptr);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1000 x_check_errors (dpy, "bad nontext pointer cursor: %s");
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1001
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1002 if (!NILP (Vx_hourglass_pointer_shape))
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
1003 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1004 CHECK_NUMBER (Vx_hourglass_pointer_shape);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1005 hourglass_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1006 = XCreateFontCursor (dpy, XINT (Vx_hourglass_pointer_shape));
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1007 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1008 else
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1009 hourglass_cursor = XCreateFontCursor (dpy, XC_watch);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1010 x_check_errors (dpy, "bad hourglass pointer cursor: %s");
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1011
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1012 if (!NILP (Vx_mode_pointer_shape))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1014 CHECK_NUMBER (Vx_mode_pointer_shape);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1015 mode_cursor = XCreateFontCursor (dpy, XINT (Vx_mode_pointer_shape));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017 else
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1018 mode_cursor = XCreateFontCursor (dpy, XC_xterm);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1019 x_check_errors (dpy, "bad modeline pointer cursor: %s");
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1020
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1021 if (!NILP (Vx_sensitive_text_pointer_shape))
6759
e0938c42218c (syms_of_xfns): Define Vx_cross_pointer_shape.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6610
diff changeset
1022 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1023 CHECK_NUMBER (Vx_sensitive_text_pointer_shape);
50236
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1024 hand_cursor
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1025 = XCreateFontCursor (dpy, XINT (Vx_sensitive_text_pointer_shape));
6759
e0938c42218c (syms_of_xfns): Define Vx_cross_pointer_shape.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6610
diff changeset
1026 }
e0938c42218c (syms_of_xfns): Define Vx_cross_pointer_shape.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6610
diff changeset
1027 else
50236
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1028 hand_cursor = XCreateFontCursor (dpy, XC_hand2);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1029
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1030 if (!NILP (Vx_window_horizontal_drag_shape))
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1031 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1032 CHECK_NUMBER (Vx_window_horizontal_drag_shape);
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1033 horizontal_drag_cursor
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1034 = XCreateFontCursor (dpy, XINT (Vx_window_horizontal_drag_shape));
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1035 }
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1036 else
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1037 horizontal_drag_cursor
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1038 = XCreateFontCursor (dpy, XC_sb_h_double_arrow);
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
1039
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
1040 /* Check and report errors with the above calls. */
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1041 x_check_errors (dpy, "can't set cursor shape: %s");
69173
fdee8318ddc9 * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary
Chong Yidong <cyd@stupidchicken.com>
parents: 69152
diff changeset
1042 x_uncatch_errors ();
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
1043
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1044 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1045 XColor fore_color, back_color;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1046
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1047 fore_color.pixel = x->mouse_pixel;
32606
78b4e9f31087 (x_to_xcolors, x_set_mouse_color, lookup_pixel_color)
Gerd Moellmann <gerd@gnu.org>
parents: 32549
diff changeset
1048 x_query_color (f, &fore_color);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1049 back_color.pixel = mask_color;
32606
78b4e9f31087 (x_to_xcolors, x_set_mouse_color, lookup_pixel_color)
Gerd Moellmann <gerd@gnu.org>
parents: 32549
diff changeset
1050 x_query_color (f, &back_color);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1051
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1052 XRecolorCursor (dpy, cursor, &fore_color, &back_color);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1053 XRecolorCursor (dpy, nontext_cursor, &fore_color, &back_color);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1054 XRecolorCursor (dpy, mode_cursor, &fore_color, &back_color);
50236
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1055 XRecolorCursor (dpy, hand_cursor, &fore_color, &back_color);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1056 XRecolorCursor (dpy, hourglass_cursor, &fore_color, &back_color);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1057 XRecolorCursor (dpy, horizontal_drag_cursor, &fore_color, &back_color);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1058 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1059
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
1060 if (FRAME_X_WINDOW (f) != 0)
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1061 XDefineCursor (dpy, FRAME_X_WINDOW (f), cursor);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1062
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1063 if (cursor != x->text_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1064 && x->text_cursor != 0)
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1065 XFreeCursor (dpy, x->text_cursor);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1066 x->text_cursor = cursor;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1067
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1068 if (nontext_cursor != x->nontext_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1069 && x->nontext_cursor != 0)
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1070 XFreeCursor (dpy, x->nontext_cursor);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1071 x->nontext_cursor = nontext_cursor;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1072
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1073 if (hourglass_cursor != x->hourglass_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1074 && x->hourglass_cursor != 0)
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1075 XFreeCursor (dpy, x->hourglass_cursor);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1076 x->hourglass_cursor = hourglass_cursor;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1077
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1078 if (mode_cursor != x->modeline_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1079 && x->modeline_cursor != 0)
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1080 XFreeCursor (dpy, f->output_data.x->modeline_cursor);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1081 x->modeline_cursor = mode_cursor;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1082
50236
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1083 if (hand_cursor != x->hand_cursor
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1084 && x->hand_cursor != 0)
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1085 XFreeCursor (dpy, x->hand_cursor);
156baddab173 Setup and use hand_cursor instead of cross_cursor.
Kim F. Storm <storm@cua.dk>
parents: 50099
diff changeset
1086 x->hand_cursor = hand_cursor;
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1087
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1088 if (horizontal_drag_cursor != x->horizontal_drag_cursor
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1089 && x->horizontal_drag_cursor != 0)
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1090 XFreeCursor (dpy, x->horizontal_drag_cursor);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1091 x->horizontal_drag_cursor = horizontal_drag_cursor;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1092
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1093 XFlush (dpy);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1094 UNBLOCK_INPUT;
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1095
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1096 update_face_from_frame_parameter (f, Qmouse_color, arg);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1097 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1098
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1099 void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1100 x_set_cursor_color (f, arg, oldval)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1101 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1102 Lisp_Object arg, oldval;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1103 {
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
1104 unsigned long fore_pixel, pixel;
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1105 int fore_pixel_allocated_p = 0, pixel_allocated_p = 0;
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1106 struct x_output *x = f->output_data.x;
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1107
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1108 if (!NILP (Vx_cursor_fore_pixel))
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1109 {
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1110 fore_pixel = x_decode_color (f, Vx_cursor_fore_pixel,
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1111 WHITE_PIX_DEFAULT (f));
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1112 fore_pixel_allocated_p = 1;
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1113 }
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1114 else
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
1115 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1116
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
1117 pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1118 pixel_allocated_p = 1;
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
1119
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
1120 /* Make sure that the cursor color differs from the background color. */
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
1121 if (pixel == FRAME_BACKGROUND_PIXEL (f))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1122 {
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1123 if (pixel_allocated_p)
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1124 {
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1125 x_free_colors (f, &pixel, 1);
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1126 pixel_allocated_p = 0;
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1127 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1128
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1129 pixel = x->mouse_pixel;
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
1130 if (pixel == fore_pixel)
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1131 {
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1132 if (fore_pixel_allocated_p)
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1133 {
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1134 x_free_colors (f, &fore_pixel, 1);
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1135 fore_pixel_allocated_p = 0;
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1136 }
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
1137 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1138 }
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1139 }
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1140
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1141 unload_color (f, x->cursor_foreground_pixel);
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1142 if (!fore_pixel_allocated_p)
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1143 fore_pixel = x_copy_color (f, fore_pixel);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1144 x->cursor_foreground_pixel = fore_pixel;
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1145
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1146 unload_color (f, x->cursor_pixel);
28355
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1147 if (!pixel_allocated_p)
11d7a6fdad5f (x_set_cursor_color): Get color reference counts right.
Gerd Moellmann <gerd@gnu.org>
parents: 28347
diff changeset
1148 pixel = x_copy_color (f, pixel);
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1149 x->cursor_pixel = pixel;
21779
6aaa0268fe91 (x_set_foreground_color, x_set_background_color)
Richard M. Stallman <rms@gnu.org>
parents: 21555
diff changeset
1150
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
1151 if (FRAME_X_WINDOW (f) != 0)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1152 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1153 BLOCK_INPUT;
37762
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1154 XSetBackground (FRAME_X_DISPLAY (f), x->cursor_gc, x->cursor_pixel);
ddf0a963805f (x_set_foreground_color): Change frame's cursor_pixel
Gerd Moellmann <gerd@gnu.org>
parents: 37608
diff changeset
1155 XSetForeground (FRAME_X_DISPLAY (f), x->cursor_gc, fore_pixel);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1156 UNBLOCK_INPUT;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
1158 if (FRAME_VISIBLE_P (f))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 {
15999
0e148af7d4ec (x_set_cursor_color): Use x_update_cursor.
Richard M. Stallman <rms@gnu.org>
parents: 15942
diff changeset
1160 x_update_cursor (f, 0);
0e148af7d4ec (x_set_cursor_color): Use x_update_cursor.
Richard M. Stallman <rms@gnu.org>
parents: 15942
diff changeset
1161 x_update_cursor (f, 1);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1163 }
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1164
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1165 update_face_from_frame_parameter (f, Qcursor_color, arg);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1166 }
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1167
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1168 /* Set the border-color of frame F to pixel value PIX.
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1169 Note that this does not fully take effect if done before
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1170 F has an x-window. */
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1171
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1172 void
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1173 x_set_border_pixel (f, pix)
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1174 struct frame *f;
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1175 int pix;
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1176 {
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1177 unload_color (f, f->output_data.x->border_pixel);
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1178 f->output_data.x->border_pixel = pix;
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1179
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1180 if (FRAME_X_WINDOW (f) != 0 && f->border_width > 0)
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1181 {
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1182 BLOCK_INPUT;
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1183 XSetWindowBorder (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1184 (unsigned long)pix);
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1185 UNBLOCK_INPUT;
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1186
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1187 if (FRAME_VISIBLE_P (f))
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1188 redraw_frame (f);
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1189 }
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1190 }
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1191
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1192 /* Set the border-color of frame F to value described by ARG.
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1193 ARG can be a string naming a color.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1194 The border-color is used for the border that is drawn by the X server.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1195 Note that this does not fully take effect if done before
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1196 F has an x-window; it must be redone when the window is created.
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1198 Note: this is done in two routines because of the way X10 works.
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1199
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1200 Note: under X11, this is normally the province of the window manager,
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1201 and so emacs' border colors may be overridden. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203 void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1204 x_set_border_color (f, arg, oldval)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1205 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1206 Lisp_Object arg, oldval;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1208 int pix;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1210 CHECK_STRING (arg);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1211 pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1212 x_set_border_pixel (f, pix);
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1213 update_face_from_frame_parameter (f, Qborder_color, arg);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215
28347
ce7dddf6dfb7 (x_specified_cursor_type): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28229
diff changeset
1216
ce7dddf6dfb7 (x_specified_cursor_type): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28229
diff changeset
1217 void
ce7dddf6dfb7 (x_specified_cursor_type): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28229
diff changeset
1218 x_set_cursor_type (f, arg, oldval)
ce7dddf6dfb7 (x_specified_cursor_type): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28229
diff changeset
1219 FRAME_PTR f;
ce7dddf6dfb7 (x_specified_cursor_type): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28229
diff changeset
1220 Lisp_Object arg, oldval;
ce7dddf6dfb7 (x_specified_cursor_type): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28229
diff changeset
1221 {
47142
21cac7a2dcb9 (Vblink_cursor_alist): Removed.
Kim F. Storm <storm@cua.dk>
parents: 47086
diff changeset
1222 set_frame_cursor_types (f, arg);
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1786
diff changeset
1223
43987
ea6530f23937 (x_set_cursor_type): Set cursor_type_changed,
Richard M. Stallman <rms@gnu.org>
parents: 43917
diff changeset
1224 /* Make sure the cursor gets redrawn. */
ea6530f23937 (x_set_cursor_type): Set cursor_type_changed,
Richard M. Stallman <rms@gnu.org>
parents: 43917
diff changeset
1225 cursor_type_changed = 1;
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1786
diff changeset
1226 }
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1227
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1786
diff changeset
1228 void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1229 x_set_icon_type (f, arg, oldval)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
1230 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 Lisp_Object arg, oldval;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 int result;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1234
9543
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
1235 if (STRINGP (arg))
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
1236 {
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
1237 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
1238 return;
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
1239 }
3cf8aa53c4cf (x_set_icon_type): If icon-type is a string, then use
Richard M. Stallman <rms@gnu.org>
parents: 9528
diff changeset
1240 else if (!STRINGP (oldval) && EQ (oldval, Qnil) == EQ (arg, Qnil))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241 return;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1242
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1243 BLOCK_INPUT;
485
8c615e453683 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 436
diff changeset
1244 if (NILP (arg))
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1245 result = x_text_icon (f,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1246 (char *) SDATA ((!NILP (f->icon_name)
12276
2e376a4397bc (x_report_frame_params, x_set_icon_type, x_set_icon_name)
Richard M. Stallman <rms@gnu.org>
parents: 12209
diff changeset
1247 ? f->icon_name
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1248 : f->name)));
9563
ca99ee51077f Include paths.h.
Richard M. Stallman <rms@gnu.org>
parents: 9543
diff changeset
1249 else
ca99ee51077f Include paths.h.
Richard M. Stallman <rms@gnu.org>
parents: 9543
diff changeset
1250 result = x_bitmap_icon (f, arg);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1251
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1252 if (result)
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1253 {
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
1254 UNBLOCK_INPUT;
9353
30659ed71a1b (x_set_icon_type): Remove period from error message.
Richard M. Stallman <rms@gnu.org>
parents: 9329
diff changeset
1255 error ("No icon window available");
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1256 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1257
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1258 XFlush (FRAME_X_DISPLAY (f));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1259 UNBLOCK_INPUT;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1260 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1261
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1262 void
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1263 x_set_icon_name (f, arg, oldval)
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1264 struct frame *f;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1265 Lisp_Object arg, oldval;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1266 {
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1267 int result;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1268
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1269 if (STRINGP (arg))
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1270 {
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1271 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1272 return;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1273 }
71166
54189ea7ad2a * xfns.c (x_set_icon_name): No-op if arg is non-nil and not a
Chong Yidong <cyd@stupidchicken.com>
parents: 69729
diff changeset
1274 else if (!NILP (arg) || NILP (oldval))
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1275 return;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1276
12276
2e376a4397bc (x_report_frame_params, x_set_icon_type, x_set_icon_name)
Richard M. Stallman <rms@gnu.org>
parents: 12209
diff changeset
1277 f->icon_name = arg;
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1278
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
1279 if (f->output_data.x->icon_bitmap != 0)
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1280 return;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1281
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1282 BLOCK_INPUT;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1283
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1284 result = x_text_icon (f,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1285 (char *) SDATA ((!NILP (f->icon_name)
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1286 ? f->icon_name
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1287 : !NILP (f->title)
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1288 ? f->title
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1289 : f->name)));
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1290
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1291 if (result)
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1292 {
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1293 UNBLOCK_INPUT;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1294 error ("No icon window available");
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1295 }
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1296
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1297 XFlush (FRAME_X_DISPLAY (f));
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1298 UNBLOCK_INPUT;
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
1299 }
31930
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1300
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1301
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1302 void
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1303 x_set_menu_bar_lines (f, value, oldval)
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1304 struct frame *f;
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1305 Lisp_Object value, oldval;
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1306 {
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1307 int nlines;
53825
6635e77a2c09 * xfns.c (x_create_bitmap_mask): Removed unused variable depth.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53787
diff changeset
1308 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1309 int olines = FRAME_MENU_BAR_LINES (f);
25715
feaedc03dbc8 (x_set_background_color): Remove unused variable(s).
Gerd Moellmann <gerd@gnu.org>
parents: 25691
diff changeset
1310 #endif
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1311
2880
9a78169e44df * xfns.c (x_set_menu_bar_lines): Minibuffer-only frames can't have
Jim Blandy <jimb@redhat.com>
parents: 2842
diff changeset
1312 /* Right now, menu bars don't work properly in minibuf-only frames;
9a78169e44df * xfns.c (x_set_menu_bar_lines): Minibuffer-only frames can't have
Jim Blandy <jimb@redhat.com>
parents: 2842
diff changeset
1313 most of the commands try to apply themselves to the minibuffer
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1314 frame itself, and get an error because you can't switch buffers
2880
9a78169e44df * xfns.c (x_set_menu_bar_lines): Minibuffer-only frames can't have
Jim Blandy <jimb@redhat.com>
parents: 2842
diff changeset
1315 in or split the minibuffer window. */
2885
cb1709f302e9 (x_set_menu_bar_lines): Fix typo in last change.
Richard M. Stallman <rms@gnu.org>
parents: 2880
diff changeset
1316 if (FRAME_MINIBUF_ONLY_P (f))
2880
9a78169e44df * xfns.c (x_set_menu_bar_lines): Minibuffer-only frames can't have
Jim Blandy <jimb@redhat.com>
parents: 2842
diff changeset
1317 return;
9a78169e44df * xfns.c (x_set_menu_bar_lines): Minibuffer-only frames can't have
Jim Blandy <jimb@redhat.com>
parents: 2842
diff changeset
1318
9103
948e8acb6990 (x_set_frame_parameters, x_set_menu_bar_lines, Fx_create_frame,
Karl Heuer <kwzh@gnu.org>
parents: 9022
diff changeset
1319 if (INTEGERP (value))
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1320 nlines = XINT (value);
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1321 else
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1322 nlines = 0;
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1323
17556
c0f8f4264f7a (x_set_menu_bar_lines): Increment windows_or_buffers_changed.
Richard M. Stallman <rms@gnu.org>
parents: 17106
diff changeset
1324 /* Make sure we redisplay all windows in this frame. */
c0f8f4264f7a (x_set_menu_bar_lines): Increment windows_or_buffers_changed.
Richard M. Stallman <rms@gnu.org>
parents: 17106
diff changeset
1325 windows_or_buffers_changed++;
c0f8f4264f7a (x_set_menu_bar_lines): Increment windows_or_buffers_changed.
Richard M. Stallman <rms@gnu.org>
parents: 17106
diff changeset
1326
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1327 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1328 FRAME_MENU_BAR_LINES (f) = 0;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1329 if (nlines)
12832
0d750e41c4f2 (x_set_menu_bar_lines) [USE_X_TOOLKIT]: When turning
Richard M. Stallman <rms@gnu.org>
parents: 12773
diff changeset
1330 {
0d750e41c4f2 (x_set_menu_bar_lines) [USE_X_TOOLKIT]: When turning
Richard M. Stallman <rms@gnu.org>
parents: 12773
diff changeset
1331 FRAME_EXTERNAL_MENU_BAR (f) = 1;
13734
714433bead7f (x_set_menu_bar_lines) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 13508
diff changeset
1332 if (FRAME_X_P (f) && f->output_data.x->menubar_widget == 0)
12832
0d750e41c4f2 (x_set_menu_bar_lines) [USE_X_TOOLKIT]: When turning
Richard M. Stallman <rms@gnu.org>
parents: 12773
diff changeset
1333 /* Make sure next redisplay shows the menu bar. */
0d750e41c4f2 (x_set_menu_bar_lines) [USE_X_TOOLKIT]: When turning
Richard M. Stallman <rms@gnu.org>
parents: 12773
diff changeset
1334 XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt;
0d750e41c4f2 (x_set_menu_bar_lines) [USE_X_TOOLKIT]: When turning
Richard M. Stallman <rms@gnu.org>
parents: 12773
diff changeset
1335 }
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1336 else
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1337 {
5900
284c0d70a50a (x_set_menu_bar_lines) [USE_X_TOOLKIT]: Dont Call XtDestroyWidget but
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 5899
diff changeset
1338 if (FRAME_EXTERNAL_MENU_BAR (f) == 1)
284c0d70a50a (x_set_menu_bar_lines) [USE_X_TOOLKIT]: Dont Call XtDestroyWidget but
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 5899
diff changeset
1339 free_frame_menubar (f);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1340 FRAME_EXTERNAL_MENU_BAR (f) = 0;
13734
714433bead7f (x_set_menu_bar_lines) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 13508
diff changeset
1341 if (FRAME_X_P (f))
714433bead7f (x_set_menu_bar_lines) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents: 13508
diff changeset
1342 f->output_data.x->menubar_widget = 0;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1343 }
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1344 #else /* not USE_X_TOOLKIT && not USE_GTK */
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
1345 FRAME_MENU_BAR_LINES (f) = nlines;
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1346 change_window_heights (f->root_window, nlines - olines);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1347 #endif /* not USE_X_TOOLKIT */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1348 adjust_glyphs (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1349 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1350
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1351
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1352 /* Set the number of lines used for the tool bar of frame F to VALUE.
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1353 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1354 is the old number of tool bar lines. This function changes the
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1355 height of all windows on frame F to match the new tool bar height.
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1356 The frame's height doesn't change. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1357
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1358 void
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25528
diff changeset
1359 x_set_tool_bar_lines (f, value, oldval)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1360 struct frame *f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1361 Lisp_Object value, oldval;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1362 {
31930
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1363 int delta, nlines, root_height;
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1364 Lisp_Object root_window;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1365
35819
74e2d9de2fc1 (x_set_tool_bar_lines): Do nothing If frame is
Gerd Moellmann <gerd@gnu.org>
parents: 35733
diff changeset
1366 /* Treat tool bars like menu bars. */
74e2d9de2fc1 (x_set_tool_bar_lines): Do nothing If frame is
Gerd Moellmann <gerd@gnu.org>
parents: 35733
diff changeset
1367 if (FRAME_MINIBUF_ONLY_P (f))
74e2d9de2fc1 (x_set_tool_bar_lines): Do nothing If frame is
Gerd Moellmann <gerd@gnu.org>
parents: 35733
diff changeset
1368 return;
74e2d9de2fc1 (x_set_tool_bar_lines): Do nothing If frame is
Gerd Moellmann <gerd@gnu.org>
parents: 35733
diff changeset
1369
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1370 /* Use VALUE only if an integer >= 0. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1371 if (INTEGERP (value) && XINT (value) >= 0)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1372 nlines = XFASTINT (value);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1373 else
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1374 nlines = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1375
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1376 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1377 FRAME_TOOL_BAR_LINES (f) = 0;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1378 if (nlines)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1379 {
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1380 FRAME_EXTERNAL_TOOL_BAR (f) = 1;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1381 if (FRAME_X_P (f) && f->output_data.x->toolbar_widget == 0)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1382 /* Make sure next redisplay shows the tool bar. */
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1383 XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1384 update_frame_tool_bar (f);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1385 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1386 else
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1387 {
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1388 if (FRAME_EXTERNAL_TOOL_BAR (f))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1389 free_frame_tool_bar (f);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1390 FRAME_EXTERNAL_TOOL_BAR (f) = 0;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1391 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1392
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1393 return;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1394 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1395
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
1396 /* Make sure we redisplay all windows in this frame. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1397 ++windows_or_buffers_changed;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1398
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25528
diff changeset
1399 delta = nlines - FRAME_TOOL_BAR_LINES (f);
31930
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1400
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1401 /* Don't resize the tool-bar to more than we have room for. */
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1402 root_window = FRAME_ROOT_WINDOW (f);
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1403 root_height = WINDOW_TOTAL_LINES (XWINDOW (root_window));
31930
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1404 if (root_height - delta < 1)
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1405 {
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1406 delta = root_height - 1;
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1407 nlines = FRAME_TOOL_BAR_LINES (f) + delta;
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1408 }
9c779861abff (x_set_tool_bar_lines): Don't use more lines for the
Gerd Moellmann <gerd@gnu.org>
parents: 31902
diff changeset
1409
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25528
diff changeset
1410 FRAME_TOOL_BAR_LINES (f) = nlines;
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1411 change_window_heights (root_window, delta);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1412 adjust_glyphs (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1413
31999
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1414 /* We also have to make sure that the internal border at the top of
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1415 the frame, below the menu bar or tool bar, is redrawn when the
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1416 tool bar disappears. This is so because the internal border is
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1417 below the tool bar if one is displayed, but is below the menu bar
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1418 if there isn't a tool bar. The tool bar draws into the area
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1419 below the menu bar. */
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1420 if (FRAME_X_WINDOW (f) && FRAME_TOOL_BAR_LINES (f) == 0)
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1421 {
83100
4970ad4995f5 Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83078
diff changeset
1422 clear_frame (f);
33601
1ee8ea329b7b (x_set_tool_bar_lines): When clearing the frame, also
Gerd Moellmann <gerd@gnu.org>
parents: 33589
diff changeset
1423 clear_current_matrices (f);
31999
d862c73ea0d5 (x_set_tool_bar_lines): Clear frame when tool bar
Gerd Moellmann <gerd@gnu.org>
parents: 31930
diff changeset
1424 }
33747
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1425
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1426 /* If the tool bar gets smaller, the internal border below it
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1427 has to be cleared. It was formerly part of the display
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1428 of the larger tool bar, and updating windows won't clear it. */
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1429 if (delta < 0)
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1430 {
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1431 int height = FRAME_INTERNAL_BORDER_WIDTH (f);
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1432 int width = FRAME_PIXEL_WIDTH (f);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1433 int y = nlines * FRAME_LINE_HEIGHT (f);
33747
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1434
59980
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1435 /* height can be zero here. */
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1436 if (height > 0 && width > 0)
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1437 {
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1438 BLOCK_INPUT;
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1439 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1440 0, y, width, height, False);
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1441 UNBLOCK_INPUT;
7f8e4c715b72 (x_set_tool_bar_lines): Check that width and height is greater than
Jan Djärv <jan.h.d@swipnet.se>
parents: 59976
diff changeset
1442 }
38625
0bfdfd449f4a (x_set_tool_bar_lines): Clear the tool bar window's
Gerd Moellmann <gerd@gnu.org>
parents: 38575
diff changeset
1443
0bfdfd449f4a (x_set_tool_bar_lines): Clear the tool bar window's
Gerd Moellmann <gerd@gnu.org>
parents: 38575
diff changeset
1444 if (WINDOWP (f->tool_bar_window))
0bfdfd449f4a (x_set_tool_bar_lines): Clear the tool bar window's
Gerd Moellmann <gerd@gnu.org>
parents: 38575
diff changeset
1445 clear_glyph_matrix (XWINDOW (f->tool_bar_window)->current_matrix);
33747
e0e2461a24fe (x_set_tool_bar_lines): Clear internal border when
Gerd Moellmann <gerd@gnu.org>
parents: 33713
diff changeset
1446 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1447 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1448
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1449
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1450 /* Set the foreground color for scroll bars on frame F to VALUE.
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1451 VALUE should be a string, a color name. If it isn't a string or
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1452 isn't a valid color name, do nothing. OLDVAL is the old value of
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1453 the frame parameter. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1454
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1455 void
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1456 x_set_scroll_bar_foreground (f, value, oldval)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1457 struct frame *f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1458 Lisp_Object value, oldval;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1459 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1460 unsigned long pixel;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1461
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1462 if (STRINGP (value))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1463 pixel = x_decode_color (f, value, BLACK_PIX_DEFAULT (f));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1464 else
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1465 pixel = -1;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1466
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1467 if (f->output_data.x->scroll_bar_foreground_pixel != -1)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1468 unload_color (f, f->output_data.x->scroll_bar_foreground_pixel);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1469
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1470 f->output_data.x->scroll_bar_foreground_pixel = pixel;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1471 if (FRAME_X_WINDOW (f) && FRAME_VISIBLE_P (f))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1472 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1473 /* Remove all scroll bars because they have wrong colors. */
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1474 if (FRAME_TERMINAL (f)->condemn_scroll_bars_hook)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1475 (*FRAME_TERMINAL (f)->condemn_scroll_bars_hook) (f);
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1476 if (FRAME_TERMINAL (f)->judge_scroll_bars_hook)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1477 (*FRAME_TERMINAL (f)->judge_scroll_bars_hook) (f);
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1478
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1479 update_face_from_frame_parameter (f, Qscroll_bar_foreground, value);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1480 redraw_frame (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1481 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1482 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1483
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1484
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1485 /* Set the background color for scroll bars on frame F to VALUE VALUE
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1486 should be a string, a color name. If it isn't a string or isn't a
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1487 valid color name, do nothing. OLDVAL is the old value of the frame
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1488 parameter. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1489
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1490 void
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1491 x_set_scroll_bar_background (f, value, oldval)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1492 struct frame *f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1493 Lisp_Object value, oldval;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1494 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1495 unsigned long pixel;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1496
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1497 if (STRINGP (value))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1498 pixel = x_decode_color (f, value, WHITE_PIX_DEFAULT (f));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1499 else
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1500 pixel = -1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1501
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1502 if (f->output_data.x->scroll_bar_background_pixel != -1)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1503 unload_color (f, f->output_data.x->scroll_bar_background_pixel);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1504
39619
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1505 #ifdef USE_TOOLKIT_SCROLL_BARS
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1506 /* Scrollbar shadow colors. */
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1507 if (f->output_data.x->scroll_bar_top_shadow_pixel != -1)
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1508 {
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1509 unload_color (f, f->output_data.x->scroll_bar_top_shadow_pixel);
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1510 f->output_data.x->scroll_bar_top_shadow_pixel = -1;
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1511 }
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1512 if (f->output_data.x->scroll_bar_bottom_shadow_pixel != -1)
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1513 {
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1514 unload_color (f, f->output_data.x->scroll_bar_bottom_shadow_pixel);
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1515 f->output_data.x->scroll_bar_bottom_shadow_pixel = -1;
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1516 }
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1517 #endif /* USE_TOOLKIT_SCROLL_BARS */
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
1518
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1519 f->output_data.x->scroll_bar_background_pixel = pixel;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1520 if (FRAME_X_WINDOW (f) && FRAME_VISIBLE_P (f))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1521 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1522 /* Remove all scroll bars because they have wrong colors. */
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1523 if (FRAME_TERMINAL (f)->condemn_scroll_bars_hook)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1524 (*FRAME_TERMINAL (f)->condemn_scroll_bars_hook) (f);
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1525 if (FRAME_TERMINAL (f)->judge_scroll_bars_hook)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
1526 (*FRAME_TERMINAL (f)->judge_scroll_bars_hook) (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1527
25593
9aecfcf3cb43 (x_set_foreground_color): Call
Gerd Moellmann <gerd@gnu.org>
parents: 25550
diff changeset
1528 update_face_from_frame_parameter (f, Qscroll_bar_background, value);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1529 redraw_frame (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1530 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1531 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1532
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1533
30383
2bec5f82f5d0 Correct typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents: 30355
diff changeset
1534 /* Encode Lisp string STRING as a text in a format appropriate for
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1535 XICCC (X Inter Client Communication Conventions).
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1536
77849
f68ce6aa4bd1 (x_encode_text): Add GCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 77848
diff changeset
1537 This can call Lisp code, so callers must GCPRO.
f68ce6aa4bd1 (x_encode_text): Add GCPRO.
Richard M. Stallman <rms@gnu.org>
parents: 77848
diff changeset
1538
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1539 If STRING contains only ASCII characters, do no conversion and
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1540 return the string data of STRING. Otherwise, encode the text by
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1541 CODING_SYSTEM, and return a newly allocated memory area which
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1542 should be freed by `xfree' by a caller.
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1543
43452
75677c801c26 (x_encode_text): Accept additional arg SELECTIONP; all
Eli Zaretskii <eliz@gnu.org>
parents: 43426
diff changeset
1544 SELECTIONP non-zero means the string is being encoded for an X
75677c801c26 (x_encode_text): Accept additional arg SELECTIONP; all
Eli Zaretskii <eliz@gnu.org>
parents: 43426
diff changeset
1545 selection, so it is safe to run pre-write conversions (which
75677c801c26 (x_encode_text): Accept additional arg SELECTIONP; all
Eli Zaretskii <eliz@gnu.org>
parents: 43426
diff changeset
1546 may run Lisp code).
75677c801c26 (x_encode_text): Accept additional arg SELECTIONP; all
Eli Zaretskii <eliz@gnu.org>
parents: 43426
diff changeset
1547
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1548 Store the byte length of resulting text in *TEXT_BYTES.
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1549
30354
7540bd2b5a34 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30351
diff changeset
1550 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1551 which means that the `encoding' of the result can be `STRING'.
30354
7540bd2b5a34 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30351
diff changeset
1552 Otherwise store 0 in *STRINGP, which means that the `encoding' of
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1553 the result should be `COMPOUND_TEXT'. */
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1554
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1555 static unsigned char *
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1556 x_encode_text (string, coding_system, selectionp, text_bytes, stringp, freep)
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1557 Lisp_Object string, coding_system;
30354
7540bd2b5a34 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30351
diff changeset
1558 int *text_bytes, *stringp;
43452
75677c801c26 (x_encode_text): Accept additional arg SELECTIONP; all
Eli Zaretskii <eliz@gnu.org>
parents: 43426
diff changeset
1559 int selectionp;
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1560 int *freep;
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1561 {
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
1562 int result = string_xstring_p (string);
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1563 struct coding_system coding;
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1564
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
1565 if (result == 0)
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1566 {
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1567 /* No multibyte character in OBJ. We need not encode it. */
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89352
diff changeset
1568 *text_bytes = SBYTES (string);
30354
7540bd2b5a34 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30351
diff changeset
1569 *stringp = 1;
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1570 *freep = 0;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89352
diff changeset
1571 return SDATA (string);
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1572 }
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1573
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1574 setup_coding_system (coding_system, &coding);
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
1575 coding.mode |= (CODING_MODE_SAFE_ENCODING | CODING_MODE_LAST_BLOCK);
33242
421e3db4e24e (x_encode_text): Suppress producing escape sequences for composition.
Kenichi Handa <handa@m17n.org>
parents: 32606
diff changeset
1576 /* We suppress producing escape sequences for composition. */
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
1577 coding.common_flags &= ~CODING_ANNOTATION_MASK;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89352
diff changeset
1578 coding.dst_bytes = SCHARS (string) * 2;
88509
0ac97e7062f5 (x_encode_text): Allocate coding.destination here, and
Kenichi Handa <handa@m17n.org>
parents: 88395
diff changeset
1579 coding.destination = (unsigned char *) xmalloc (coding.dst_bytes);
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
1580 encode_coding_object (&coding, string, 0, 0,
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89352
diff changeset
1581 SCHARS (string), SBYTES (string), Qnil);
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1582 *text_bytes = coding.produced;
88395
e69e2f450430 Include "character.h".
Kenichi Handa <handa@m17n.org>
parents: 43452
diff changeset
1583 *stringp = (result == 1 || !EQ (coding_system, Qcompound_text));
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1584 *freep = 1;
88509
0ac97e7062f5 (x_encode_text): Allocate coding.destination here, and
Kenichi Handa <handa@m17n.org>
parents: 88395
diff changeset
1585 return coding.destination;
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1586 }
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1587
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
1588
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1589 /* Set the WM name to NAME for frame F. Also set the icon name.
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1590 If the frame already has an icon name, use that, otherwise set the
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1591 icon name to NAME. */
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1592
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1593 static void
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1594 x_set_name_internal (f, name)
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1595 FRAME_PTR f;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1596 Lisp_Object name;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1597 {
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1598 if (FRAME_X_WINDOW (f))
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1599 {
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1600 BLOCK_INPUT;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1601 {
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1602 XTextProperty text, icon;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1603 int bytes, stringp;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1604 int do_free_icon_value = 0, do_free_text_value = 0;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1605 Lisp_Object coding_system;
77854
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1606 #ifdef USE_GTK
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1607 Lisp_Object encoded_name;
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1608 struct gcpro gcpro1;
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1609
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1610 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1611 we use it before x_encode_text that may return string data. */
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1612 GCPRO1 (name);
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1613 encoded_name = ENCODE_UTF_8 (name);
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1614 UNGCPRO;
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1615 #endif
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1616
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1617 coding_system = Qcompound_text;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1618 /* Note: Encoding strategy
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1619
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1620 We encode NAME by compound-text and use "COMPOUND-TEXT" in
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1621 text.encoding. But, there are non-internationalized window
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1622 managers which don't support that encoding. So, if NAME
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1623 contains only ASCII and 8859-1 characters, encode it by
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1624 iso-latin-1, and use "STRING" in text.encoding hoping that
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1625 such window managers at least analyze this format correctly,
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1626 i.e. treat 8-bit bytes as 8859-1 characters.
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1627
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1628 We may also be able to use "UTF8_STRING" in text.encoding
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1629 in the future which can encode all Unicode characters.
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1630 But, for the moment, there's no way to know that the
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1631 current window manager supports it or not. */
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1632 text.value = x_encode_text (name, coding_system, 0, &bytes, &stringp,
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1633 &do_free_text_value);
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1634 text.encoding = (stringp ? XA_STRING
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1635 : FRAME_X_DISPLAY_INFO (f)->Xatom_COMPOUND_TEXT);
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1636 text.format = 8;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1637 text.nitems = bytes;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1638
71173
ac5b57ff4647 (x_set_name_internal): Set icon to `text', derived from name, when
John Paul Wallington <jpw@pobox.com>
parents: 71166
diff changeset
1639 if (!STRINGP (f->icon_name))
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1640 {
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1641 icon = text;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1642 }
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1643 else
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1644 {
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1645 /* See the above comment "Note: Encoding strategy". */
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1646 icon.value = x_encode_text (f->icon_name, coding_system, 0,
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1647 &bytes, &stringp, &do_free_icon_value);
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1648 icon.encoding = (stringp ? XA_STRING
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1649 : FRAME_X_DISPLAY_INFO (f)->Xatom_COMPOUND_TEXT);
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1650 icon.format = 8;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1651 icon.nitems = bytes;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1652 }
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1653
77854
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1654 #ifdef USE_GTK
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1655 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)),
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1656 (char *) SDATA (encoded_name));
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1657 #else /* not USE_GTK */
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1658 XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text);
77854
96c01b44f51d (x_set_name_internal): Undo last change.
Chong Yidong <cyd@stupidchicken.com>
parents: 77849
diff changeset
1659 #endif /* not USE_GTK */
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1660
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1661 XSetWMIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &icon);
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1662
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1663 if (do_free_icon_value)
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1664 xfree (icon.value);
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1665 if (do_free_text_value)
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1666 xfree (text.value);
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1667 }
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1668 UNBLOCK_INPUT;
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1669 }
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1670 }
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1671
4650
d81041bb1e3d comment fix
David J. MacKenzie <djm@gnu.org>
parents: 4629
diff changeset
1672 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1673 x_id_name.
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1674
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1675 If EXPLICIT is non-zero, that indicates that lisp code is setting the
4650
d81041bb1e3d comment fix
David J. MacKenzie <djm@gnu.org>
parents: 4629
diff changeset
1676 name; if NAME is a string, set F's name to NAME and set
d81041bb1e3d comment fix
David J. MacKenzie <djm@gnu.org>
parents: 4629
diff changeset
1677 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1678
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1679 If EXPLICIT is zero, that indicates that Emacs redisplay code is
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1680 suggesting a new name, which lisp code should override; if
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1681 F->explicit_name is set, ignore the new name; otherwise, set it. */
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1682
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1683 void
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1684 x_set_name (f, name, explicit)
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1685 struct frame *f;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1686 Lisp_Object name;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1687 int explicit;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1688 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1689 /* Make sure that requests from lisp code override requests from
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1690 Emacs redisplay code. */
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1691 if (explicit)
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1692 {
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1693 /* If we're switching from explicit to implicit, we had better
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1694 update the mode lines and thereby update the title. */
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1695 if (f->explicit_name && NILP (name))
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
1696 update_mode_lines = 1;
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1697
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1698 f->explicit_name = ! NILP (name);
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1699 }
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1700 else if (f->explicit_name)
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1701 return;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1702
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1703 /* If NAME is nil, set the name to the x_id_name. */
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1704 if (NILP (name))
8090
bb03e344f07e (x_set_frame_parameters): Call x_set_offset directly.
Richard M. Stallman <rms@gnu.org>
parents: 7989
diff changeset
1705 {
bb03e344f07e (x_set_frame_parameters): Call x_set_offset directly.
Richard M. Stallman <rms@gnu.org>
parents: 7989
diff changeset
1706 /* Check for no change needed in this very common case
bb03e344f07e (x_set_frame_parameters): Call x_set_offset directly.
Richard M. Stallman <rms@gnu.org>
parents: 7989
diff changeset
1707 before we do any consing. */
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
1708 if (!strcmp (FRAME_X_DISPLAY_INFO (f)->x_id_name,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
1709 SDATA (f->name)))
8090
bb03e344f07e (x_set_frame_parameters): Call x_set_offset directly.
Richard M. Stallman <rms@gnu.org>
parents: 7989
diff changeset
1710 return;
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
1711 name = build_string (FRAME_X_DISPLAY_INFO (f)->x_id_name);
8090
bb03e344f07e (x_set_frame_parameters): Call x_set_offset directly.
Richard M. Stallman <rms@gnu.org>
parents: 7989
diff changeset
1712 }
833
14748faa4f17 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 817
diff changeset
1713 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1714 CHECK_STRING (name);
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1715
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1716 /* Don't change the name if it's already NAME. */
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1717 if (! NILP (Fstring_equal (name, f->name)))
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 708
diff changeset
1718 return;
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 708
diff changeset
1719
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1720 f->name = name;
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1721
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1722 /* For setting the frame title, the title parameter should override
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1723 the name parameter. */
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1724 if (! NILP (f->title))
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1725 name = f->title;
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1726
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1727 x_set_name_internal (f, name);
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1728 }
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1729
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1730 /* This function should be called when the user's lisp code has
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1731 specified a name for the frame; the name will override any set by the
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1732 redisplay code. */
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1733 void
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1734 x_explicitly_set_name (f, arg, oldval)
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1735 FRAME_PTR f;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1736 Lisp_Object arg, oldval;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1737 {
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1738 x_set_name (f, arg, 1);
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1739 }
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1740
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1741 /* This function should be called by Emacs redisplay code to set the
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1742 name; names set this way will never override names set by the user's
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1743 lisp code. */
1125
059624bf9bf0 Declare x_implicitly_set_name to be void.
Jim Blandy <jimb@redhat.com>
parents: 1096
diff changeset
1744 void
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1745 x_implicitly_set_name (f, arg, oldval)
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1746 FRAME_PTR f;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1747 Lisp_Object arg, oldval;
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1748 {
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
1749 x_set_name (f, arg, 0);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1750 }
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1751
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1752 /* Change the title of frame F to NAME.
79055
3d1946da128d *** empty log message ***
Martin Rudalics <rudalics@gmx.at>
parents: 78260
diff changeset
1753 If NAME is nil, use the frame name as the title. */
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1754
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1755 void
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
1756 x_set_title (f, name, old_name)
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1757 struct frame *f;
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
1758 Lisp_Object name, old_name;
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1759 {
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1760 /* Don't change the title if it's already NAME. */
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1761 if (EQ (name, f->title))
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1762 return;
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1763
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1764 update_mode_lines = 1;
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1765
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1766 f->title = name;
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1767
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1768 if (NILP (name))
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1769 name = f->name;
16732
f52c4fd47f03 (x_set_title): Check data type of NAME.
Richard M. Stallman <rms@gnu.org>
parents: 16682
diff changeset
1770 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
1771 CHECK_STRING (name);
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1772
56879
fcda7ee97ef5 * xfns.c (x_set_name_internal): New function. Check if we shall call
Jan Djärv <jan.h.d@swipnet.se>
parents: 56781
diff changeset
1773 x_set_name_internal (f, name);
14482
479987ba2c8d (x_frame_parms): Add "title" element.
Richard M. Stallman <rms@gnu.org>
parents: 14439
diff changeset
1774 }
9580
bcc9342cf633 (x_set_unsplittable): New function.
Karl Heuer <kwzh@gnu.org>
parents: 9563
diff changeset
1775
bcc9342cf633 (x_set_unsplittable): New function.
Karl Heuer <kwzh@gnu.org>
parents: 9563
diff changeset
1776 void
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1777 x_set_scroll_bar_default_width (f)
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
1778 struct frame *f;
8942
a43f3b56ed47 (x_set_scroll_bar_width): New function.
Karl Heuer <kwzh@gnu.org>
parents: 8845
diff changeset
1779 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1780 int wid = FRAME_COLUMN_WIDTH (f);
18594
5ca5ff1c74eb (x_set_scroll_bar_width): By default, use enough
Richard M. Stallman <rms@gnu.org>
parents: 18114
diff changeset
1781
25511
9bc9d4d6c716 (x_set_scroll_bar_width): Change conditional compilation
Gerd Moellmann <gerd@gnu.org>
parents: 25464
diff changeset
1782 #ifdef USE_TOOLKIT_SCROLL_BARS
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1783 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1784 int width = 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1785 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (width + wid - 1) / wid;
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1786 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = width;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1787 #else
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1788 /* Make the actual width at least 14 pixels and a multiple of a
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1789 character width. */
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1790 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid;
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1791
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1792 /* Use all of that space (aside from required margins) for the
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1793 scroll bar. */
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
1794 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 0;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1795 #endif
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
1796 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1797
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1798
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1799 /* Record in frame F the specified or default value according to ALIST
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1800 of the parameter named PROP (a Lisp symbol). If no value is
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1801 specified for PROP, look for an X default for XPROP on the frame
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1802 named NAME. If that is not found either, use the value DEFLT. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1803
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1804 static Lisp_Object
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1805 x_default_scroll_bar_color_parameter (f, alist, prop, xprop, xclass,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1806 foreground_p)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1807 struct frame *f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1808 Lisp_Object alist;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1809 Lisp_Object prop;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1810 char *xprop;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1811 char *xclass;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1812 int foreground_p;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1813 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1814 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1815 Lisp_Object tem;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1816
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1817 tem = x_get_arg (dpyinfo, alist, prop, xprop, xclass, RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1818 if (EQ (tem, Qunbound))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1819 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1820 #ifdef USE_TOOLKIT_SCROLL_BARS
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1821
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1822 /* See if an X resource for the scroll bar color has been
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1823 specified. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1824 tem = display_x_get_resource (dpyinfo,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1825 build_string (foreground_p
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1826 ? "foreground"
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1827 : "background"),
81274
516508c377db (x_default_scroll_bar_color_parameter):
Juanma Barranquero <lekktu@gmail.com>
parents: 77848
diff changeset
1828 empty_unibyte_string,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1829 build_string ("verticalScrollBar"),
81274
516508c377db (x_default_scroll_bar_color_parameter):
Juanma Barranquero <lekktu@gmail.com>
parents: 77848
diff changeset
1830 empty_unibyte_string);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1831 if (!STRINGP (tem))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1832 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1833 /* If nothing has been specified, scroll bars will use a
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1834 toolkit-dependent default. Because these defaults are
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1835 difficult to get at without actually creating a scroll
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1836 bar, use nil to indicate that no color has been
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1837 specified. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1838 tem = Qnil;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1839 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1840
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1841 #else /* not USE_TOOLKIT_SCROLL_BARS */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1842
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1843 tem = Qnil;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
1844
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1845 #endif /* not USE_TOOLKIT_SCROLL_BARS */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1846 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1847
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1848 x_set_frame_parameters (f, Fcons (Fcons (prop, tem), Qnil));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1849 return tem;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1850 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1851
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
1852
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1853
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1854
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1855 #ifdef USE_X_TOOLKIT
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1856
9528
db02bc274f20 (Fx_create_frame): Init the FRAME_X_SCREEN as soon as can be done.
Richard M. Stallman <rms@gnu.org>
parents: 9353
diff changeset
1857 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
db02bc274f20 (Fx_create_frame): Init the FRAME_X_SCREEN as soon as can be done.
Richard M. Stallman <rms@gnu.org>
parents: 9353
diff changeset
1858 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
8845
c4b7fda8f611 (hack_wm_protocols): Arrange to handle WM_SAVE_YOURSELF.
Richard M. Stallman <rms@gnu.org>
parents: 8782
diff changeset
1859 already be present because of the toolkit (Motif adds some of them,
c4b7fda8f611 (hack_wm_protocols): Arrange to handle WM_SAVE_YOURSELF.
Richard M. Stallman <rms@gnu.org>
parents: 8782
diff changeset
1860 for example, but Xt doesn't). */
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1861
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1862 static void
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1863 hack_wm_protocols (f, widget)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1864 FRAME_PTR f;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1865 Widget widget;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1866 {
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1867 Display *dpy = XtDisplay (widget);
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1868 Window w = XtWindow (widget);
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1869 int need_delete = 1;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1870 int need_focus = 1;
8845
c4b7fda8f611 (hack_wm_protocols): Arrange to handle WM_SAVE_YOURSELF.
Richard M. Stallman <rms@gnu.org>
parents: 8782
diff changeset
1871 int need_save = 1;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1872
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1873 BLOCK_INPUT;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1874 {
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1875 Atom type;
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1876 unsigned char *catoms;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1877 int format = 0;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1878 unsigned long nitems = 0;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1879 unsigned long bytes_after;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1880
11882
8b3575269610 (hack_wm_protocols): Cast args of XGetWindowProperty.
Karl Heuer <kwzh@gnu.org>
parents: 11774
diff changeset
1881 if ((XGetWindowProperty (dpy, w,
8b3575269610 (hack_wm_protocols): Cast args of XGetWindowProperty.
Karl Heuer <kwzh@gnu.org>
parents: 11774
diff changeset
1882 FRAME_X_DISPLAY_INFO (f)->Xatom_wm_protocols,
11894
b20c45d49063 (hack_wm_protocols): Use cast instead of suffix.
Karl Heuer <kwzh@gnu.org>
parents: 11893
diff changeset
1883 (long)0, (long)100, False, XA_ATOM,
11882
8b3575269610 (hack_wm_protocols): Cast args of XGetWindowProperty.
Karl Heuer <kwzh@gnu.org>
parents: 11774
diff changeset
1884 &type, &format, &nitems, &bytes_after,
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1885 &catoms)
11882
8b3575269610 (hack_wm_protocols): Cast args of XGetWindowProperty.
Karl Heuer <kwzh@gnu.org>
parents: 11774
diff changeset
1886 == Success)
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1887 && format == 32 && type == XA_ATOM)
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1888 {
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1889 Atom *atoms = (Atom *) catoms;
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1890 while (nitems > 0)
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1891 {
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1892 nitems--;
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1893 if (atoms[nitems]
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1894 == FRAME_X_DISPLAY_INFO (f)->Xatom_wm_delete_window)
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1895 need_delete = 0;
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1896 else if (atoms[nitems]
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1897 == FRAME_X_DISPLAY_INFO (f)->Xatom_wm_take_focus)
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1898 need_focus = 0;
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1899 else if (atoms[nitems]
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1900 == FRAME_X_DISPLAY_INFO (f)->Xatom_wm_save_yourself)
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1901 need_save = 0;
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1902 }
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1903 }
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1904 if (catoms)
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
1905 XFree (catoms);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1906 }
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1907 {
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1908 Atom props [10];
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1909 int count = 0;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1910 if (need_delete)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1911 props[count++] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_delete_window;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1912 if (need_focus)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1913 props[count++] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_take_focus;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1914 if (need_save)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1915 props[count++] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_save_yourself;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1916 if (count)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1917 XChangeProperty (dpy, w, FRAME_X_DISPLAY_INFO (f)->Xatom_wm_protocols,
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
1918 XA_ATOM, 32, PropModeAppend,
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1919 (unsigned char *) props, count);
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1920 }
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1921 UNBLOCK_INPUT;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1922 }
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
1923 #endif
27157
3dafddaefc2c (x_create_im): New function to set IM and IC of a frame.
Gerd Moellmann <gerd@gnu.org>
parents: 27153
diff changeset
1924
3dafddaefc2c (x_create_im): New function to set IM and IC of a frame.
Gerd Moellmann <gerd@gnu.org>
parents: 27153
diff changeset
1925
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1926
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1927 /* Support routines for XIC (X Input Context). */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1928
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1929 #ifdef HAVE_X_I18N
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1930
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1931 static XFontSet xic_create_xfontset P_ ((struct frame *, char *));
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
1932 static XFontSet xic_create_xfontset2 P_ ((struct frame *));
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1933 static XIMStyle best_xim_style P_ ((XIMStyles *, XIMStyles *));
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1934
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1935
51130
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
1936 /* Supported XIM styles, ordered by preference. */
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1937
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1938 static XIMStyle supported_xim_styles[] =
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1939 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1940 XIMPreeditPosition | XIMStatusArea,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1941 XIMPreeditPosition | XIMStatusNothing,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1942 XIMPreeditPosition | XIMStatusNone,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1943 XIMPreeditNothing | XIMStatusArea,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1944 XIMPreeditNothing | XIMStatusNothing,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1945 XIMPreeditNothing | XIMStatusNone,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1946 XIMPreeditNone | XIMStatusArea,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1947 XIMPreeditNone | XIMStatusNothing,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1948 XIMPreeditNone | XIMStatusNone,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1949 0,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1950 };
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1951
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1952
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
1953 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
1954
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1955 char xic_defaut_fontset[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1956
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1957 /* Create an Xt fontset spec from the name of a base font.
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1958 If `motif' is True use the Motif syntax. */
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1959 char *
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1960 xic_create_fontsetname (base_fontname, motif)
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1961 char *base_fontname;
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1962 Bool motif;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1963 {
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1964 const char *sep = motif ? ";" : ",";
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1965 char *fontsetname;
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1966
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1967 /* Make a fontset name from the base font name. */
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1968 if (xic_defaut_fontset == base_fontname)
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1969 { /* There is no base font name, use the default. */
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1970 int len = strlen (base_fontname) + 2;
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1971 fontsetname = xmalloc (len);
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1972 bzero (fontsetname, len);
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1973 strcpy (fontsetname, base_fontname);
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1974 }
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1975 else
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1976 {
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1977 /* Make a fontset name from the base font name.
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1978 The font set will be made of the following elements:
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1979 - the base font.
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1980 - the base font where the charset spec is replaced by -*-*.
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1981 - the same but with the family also replaced with -*-*-. */
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1982 char *p = base_fontname;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1983 int i;
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1984
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1985 for (i = 0; *p; p++)
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1986 if (*p == '-') i++;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1987 if (i != 14)
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1988 { /* As the font name doesn't conform to XLFD, we can't
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1989 modify it to generalize it to allcs and allfamilies.
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1990 Use the specified font plus the default. */
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1991 int len = strlen (base_fontname) + strlen (xic_defaut_fontset) + 3;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1992 fontsetname = xmalloc (len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1993 bzero (fontsetname, len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1994 strcpy (fontsetname, base_fontname);
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
1995 strcat (fontsetname, sep);
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1996 strcat (fontsetname, xic_defaut_fontset);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1997 }
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1998 else
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
1999 {
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2000 int len;
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2001 char *p1 = NULL, *p2 = NULL, *p3 = NULL;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2002 char *font_allcs = NULL;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2003 char *font_allfamilies = NULL;
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2004 char *font_all = NULL;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2005 char *allcs = "*-*-*-*-*-*-*";
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2006 char *allfamilies = "-*-*-";
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2007 char *all = "*-*-*-*-";
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2008 char *base;
65459
41f88837ca5b (x_encode_text): Declare static. Add FREEP arg.
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
2009
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2010 for (i = 0, p = base_fontname; i < 8; p++)
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2011 {
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2012 if (*p == '-')
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2013 {
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2014 i++;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2015 if (i == 3)
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2016 p1 = p + 1;
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2017 else if (i == 7)
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2018 p2 = p + 1;
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2019 else if (i == 6)
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2020 p3 = p + 1;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2021 }
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2022 }
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2023 /* If base_fontname specifies ADSTYLE, make it a
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2024 wildcard. */
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2025 if (*p3 != '*')
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2026 {
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2027 int diff = (p2 - p3) - 2;
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2028
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2029 base = alloca (strlen (base_fontname) + 1);
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2030 bcopy (base_fontname, base, p3 - base_fontname);
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2031 base[p3 - base_fontname] = '*';
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2032 base[(p3 - base_fontname) + 1] = '-';
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2033 strcpy (base + (p3 - base_fontname) + 2, p2);
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2034 p = base + (p - base_fontname) - diff;
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2035 p1 = base + (p1 - base_fontname);
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2036 p2 = base + (p2 - base_fontname) - diff;
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2037 base_fontname = base;
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2038 }
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2039
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2040 /* Build the font spec that matches all charsets. */
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2041 len = p - base_fontname + strlen (allcs) + 1;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2042 font_allcs = (char *) alloca (len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2043 bzero (font_allcs, len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2044 bcopy (base_fontname, font_allcs, p - base_fontname);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2045 strcat (font_allcs, allcs);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2046
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2047 /* Build the font spec that matches all families and
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2048 add-styles. */
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2049 len = p - p1 + strlen (allcs) + strlen (allfamilies) + 1;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2050 font_allfamilies = (char *) alloca (len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2051 bzero (font_allfamilies, len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2052 strcpy (font_allfamilies, allfamilies);
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2053 bcopy (p1, font_allfamilies + strlen (allfamilies), p - p1);
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2054 strcat (font_allfamilies, allcs);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2055
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2056 /* Build the font spec that matches all. */
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2057 len = p - p2 + strlen (allcs) + strlen (all) + strlen (allfamilies) + 1;
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2058 font_all = (char *) alloca (len);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2059 bzero (font_all, len);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2060 strcpy (font_all, allfamilies);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2061 strcat (font_all, all);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2062 bcopy (p2, font_all + strlen (all) + strlen (allfamilies), p - p2);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2063 strcat (font_all, allcs);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2064
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2065 /* Build the actual font set name. */
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2066 len = strlen (base_fontname) + strlen (font_allcs)
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2067 + strlen (font_allfamilies) + strlen (font_all) + 5;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2068 fontsetname = xmalloc (len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2069 bzero (fontsetname, len);
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2070 strcpy (fontsetname, base_fontname);
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2071 strcat (fontsetname, sep);
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2072 strcat (fontsetname, font_allcs);
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2073 strcat (fontsetname, sep);
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2074 strcat (fontsetname, font_allfamilies);
60695
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2075 strcat (fontsetname, sep);
d8c3512bc427 (xic_create_fontsetname): Add a final catch-all font pattern.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60668
diff changeset
2076 strcat (fontsetname, font_all);
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2077 }
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2078 }
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2079 if (motif)
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2080 strcat (fontsetname, ":");
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2081 return fontsetname;
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2082 }
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2083
90724
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2084 #ifdef DEBUG_XIC_FONTSET
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2085 static void
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2086 print_fontset_result (xfs, name, missing_list, missing_count)
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2087 XFontSet xfs;
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2088 char *name;
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2089 char **missing_list;
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2090 int missing_count;
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2091 {
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2092 if (xfs)
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2093 fprintf (stderr, "XIC Fontset created: %s\n", name);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2094 else
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2095 {
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2096 fprintf (stderr, "XIC Fontset failed: %s\n", name);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2097 while (missing_count-- > 0)
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2098 {
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2099 fprintf (stderr, " missing: %s\n", *missing_list);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2100 missing_list++;
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2101 }
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2102 }
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2103
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2104 }
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2105 #endif
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2106
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2107 static XFontSet
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2108 xic_create_xfontset (f, base_fontname)
27157
3dafddaefc2c (x_create_im): New function to set IM and IC of a frame.
Gerd Moellmann <gerd@gnu.org>
parents: 27153
diff changeset
2109 struct frame *f;
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2110 char *base_fontname;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2111 {
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2112 XFontSet xfs = NULL;
57643
3b8eabf02bad * xfns.c (xic_create_xfontset): Initialize missing_list to NULL.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57633
diff changeset
2113 char **missing_list = NULL;
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2114 int missing_count;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2115 char *def_string;
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2116 Lisp_Object rest, frame;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2117
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2118 if (!base_fontname)
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2119 base_fontname = xic_defaut_fontset;
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2120
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2121 /* See if there is another frame already using same fontset. */
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2122 FOR_EACH_FRAME (rest, frame)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2123 {
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2124 struct frame *cf = XFRAME (frame);
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2125 if (cf != f && FRAME_LIVE_P (f) && FRAME_X_P (cf)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2126 && FRAME_X_DISPLAY_INFO (cf) == FRAME_X_DISPLAY_INFO (f)
57714
7920b90a583c * xfns.c (xic_create_xfontset): Check that FRAME_XIC_BASE_FONTNAME
Jan Djärv <jan.h.d@swipnet.se>
parents: 57643
diff changeset
2127 && FRAME_XIC_BASE_FONTNAME (cf)
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2128 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf), base_fontname))
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2129 {
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2130 xfs = FRAME_XIC_FONTSET (cf);
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2131 break;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2132 }
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2133 }
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2134
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2135 if (!xfs)
57643
3b8eabf02bad * xfns.c (xic_create_xfontset): Initialize missing_list to NULL.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57633
diff changeset
2136 {
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2137 char *fontsetname = xic_create_fontsetname (base_fontname, False);
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2138
57643
3b8eabf02bad * xfns.c (xic_create_xfontset): Initialize missing_list to NULL.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57633
diff changeset
2139 /* New fontset. */
73568
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2140 xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2141 fontsetname, &missing_list,
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2142 &missing_count, &def_string);
90724
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2143 #ifdef DEBUG_XIC_FONTSET
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2144 print_fontset_result (xfs, fontsetname, missing_list, missing_count);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2145 #endif
73568
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2146 if (missing_list)
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2147 XFreeStringList (missing_list);
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2148 if (! xfs)
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2149 {
73568
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2150 /* FONTSETNAME contains a list of font names (specific fonts
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2151 first, general fonts last), but giving that to
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2152 XCreateFontSet at once occasionally fails (bug of X?).
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2153 So, we try to call XCreateFontSet for each fontname. */
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2154 char *p0 = fontsetname, *p1;
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2155
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2156 while (p0)
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2157 {
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2158 p1 = strchr (p0, ',');
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2159 if (p1)
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2160 *p1 = '\0';
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2161 xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2162 p0, &missing_list,
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2163 &missing_count, &def_string);
90724
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2164 #ifdef DEBUG_XIC_FONTSET
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2165 print_fontset_result (xfs, p0, missing_list, missing_count);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2166 #endif
73568
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2167 if (missing_list)
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2168 XFreeStringList (missing_list);
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2169 if (xfs)
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2170 break;
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2171 p0 = p1 ? p1 + 1 : NULL;
0cc0a8049941 (xic_create_xfontset): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 73448
diff changeset
2172 }
73448
1fd4b3c12646 (xic_create_fontsetname): If ADSTYLE field is not a wild
Kenichi Handa <handa@m17n.org>
parents: 73045
diff changeset
2173 }
60668
34f4b9f0b40d (xic_create_fontsetname): Add `motif' argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60582
diff changeset
2174 xfree (fontsetname);
90662
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2175 if (! xfs && base_fontname != xic_defaut_fontset)
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2176 {
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2177 /* Try the default fontset name at a last resort. */
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2178 fontsetname = xic_create_fontsetname (xic_defaut_fontset, False);
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2179 xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2180 fontsetname, &missing_list,
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2181 &missing_count, &def_string);
90724
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2182 #ifdef DEBUG_XIC_FONTSET
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2183 print_fontset_result (xfs, fontsetname, missing_list, missing_count);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2184 #endif
90662
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2185 if (missing_list)
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2186 XFreeStringList (missing_list);
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2187 xfree (fontsetname);
a81dd6ff9caa (xic_create_xfontset): Try the default fontset name as a
Kenichi Handa <handa@m17n.org>
parents: 90650
diff changeset
2188 }
57643
3b8eabf02bad * xfns.c (xic_create_xfontset): Initialize missing_list to NULL.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57633
diff changeset
2189 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2190
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2191 if (FRAME_XIC_BASE_FONTNAME (f))
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2192 xfree (FRAME_XIC_BASE_FONTNAME (f));
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2193 FRAME_XIC_BASE_FONTNAME (f) = xstrdup (base_fontname);
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2194
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2195 /* No need to free def_string. */
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2196 return xfs;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2197 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2198
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2199 #ifdef USE_FONT_BACKEND
90719
3bba05d0a63c (xic_create_xfontset2): Add debug code.
Kenichi Handa <handa@m17n.org>
parents: 90693
diff changeset
2200
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2201 static XFontSet
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2202 xic_create_xfontset2 (f)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2203 struct frame *f;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2204 {
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2205 XFontSet xfs = NULL;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2206 struct font *font = FRAME_FONT_OBJECT (f);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2207 int pixel_size = font->pixel_size;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2208 Lisp_Object rest, frame;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2209
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2210 /* See if there is another frame already using same fontset. */
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2211 FOR_EACH_FRAME (rest, frame)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2212 {
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2213 struct frame *cf = XFRAME (frame);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2214
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2215 if (cf != f && FRAME_LIVE_P (f) && FRAME_X_P (cf)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2216 && FRAME_X_DISPLAY_INFO (cf) == FRAME_X_DISPLAY_INFO (f)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2217 && FRAME_FONT_OBJECT (f)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2218 && FRAME_FONT_OBJECT (f)->pixel_size == pixel_size)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2219 {
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2220 xfs = FRAME_XIC_FONTSET (cf);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2221 break;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2222 }
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2223 }
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2224
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2225 if (! xfs)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2226 {
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2227 char buf[256];
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2228 char **missing_list;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2229 int missing_count;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2230 char *def_string;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2231 char *xlfd_format = "-*-*-medium-r-normal--%d-*-*-*-*-*";
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2232
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2233 sprintf (buf, xlfd_format, pixel_size);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2234 missing_list = NULL;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2235 xfs = XCreateFontSet (FRAME_X_DISPLAY (f), buf,
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2236 &missing_list, &missing_count, &def_string);
90719
3bba05d0a63c (xic_create_xfontset2): Add debug code.
Kenichi Handa <handa@m17n.org>
parents: 90693
diff changeset
2237 #ifdef DEBUG_XIC_FONTSET
90721
83fbeead74c9 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 90720
diff changeset
2238 print_fontset_result (xfs, buf, missing_list, missing_count);
90719
3bba05d0a63c (xic_create_xfontset2): Add debug code.
Kenichi Handa <handa@m17n.org>
parents: 90693
diff changeset
2239 #endif
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2240 if (missing_list)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2241 XFreeStringList (missing_list);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2242 if (! xfs)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2243 {
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2244 /* List of pixel sizes most likely available. Find one that
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2245 is closest to pixel_size. */
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2246 int sizes[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2247 int *smaller, *larger;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2248
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2249 for (smaller = sizes; smaller[1]; smaller++)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2250 if (smaller[1] >= pixel_size)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2251 break;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2252 larger = smaller + 1;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2253 if (*larger == pixel_size)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2254 larger++;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2255 while (*smaller || *larger)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2256 {
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2257 int this_size;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2258
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2259 if (! *larger)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2260 this_size = *smaller--;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2261 else if (! *smaller)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2262 this_size = *larger++;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2263 else if (pixel_size - *smaller < *larger - pixel_size)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2264 this_size = *smaller--;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2265 else
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2266 this_size = *larger++;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2267 sprintf (buf, xlfd_format, this_size);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2268 missing_list = NULL;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2269 xfs = XCreateFontSet (FRAME_X_DISPLAY (f), buf,
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2270 &missing_list, &missing_count, &def_string);
90719
3bba05d0a63c (xic_create_xfontset2): Add debug code.
Kenichi Handa <handa@m17n.org>
parents: 90693
diff changeset
2271 #ifdef DEBUG_XIC_FONTSET
90721
83fbeead74c9 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 90720
diff changeset
2272 print_fontset_result (xfs, buf, missing_list, missing_count);
90719
3bba05d0a63c (xic_create_xfontset2): Add debug code.
Kenichi Handa <handa@m17n.org>
parents: 90693
diff changeset
2273 #endif
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2274 if (missing_list)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2275 XFreeStringList (missing_list);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2276 if (xfs)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2277 break;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2278 }
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2279 }
90724
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2280 if (! xfs)
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2281 {
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2282 char *last_resort = "-*-*-*-r-normal--*-*-*-*-*-*";
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2283
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2284 missing_list = NULL;
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2285 xfs = XCreateFontSet (FRAME_X_DISPLAY (f), last_resort,
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2286 &missing_list, &missing_count, &def_string);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2287 #ifdef DEBUG_XIC_FONTSET
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2288 print_fontset_result (xfs, last_resort, missing_list, missing_count);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2289 #endif
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2290 if (missing_list)
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2291 XFreeStringList (missing_list);
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2292 }
96bde39d99b2 Add more debug info.
Kenichi Handa <handa@m17n.org>
parents: 90721
diff changeset
2293
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2294 }
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2295
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2296 return xfs;
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2297 }
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2298 #endif /* USE_FONT_BACKEND */
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2299
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2300 /* Free the X fontset of frame F if it is the last frame using it. */
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2301
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2302 void
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2303 xic_free_xfontset (f)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2304 struct frame *f;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2305 {
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2306 Lisp_Object rest, frame;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2307 int shared_p = 0;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2308
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2309 if (!FRAME_XIC_FONTSET (f))
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2310 return;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2311
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2312 /* See if there is another frame sharing the same fontset. */
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2313 FOR_EACH_FRAME (rest, frame)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2314 {
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2315 struct frame *cf = XFRAME (frame);
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2316 if (cf != f && FRAME_LIVE_P (f) && FRAME_X_P (cf)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2317 && FRAME_X_DISPLAY_INFO (cf) == FRAME_X_DISPLAY_INFO (f)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2318 && FRAME_XIC_FONTSET (cf) == FRAME_XIC_FONTSET (f))
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2319 {
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2320 shared_p = 1;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2321 break;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2322 }
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2323 }
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2324
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2325 if (!shared_p)
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2326 /* The fontset is not used anymore. It is safe to free it. */
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2327 XFreeFontSet (FRAME_X_DISPLAY (f), FRAME_XIC_FONTSET (f));
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2328
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2329 if (FRAME_XIC_BASE_FONTNAME (f))
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2330 xfree (FRAME_XIC_BASE_FONTNAME (f));
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2331 FRAME_XIC_BASE_FONTNAME (f) = NULL;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2332 FRAME_XIC_FONTSET (f) = NULL;
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2333 }
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2334
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2335
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2336 /* Value is the best input style, given user preferences USER (already
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2337 checked to be supported by Emacs), and styles supported by the
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2338 input method XIM. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2339
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2340 static XIMStyle
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2341 best_xim_style (user, xim)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2342 XIMStyles *user;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2343 XIMStyles *xim;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2344 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2345 int i, j;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2346
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2347 for (i = 0; i < user->count_styles; ++i)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2348 for (j = 0; j < xim->count_styles; ++j)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2349 if (user->supported_styles[i] == xim->supported_styles[j])
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2350 return user->supported_styles[i];
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2351
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2352 /* Return the default style. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2353 return XIMPreeditNothing | XIMStatusNothing;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2354 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2355
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2356 /* Create XIC for frame F. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2357
35592
52b5b50a0604 (xic_style): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35579
diff changeset
2358 static XIMStyle xic_style;
52b5b50a0604 (xic_style): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35579
diff changeset
2359
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2360 void
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2361 create_frame_xic (f)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2362 struct frame *f;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2363 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2364 XIM xim;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2365 XIC xic = NULL;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2366 XFontSet xfs = NULL;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2367
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2368 if (FRAME_XIC (f))
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2369 return;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2370
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2371 /* Create X fontset. */
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2372 #ifdef USE_FONT_BACKEND
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2373 if (enable_font_backend)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2374 xfs = xic_create_xfontset2 (f);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2375 else
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2376 #endif
60582
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2377 xfs = xic_create_xfontset
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2378 (f, (FRAME_FONTSET (f) < 0) ? NULL
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2379 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f))));
c2a74bfb2e79 (xic_defaut_fontset): New constant.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60555
diff changeset
2380
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2381 xim = FRAME_X_XIM (f);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2382 if (xim)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2383 {
27659
4137c807296b (create_frame_xic): Fix initialization of automatic aggregates for pcc.
Dave Love <fx@gnu.org>
parents: 27502
diff changeset
2384 XRectangle s_area;
4137c807296b (create_frame_xic): Fix initialization of automatic aggregates for pcc.
Dave Love <fx@gnu.org>
parents: 27502
diff changeset
2385 XPoint spot;
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2386 XVaNestedList preedit_attr;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2387 XVaNestedList status_attr;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2388
27659
4137c807296b (create_frame_xic): Fix initialization of automatic aggregates for pcc.
Dave Love <fx@gnu.org>
parents: 27502
diff changeset
2389 s_area.x = 0; s_area.y = 0; s_area.width = 1; s_area.height = 1;
4137c807296b (create_frame_xic): Fix initialization of automatic aggregates for pcc.
Dave Love <fx@gnu.org>
parents: 27502
diff changeset
2390 spot.x = 0; spot.y = 1;
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2391
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2392 /* Determine XIC style. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2393 if (xic_style == 0)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2394 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2395 XIMStyles supported_list;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2396 supported_list.count_styles = (sizeof supported_xim_styles
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2397 / sizeof supported_xim_styles[0]);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2398 supported_list.supported_styles = supported_xim_styles;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2399 xic_style = best_xim_style (&supported_list,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2400 FRAME_X_XIM_STYLES (f));
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2401 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2402
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2403 preedit_attr = XVaCreateNestedList (0,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2404 XNFontSet, xfs,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2405 XNForeground,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2406 FRAME_FOREGROUND_PIXEL (f),
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2407 XNBackground,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2408 FRAME_BACKGROUND_PIXEL (f),
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2409 (xic_style & XIMPreeditPosition
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2410 ? XNSpotLocation
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2411 : NULL),
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2412 &spot,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2413 NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2414 status_attr = XVaCreateNestedList (0,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2415 XNArea,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2416 &s_area,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2417 XNFontSet,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2418 xfs,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2419 XNForeground,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2420 FRAME_FOREGROUND_PIXEL (f),
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2421 XNBackground,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2422 FRAME_BACKGROUND_PIXEL (f),
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2423 NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2424
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2425 xic = XCreateIC (xim,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2426 XNInputStyle, xic_style,
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
2427 XNClientWindow, FRAME_X_WINDOW (f),
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
2428 XNFocusWindow, FRAME_X_WINDOW (f),
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2429 XNStatusAttributes, status_attr,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2430 XNPreeditAttributes, preedit_attr,
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2431 NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2432 XFree (preedit_attr);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2433 XFree (status_attr);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2434 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2435
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2436 FRAME_XIC (f) = xic;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2437 FRAME_XIC_STYLE (f) = xic_style;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2438 FRAME_XIC_FONTSET (f) = xfs;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2439 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2440
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2441
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2442 /* Destroy XIC and free XIC fontset of frame F, if any. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2443
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2444 void
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2445 free_frame_xic (f)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2446 struct frame *f;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2447 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2448 if (FRAME_XIC (f) == NULL)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2449 return;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2450
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2451 XDestroyIC (FRAME_XIC (f));
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2452 xic_free_xfontset (f);
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2453
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2454 FRAME_XIC (f) = NULL;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2455 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2456
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2457
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2458 /* Place preedit area for XIC of window W's frame to specified
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2459 pixel position X/Y. X and Y are relative to window W. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2460
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2461 void
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2462 xic_set_preeditarea (w, x, y)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2463 struct window *w;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2464 int x, y;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2465 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2466 struct frame *f = XFRAME (w->frame);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2467 XVaNestedList attr;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2468 XPoint spot;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2469
52059
4b5692f6703a (xic_set_preeditarea): Add the left fringe width to spot.x.
Kenichi Handa <handa@m17n.org>
parents: 52015
diff changeset
2470 spot.x = WINDOW_TO_FRAME_PIXEL_X (w, x) + WINDOW_LEFT_FRINGE_WIDTH (w);
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2471 spot.y = WINDOW_TO_FRAME_PIXEL_Y (w, y) + FONT_BASE (FRAME_FONT (f));
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2472 attr = XVaCreateNestedList (0, XNSpotLocation, &spot, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2473 XSetICValues (FRAME_XIC (f), XNPreeditAttributes, attr, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2474 XFree (attr);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2475 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2476
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2477
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2478 /* Place status area for XIC in bottom right corner of frame F.. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2479
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2480 void
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2481 xic_set_statusarea (f)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2482 struct frame *f;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2483 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2484 XIC xic = FRAME_XIC (f);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2485 XVaNestedList attr;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2486 XRectangle area;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2487 XRectangle *needed;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2488
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2489 /* Negotiate geometry of status area. If input method has existing
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2490 status area, use its current size. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2491 area.x = area.y = area.width = area.height = 0;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2492 attr = XVaCreateNestedList (0, XNAreaNeeded, &area, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2493 XSetICValues (xic, XNStatusAttributes, attr, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2494 XFree (attr);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2495
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2496 attr = XVaCreateNestedList (0, XNAreaNeeded, &needed, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2497 XGetICValues (xic, XNStatusAttributes, attr, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2498 XFree (attr);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2499
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2500 if (needed->width == 0) /* Use XNArea instead of XNAreaNeeded */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2501 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2502 attr = XVaCreateNestedList (0, XNArea, &needed, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2503 XGetICValues (xic, XNStatusAttributes, attr, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2504 XFree (attr);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2505 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2506
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2507 area.width = needed->width;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2508 area.height = needed->height;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2509 area.x = FRAME_PIXEL_WIDTH (f) - area.width - FRAME_INTERNAL_BORDER_WIDTH (f);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2510 area.y = (FRAME_PIXEL_HEIGHT (f) - area.height
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2511 - FRAME_MENUBAR_HEIGHT (f)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2512 - FRAME_TOOLBAR_HEIGHT (f)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2513 - FRAME_INTERNAL_BORDER_WIDTH (f));
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2514 XFree (needed);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2515
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2516 attr = XVaCreateNestedList (0, XNArea, &area, NULL);
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
2517 XSetICValues (xic, XNStatusAttributes, attr, NULL);
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2518 XFree (attr);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2519 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2520
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2521
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2522 /* Set X fontset for XIC of frame F, using base font name
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2523 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2524
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2525 void
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2526 xic_set_xfontset (f, base_fontname)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2527 struct frame *f;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2528 char *base_fontname;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2529 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2530 XVaNestedList attr;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2531 XFontSet xfs;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2532
57633
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2533 xic_free_xfontset (f);
ead4249849ac * xterm.h (x_output): New member `xic_base_fontname'.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57432
diff changeset
2534
90693
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2535 #ifdef USE_FONT_BACKEND
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2536 if (enable_font_backend)
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2537 xfs = xic_create_xfontset2 (f);
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2538 else
42871c3ee387 (xic_create_xfontset2) [USE_FONT_BACKEND]: New function.
Kenichi Handa <handa@m17n.org>
parents: 90662
diff changeset
2539 #endif
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2540 xfs = xic_create_xfontset (f, base_fontname);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2541
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2542 attr = XVaCreateNestedList (0, XNFontSet, xfs, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2543 if (FRAME_XIC_STYLE (f) & XIMPreeditPosition)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2544 XSetICValues (FRAME_XIC (f), XNPreeditAttributes, attr, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2545 if (FRAME_XIC_STYLE (f) & XIMStatusArea)
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2546 XSetICValues (FRAME_XIC (f), XNStatusAttributes, attr, NULL);
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2547 XFree (attr);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2548
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2549 FRAME_XIC_FONTSET (f) = xfs;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2550 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2551
27157
3dafddaefc2c (x_create_im): New function to set IM and IC of a frame.
Gerd Moellmann <gerd@gnu.org>
parents: 27153
diff changeset
2552 #endif /* HAVE_X_I18N */
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2553
27157
3dafddaefc2c (x_create_im): New function to set IM and IC of a frame.
Gerd Moellmann <gerd@gnu.org>
parents: 27153
diff changeset
2554
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2555
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2556 #ifdef USE_X_TOOLKIT
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2557
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2558 /* Create and set up the X widget for frame F. */
5229
110539a25499 (Fx_list_fonts): Handle BROKEN_XLISTFONTSWITHINFO.
Richard M. Stallman <rms@gnu.org>
parents: 5193
diff changeset
2559
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2560 static void
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2561 x_window (f, window_prompting, minibuffer_only)
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2562 struct frame *f;
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2563 long window_prompting;
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2564 int minibuffer_only;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2565 {
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2566 XClassHint class_hints;
6059
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2567 XSetWindowAttributes attributes;
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2568 unsigned long attribute_mask;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2569 Widget shell_widget;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2570 Widget pane_widget;
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2571 Widget frame_widget;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2572 Arg al [25];
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2573 int ac;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2574
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2575 BLOCK_INPUT;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2576
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2577 /* Use the resource name as the top-level widget name
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2578 for looking up resources. Make a non-Lisp copy
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2579 for the window manager, so GC relocation won't bother it.
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2580
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2581 Elsewhere we specify the window name for the window manager. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2582
11496
db02849ee365 (x_window): Use (or reuse) frame's namebuf instead of a
Karl Heuer <kwzh@gnu.org>
parents: 11483
diff changeset
2583 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
2584 char *str = (char *) SDATA (Vx_resource_name);
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2585 f->namebuf = (char *) xmalloc (strlen (str) + 1);
11496
db02849ee365 (x_window): Use (or reuse) frame's namebuf instead of a
Karl Heuer <kwzh@gnu.org>
parents: 11483
diff changeset
2586 strcpy (f->namebuf, str);
db02849ee365 (x_window): Use (or reuse) frame's namebuf instead of a
Karl Heuer <kwzh@gnu.org>
parents: 11483
diff changeset
2587 }
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2588
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2589 ac = 0;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2590 XtSetArg (al[ac], XtNallowShellResize, 1); ac++;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2591 XtSetArg (al[ac], XtNinput, 1); ac++;
11707
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2592 XtSetArg (al[ac], XtNmappedWhenManaged, 0); ac++;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2593 XtSetArg (al[ac], XtNborderWidth, f->border_width); ac++;
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2594 XtSetArg (al[ac], XtNvisual, FRAME_X_VISUAL (f)); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2595 XtSetArg (al[ac], XtNdepth, FRAME_X_DISPLAY_INFO (f)->n_planes); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2596 XtSetArg (al[ac], XtNcolormap, FRAME_X_COLORMAP (f)); ac++;
11496
db02849ee365 (x_window): Use (or reuse) frame's namebuf instead of a
Karl Heuer <kwzh@gnu.org>
parents: 11483
diff changeset
2597 shell_widget = XtAppCreateShell (f->namebuf, EMACS_CLASS,
12019
63ee64941021 (x_top_window_to_frame): Don't match menu-bar widget.
Karl Heuer <kwzh@gnu.org>
parents: 12011
diff changeset
2598 applicationShellWidgetClass,
9742
fe7653791d28 (Fx_create_frame): Set xlwmenu_default_font.
Richard M. Stallman <rms@gnu.org>
parents: 9703
diff changeset
2599 FRAME_X_DISPLAY (f), al, ac);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2600
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2601 f->output_data.x->widget = shell_widget;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2602 /* maybe_set_screen_title_format (shell_widget); */
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2603
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2604 pane_widget = lw_create_widget ("main", "pane", widget_id_tick++,
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2605 (widget_value *) NULL,
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2606 shell_widget, False,
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2607 (lw_callback) NULL,
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2608 (lw_callback) NULL,
27343
43230463dfcf (x_window): Call lw_create_widget with new parameter
Gerd Moellmann <gerd@gnu.org>
parents: 27157
diff changeset
2609 (lw_callback) NULL,
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2610 (lw_callback) NULL);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2611
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2612 ac = 0;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2613 XtSetArg (al[ac], XtNvisual, FRAME_X_VISUAL (f)); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2614 XtSetArg (al[ac], XtNdepth, FRAME_X_DISPLAY_INFO (f)->n_planes); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2615 XtSetArg (al[ac], XtNcolormap, FRAME_X_COLORMAP (f)); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2616 XtSetValues (pane_widget, al, ac);
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2617 f->output_data.x->column_widget = pane_widget;
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2618
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2619 /* mappedWhenManaged to false tells to the paned window to not map/unmap
7040
cd4dd38925f9 (x_window): Test FRAME_EXTERNAL_MENU_BAR
Richard M. Stallman <rms@gnu.org>
parents: 6940
diff changeset
2620 the emacs screen when changing menubar. This reduces flickering. */
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2621
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2622 ac = 0;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2623 XtSetArg (al[ac], XtNmappedWhenManaged, 0); ac++;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2624 XtSetArg (al[ac], XtNshowGrip, 0); ac++;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2625 XtSetArg (al[ac], XtNallowResize, 1); ac++;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2626 XtSetArg (al[ac], XtNresizeToPreferred, 1); ac++;
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2627 XtSetArg (al[ac], XtNemacsFrame, f); ac++;
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2628 XtSetArg (al[ac], XtNvisual, FRAME_X_VISUAL (f)); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2629 XtSetArg (al[ac], XtNdepth, FRAME_X_DISPLAY_INFO (f)->n_planes); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2630 XtSetArg (al[ac], XtNcolormap, FRAME_X_COLORMAP (f)); ac++;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2631 frame_widget = XtCreateWidget (f->namebuf, emacsFrameClass, pane_widget,
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2632 al, ac);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2633
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2634 f->output_data.x->edit_widget = frame_widget;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2635
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2636 XtManageChild (frame_widget);
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2637
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2638 /* Do some needed geometry management. */
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2639 {
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2640 int len;
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2641 char *tem, shell_position[32];
53027
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2642 Arg al[10];
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2643 int ac = 0;
12190
e0abe30899a9 [USE_X_TOOLKIT] (x_window): If using Motif,
Karl Heuer <kwzh@gnu.org>
parents: 12111
diff changeset
2644 int extra_borders = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2645 int menubar_size
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2646 = (f->output_data.x->menubar_widget
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2647 ? (f->output_data.x->menubar_widget->core.height
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2648 + f->output_data.x->menubar_widget->core.border_width)
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2649 : 0);
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2650
15942
ff30ec8aab54 (x_window): Don't add ibw to menubar_size.
Richard M. Stallman <rms@gnu.org>
parents: 15891
diff changeset
2651 #if 0 /* Experimentally, we now get the right results
ff30ec8aab54 (x_window): Don't add ibw to menubar_size.
Richard M. Stallman <rms@gnu.org>
parents: 15891
diff changeset
2652 for -geometry -0-0 without this. 24 Aug 96, rms. */
7969
7f15f77cb644 (x_window): Take account of pane widget internal border width.
Richard M. Stallman <rms@gnu.org>
parents: 7946
diff changeset
2653 if (FRAME_EXTERNAL_MENU_BAR (f))
7f15f77cb644 (x_window): Take account of pane widget internal border width.
Richard M. Stallman <rms@gnu.org>
parents: 7946
diff changeset
2654 {
9808
4c43c9dbe130 (x_window): Make ibw 0 by default.
Richard M. Stallman <rms@gnu.org>
parents: 9742
diff changeset
2655 Dimension ibw = 0;
7969
7f15f77cb644 (x_window): Take account of pane widget internal border width.
Richard M. Stallman <rms@gnu.org>
parents: 7946
diff changeset
2656 XtVaGetValues (pane_widget, XtNinternalBorderWidth, &ibw, NULL);
7f15f77cb644 (x_window): Take account of pane widget internal border width.
Richard M. Stallman <rms@gnu.org>
parents: 7946
diff changeset
2657 menubar_size += ibw;
7f15f77cb644 (x_window): Take account of pane widget internal border width.
Richard M. Stallman <rms@gnu.org>
parents: 7946
diff changeset
2658 }
15942
ff30ec8aab54 (x_window): Don't add ibw to menubar_size.
Richard M. Stallman <rms@gnu.org>
parents: 15891
diff changeset
2659 #endif
7969
7f15f77cb644 (x_window): Take account of pane widget internal border width.
Richard M. Stallman <rms@gnu.org>
parents: 7946
diff changeset
2660
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2661 f->output_data.x->menubar_height = menubar_size;
11897
cbd3724a9696 (x_window) [both versions]: Set menubar_height.
Karl Heuer <kwzh@gnu.org>
parents: 11894
diff changeset
2662
16305
00e57c8adaba (x_window): With Motif, double extra_borders.
Richard M. Stallman <rms@gnu.org>
parents: 16302
diff changeset
2663 #ifndef USE_LUCID
12190
e0abe30899a9 [USE_X_TOOLKIT] (x_window): If using Motif,
Karl Heuer <kwzh@gnu.org>
parents: 12111
diff changeset
2664 /* Motif seems to need this amount added to the sizes
e0abe30899a9 [USE_X_TOOLKIT] (x_window): If using Motif,
Karl Heuer <kwzh@gnu.org>
parents: 12111
diff changeset
2665 specified for the shell widget. The Athena/Lucid widgets don't.
e0abe30899a9 [USE_X_TOOLKIT] (x_window): If using Motif,
Karl Heuer <kwzh@gnu.org>
parents: 12111
diff changeset
2666 Both conclusions reached experimentally. -- rms. */
16305
00e57c8adaba (x_window): With Motif, double extra_borders.
Richard M. Stallman <rms@gnu.org>
parents: 16302
diff changeset
2667 XtVaGetValues (f->output_data.x->edit_widget, XtNinternalBorderWidth,
00e57c8adaba (x_window): With Motif, double extra_borders.
Richard M. Stallman <rms@gnu.org>
parents: 16302
diff changeset
2668 &extra_borders, NULL);
00e57c8adaba (x_window): With Motif, double extra_borders.
Richard M. Stallman <rms@gnu.org>
parents: 16302
diff changeset
2669 extra_borders *= 2;
00e57c8adaba (x_window): With Motif, double extra_borders.
Richard M. Stallman <rms@gnu.org>
parents: 16302
diff changeset
2670 #endif
12190
e0abe30899a9 [USE_X_TOOLKIT] (x_window): If using Motif,
Karl Heuer <kwzh@gnu.org>
parents: 12111
diff changeset
2671
11707
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2672 /* Convert our geometry parameters into a geometry string
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2673 and specify it.
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2674 Note that we do not specify here whether the position
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2675 is a user-specified or program-specified one.
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2676 We pass that information later, in x_wm_set_size_hints. */
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2677 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2678 int left = f->left_pos;
11707
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2679 int xneg = window_prompting & XNegative;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2680 int top = f->top_pos;
11707
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2681 int yneg = window_prompting & YNegative;
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2682 if (xneg)
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2683 left = -left;
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2684 if (yneg)
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2685 top = -top;
11893
1f70ffad3d6d [USE_X_TOOLKIT] (x_window): Pass position to toolkit
Karl Heuer <kwzh@gnu.org>
parents: 11882
diff changeset
2686
1f70ffad3d6d [USE_X_TOOLKIT] (x_window): Pass position to toolkit
Karl Heuer <kwzh@gnu.org>
parents: 11882
diff changeset
2687 if (window_prompting & USPosition)
12190
e0abe30899a9 [USE_X_TOOLKIT] (x_window): If using Motif,
Karl Heuer <kwzh@gnu.org>
parents: 12111
diff changeset
2688 sprintf (shell_position, "=%dx%d%c%d%c%d",
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2689 FRAME_PIXEL_WIDTH (f) + extra_borders,
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2690 FRAME_PIXEL_HEIGHT (f) + menubar_size + extra_borders,
11893
1f70ffad3d6d [USE_X_TOOLKIT] (x_window): Pass position to toolkit
Karl Heuer <kwzh@gnu.org>
parents: 11882
diff changeset
2691 (xneg ? '-' : '+'), left,
1f70ffad3d6d [USE_X_TOOLKIT] (x_window): Pass position to toolkit
Karl Heuer <kwzh@gnu.org>
parents: 11882
diff changeset
2692 (yneg ? '-' : '+'), top);
1f70ffad3d6d [USE_X_TOOLKIT] (x_window): Pass position to toolkit
Karl Heuer <kwzh@gnu.org>
parents: 11882
diff changeset
2693 else
53027
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2694 {
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2695 sprintf (shell_position, "=%dx%d",
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2696 FRAME_PIXEL_WIDTH (f) + extra_borders,
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2697 FRAME_PIXEL_HEIGHT (f) + menubar_size + extra_borders);
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2698
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2699 /* Setting x and y when the position is not specified in
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2700 the geometry string will set program position in the WM hints.
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2701 If Emacs had just one program position, we could set it in
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2702 fallback resources, but since each make-frame call can specify
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2703 different program positions, this is easier. */
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2704 XtSetArg (al[ac], XtNx, left); ac++;
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2705 XtSetArg (al[ac], XtNy, top); ac++;
8ea9dad9855f * xfns.c (x_window): Set XtNx and XtNy in shell widget for
Jan Djärv <jan.h.d@swipnet.se>
parents: 52763
diff changeset
2706 }
11707
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2707 }
b0cb8129be58 [USE_X_TOOLKIT] (x_window): Always pass position in geometry.
Richard M. Stallman <rms@gnu.org>
parents: 11611
diff changeset
2708
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2709 len = strlen (shell_position) + 1;
17579
8dd146dbe737 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17556
diff changeset
2710 /* We don't free this because we don't know whether
8dd146dbe737 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17556
diff changeset
2711 it is safe to free it while the frame exists.
8dd146dbe737 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17556
diff changeset
2712 It isn't worth the trouble of arranging to free it
8dd146dbe737 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17556
diff changeset
2713 when the frame is deleted. */
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2714 tem = (char *) xmalloc (len);
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2715 strncpy (tem, shell_position, len);
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2716 XtSetArg (al[ac], XtNgeometry, tem); ac++;
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2717 XtSetValues (shell_widget, al, ac);
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2718 }
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
2719
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2720 XtManageChild (pane_widget);
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2721 XtRealizeWidget (shell_widget);
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2722
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2723 FRAME_X_WINDOW (f) = XtWindow (frame_widget);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2724
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2725 validate_x_resource_name ();
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2726
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
2727 class_hints.res_name = (char *) SDATA (Vx_resource_name);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
2728 class_hints.res_class = (char *) SDATA (Vx_resource_class);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2729 XSetClassHint (FRAME_X_DISPLAY (f), XtWindow (shell_widget), &class_hints);
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2730
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2731 #ifdef HAVE_X_I18N
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2732 FRAME_XIC (f) = NULL;
51130
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2733 if (use_xim)
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2734 create_frame_xic (f);
29947
b7556fa4c05b (x_window) [!USE_XIM]: Don't call create_frame_ic.
Gerd Moellmann <gerd@gnu.org>
parents: 29938
diff changeset
2735 #endif
13227
d8af44485b3c (x_window, both versions): Add HAVE_X_I18N support.
Richard M. Stallman <rms@gnu.org>
parents: 13083
diff changeset
2736
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2737 f->output_data.x->wm_hints.input = True;
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2738 f->output_data.x->wm_hints.flags |= InputHint;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2739 XSetWMHints (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: 12656
diff changeset
2740 &f->output_data.x->wm_hints);
7172
f9eeb75c2b76 (x_window) [USE_X_TOOLKIT]: Call XSetWMHints.
Richard M. Stallman <rms@gnu.org>
parents: 7040
diff changeset
2741
9703
85ac0e4030d4 (x_window): Pass new arg f to hack_wm_protocols.
Richard M. Stallman <rms@gnu.org>
parents: 9690
diff changeset
2742 hack_wm_protocols (f, shell_widget);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2743
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2744 #ifdef HACK_EDITRES
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2745 XtAddEventHandler (shell_widget, 0, True, _XEditResCheckMessages, 0);
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2746 #endif
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2747
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2748 /* Do a stupid property change to force the server to generate a
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
2749 PropertyNotify event so that the event_stream server timestamp will
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2750 be initialized to something relevant to the time we created the window.
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2751 */
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2752 XChangeProperty (XtDisplay (frame_widget), XtWindow (frame_widget),
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2753 FRAME_X_DISPLAY_INFO (f)->Xatom_wm_protocols,
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2754 XA_ATOM, 32, PropModeAppend,
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2755 (unsigned char*) NULL, 0);
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2756
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2757 /* Make all the standard events reach the Emacs frame. */
6059
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2758 attributes.event_mask = STANDARD_EVENT_SET;
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2759
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2760 #ifdef HAVE_X_I18N
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2761 if (FRAME_XIC (f))
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2762 {
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2763 /* XIM server might require some X events. */
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2764 unsigned long fevent = NoEventMask;
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
2765 XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2766 attributes.event_mask |= fevent;
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2767 }
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2768 #endif /* HAVE_X_I18N */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2769
6059
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2770 attribute_mask = CWEventMask;
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2771 XChangeWindowAttributes (XtDisplay (shell_widget), XtWindow (shell_widget),
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2772 attribute_mask, &attributes);
0021cbdc591b (x_window): Call XChangeWindowAttributes with the standard
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6011
diff changeset
2773
9231
eeb35369e536 (HACK_EDITRES): Declare if using X11R5.
Paul Reilly <pmr@pajato.com>
parents: 9182
diff changeset
2774 XtMapWidget (frame_widget);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2775
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2776 /* x_set_name normally ignores requests to set the name if the
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2777 requested name is the same as the current name. This is the one
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2778 place where that assumption isn't correct; f->name is set, but
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2779 the X server hasn't been told. */
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2780 {
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2781 Lisp_Object name;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2782 int explicit = f->explicit_name;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2783
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2784 f->explicit_name = 0;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2785 name = f->name;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2786 f->name = Qnil;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2787 x_set_name (f, name, explicit);
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2788 }
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2789
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2790 XDefineCursor (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: 12656
diff changeset
2791 f->output_data.x->text_cursor);
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2792
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2793 UNBLOCK_INPUT;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2794
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
2795 /* This is a no-op, except under Motif. Make sure main areas are
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
2796 set to something reasonable, in case we get an error later. */
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
2797 lw_set_main_areas (pane_widget, 0, frame_widget);
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2798 }
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2799
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2800 #else /* not USE_X_TOOLKIT */
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2801 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2802 void
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2803 x_window (f)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2804 FRAME_PTR f;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2805 {
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2806 if (! xg_create_frame_widgets (f))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2807 error ("Unable to create window");
49434
a4d0ee33dcce Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49322
diff changeset
2808
a4d0ee33dcce Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49322
diff changeset
2809 #ifdef HAVE_X_I18N
a4d0ee33dcce Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49322
diff changeset
2810 FRAME_XIC (f) = NULL;
54185
f6e4e454800a xfns.c (x_window): Fixed indentation
Jan Djärv <jan.h.d@swipnet.se>
parents: 54142
diff changeset
2811 if (use_xim)
51130
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2812 {
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2813 BLOCK_INPUT;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2814 create_frame_xic (f);
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2815 if (FRAME_XIC (f))
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2816 {
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2817 /* XIM server might require some X events. */
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2818 unsigned long fevent = NoEventMask;
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
2819 XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
51130
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2820
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2821 if (fevent != NoEventMask)
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2822 {
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2823 XSetWindowAttributes attributes;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2824 XWindowAttributes wattr;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2825 unsigned long attribute_mask;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2826
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2827 XGetWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2828 &wattr);
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2829 attributes.event_mask = wattr.your_event_mask | fevent;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2830 attribute_mask = CWEventMask;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2831 XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2832 attribute_mask, &attributes);
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2833 }
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2834 }
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2835 UNBLOCK_INPUT;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2836 }
49434
a4d0ee33dcce Fix input methods for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49322
diff changeset
2837 #endif
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2838 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2839
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2840 #else /*! USE_GTK */
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2841 /* Create and set up the X window for frame F. */
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2842
21846
486ac68ce051 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21779
diff changeset
2843 void
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2844 x_window (f)
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2845 struct frame *f;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2846
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2847 {
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2848 XClassHint class_hints;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2849 XSetWindowAttributes attributes;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2850 unsigned long attribute_mask;
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2851
83505
57e924639750 Fix previous commit.
Karoly Lorentey <lorentey@elte.hu>
parents: 83504
diff changeset
2852 attributes.background_pixel = FRAME_BACKGROUND_PIXEL (f);
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2853 attributes.border_pixel = f->output_data.x->border_pixel;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2854 attributes.bit_gravity = StaticGravity;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2855 attributes.backing_store = NotUseful;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2856 attributes.save_under = True;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2857 attributes.event_mask = STANDARD_EVENT_SET;
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2858 attributes.colormap = FRAME_X_COLORMAP (f);
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2859 attribute_mask = (CWBackPixel | CWBorderPixel | CWBitGravity | CWEventMask
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
2860 | CWColormap);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2861
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2862 BLOCK_INPUT;
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
2863 FRAME_X_WINDOW (f)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2864 = XCreateWindow (FRAME_X_DISPLAY (f),
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2865 f->output_data.x->parent_desc,
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2866 f->left_pos,
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2867 f->top_pos,
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2868 FRAME_PIXEL_WIDTH (f), FRAME_PIXEL_HEIGHT (f),
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
2869 f->border_width,
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2870 CopyFromParent, /* depth */
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2871 InputOutput, /* class */
28144
71ebba3566ec (X_I18N_INHIBITED): Don't define.
Gerd Moellmann <gerd@gnu.org>
parents: 28096
diff changeset
2872 FRAME_X_VISUAL (f),
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2873 attribute_mask, &attributes);
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2874
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2875 #ifdef HAVE_X_I18N
51175
a072cc265dff (x_window): Fix typo.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 51130
diff changeset
2876 if (use_xim)
51130
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2877 {
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2878 create_frame_xic (f);
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2879 if (FRAME_XIC (f))
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2880 {
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2881 /* XIM server might require some X events. */
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2882 unsigned long fevent = NoEventMask;
53069
1218a42792ea Implement multiple display handling for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53027
diff changeset
2883 XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
51130
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2884 attributes.event_mask |= fevent;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2885 attribute_mask = CWEventMask;
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2886 XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2887 attribute_mask, &attributes);
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2888 }
0e2a60d0ca7b (x_window, x_window): Use use_xim.
Dave Love <fx@gnu.org>
parents: 50392
diff changeset
2889 }
27502
52e8cb1333f2 (xic_set_preeditarea): Take window parameter and
Gerd Moellmann <gerd@gnu.org>
parents: 27343
diff changeset
2890 #endif /* HAVE_X_I18N */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
2891
4146
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
2892 validate_x_resource_name ();
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
2893
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
2894 class_hints.res_name = (char *) SDATA (Vx_resource_name);
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
2895 class_hints.res_class = (char *) SDATA (Vx_resource_class);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2896 XSetClassHint (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), &class_hints);
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2897
11897
cbd3724a9696 (x_window) [both versions]: Set menubar_height.
Karl Heuer <kwzh@gnu.org>
parents: 11894
diff changeset
2898 /* The menubar is part of the ordinary display;
cbd3724a9696 (x_window) [both versions]: Set menubar_height.
Karl Heuer <kwzh@gnu.org>
parents: 11894
diff changeset
2899 it does not count in addition to the height of the window. */
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2900 f->output_data.x->menubar_height = 0;
11897
cbd3724a9696 (x_window) [both versions]: Set menubar_height.
Karl Heuer <kwzh@gnu.org>
parents: 11894
diff changeset
2901
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
2902 /* This indicates that we use the "Passive Input" input model.
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
2903 Unless we do this, we don't get the Focus{In,Out} events that we
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
2904 need to draw the cursor correctly. Accursed bureaucrats.
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2905 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
2906
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2907 f->output_data.x->wm_hints.input = True;
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
2908 f->output_data.x->wm_hints.flags |= InputHint;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2909 XSetWMHints (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: 12656
diff changeset
2910 &f->output_data.x->wm_hints);
15081
ab8c81feacf9 (x_window) [! USE_X_TOOLKIT]: Initialize wm_hints.icon_pixmap.
Richard M. Stallman <rms@gnu.org>
parents: 15079
diff changeset
2911 f->output_data.x->wm_hints.icon_pixmap = None;
7860
26a1d7b2670b (x_window): Request "save yourself" commands.
Richard M. Stallman <rms@gnu.org>
parents: 7802
diff changeset
2912
26a1d7b2670b (x_window): Request "save yourself" commands.
Richard M. Stallman <rms@gnu.org>
parents: 7802
diff changeset
2913 /* Request "save yourself" and "delete window" commands from wm. */
26a1d7b2670b (x_window): Request "save yourself" commands.
Richard M. Stallman <rms@gnu.org>
parents: 7802
diff changeset
2914 {
26a1d7b2670b (x_window): Request "save yourself" commands.
Richard M. Stallman <rms@gnu.org>
parents: 7802
diff changeset
2915 Atom protocols[2];
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2916 protocols[0] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_delete_window;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2917 protocols[1] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_save_yourself;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2918 XSetWMProtocols (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), protocols, 2);
7860
26a1d7b2670b (x_window): Request "save yourself" commands.
Richard M. Stallman <rms@gnu.org>
parents: 7802
diff changeset
2919 }
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2920
817
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2921 /* x_set_name normally ignores requests to set the name if the
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2922 requested name is the same as the current name. This is the one
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2923 place where that assumption isn't correct; f->name is set, but
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2924 the X server hasn't been told. */
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2925 {
6519
22c56514eeb3 (x_set_frame_parameters, x_get_arg, x_window, Fx_create_frame,
Karl Heuer <kwzh@gnu.org>
parents: 6506
diff changeset
2926 Lisp_Object name;
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
2927 int explicit = f->explicit_name;
817
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2928
6519
22c56514eeb3 (x_set_frame_parameters, x_get_arg, x_window, Fx_create_frame,
Karl Heuer <kwzh@gnu.org>
parents: 6506
diff changeset
2929 f->explicit_name = 0;
22c56514eeb3 (x_set_frame_parameters, x_get_arg, x_window, Fx_create_frame,
Karl Heuer <kwzh@gnu.org>
parents: 6506
diff changeset
2930 name = f->name;
817
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2931 f->name = Qnil;
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
2932 x_set_name (f, name, explicit);
817
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2933 }
1dd126823b36 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 771
diff changeset
2934
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2935 XDefineCursor (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: 12656
diff changeset
2936 f->output_data.x->text_cursor);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2937
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2938 UNBLOCK_INPUT;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2939
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
2940 if (FRAME_X_WINDOW (f) == 0)
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
2941 error ("Unable to create window");
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2942 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2943
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
2944 #endif /* not USE_GTK */
6790
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2945 #endif /* not USE_X_TOOLKIT */
ee8090b47ea6 (x_figure_window_size): Don't call x_calc_absolute_position.
Richard M. Stallman <rms@gnu.org>
parents: 6783
diff changeset
2946
56513
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2947 /* Verify that the icon position args for this window are valid. */
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2948
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2949 static void
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2950 x_icon_verify (f, parms)
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2951 struct frame *f;
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2952 Lisp_Object parms;
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2953 {
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2954 Lisp_Object icon_x, icon_y;
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2955
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2956 /* Set the position of the icon. Note that twm groups all
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2957 icons in an icon window. */
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2958 icon_x = x_frame_get_and_record_arg (f, parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2959 icon_y = x_frame_get_and_record_arg (f, parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2960 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2961 {
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2962 CHECK_NUMBER (icon_x);
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2963 CHECK_NUMBER (icon_y);
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2964 }
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2965 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2966 error ("Both left and top icon corners of icon must be specified");
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2967 }
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
2968
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2969 /* Handle the icon stuff for this window. Perhaps later we might
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2970 want an x_set_icon_position which can be called interactively as
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2971 well. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2972
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2973 static void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2974 x_icon (f, parms)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2975 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2976 Lisp_Object parms;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2977 {
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
2978 Lisp_Object icon_x, icon_y;
83760
aa5347e75afa (check_x_display_info): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83648
diff changeset
2979 #if 0
17779
094e5efd262d (Fx_create_frame): Get X resources from the display
Richard M. Stallman <rms@gnu.org>
parents: 17722
diff changeset
2980 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
83760
aa5347e75afa (check_x_display_info): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83648
diff changeset
2981 #endif
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2982
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2983 /* Set the position of the icon. Note that twm groups all
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
2984 icons in an icon window. */
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
2985 icon_x = x_frame_get_and_record_arg (f, parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
2986 icon_y = x_frame_get_and_record_arg (f, parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
2987 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2988 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
2989 CHECK_NUMBER (icon_x);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
2990 CHECK_NUMBER (icon_y);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2991 }
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
2992 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2993 error ("Both left and top icon corners of icon must be specified");
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2994
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
2995 BLOCK_INPUT;
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
2996
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
2997 if (! EQ (icon_x, Qunbound))
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
2998 x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y));
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
2999
69428
1b5fec6d607f (x_icon): Disable redundant call to `x_wm_set_window_state'.
Károly Lőrentey <lorentey@elte.hu>
parents: 69404
diff changeset
3000 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
1b5fec6d607f (x_icon): Disable redundant call to `x_wm_set_window_state'.
Károly Lőrentey <lorentey@elte.hu>
parents: 69404
diff changeset
3001 but x_create_frame still needs it. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3002 /* Start up iconic or window? */
2294
9bce20507666 Use the `visiblity' parameter to determine the initial state of
Jim Blandy <jimb@redhat.com>
parents: 2283
diff changeset
3003 x_wm_set_window_state
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3004 (f, (EQ (x_get_arg (dpyinfo, parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3005 Qicon)
2294
9bce20507666 Use the `visiblity' parameter to determine the initial state of
Jim Blandy <jimb@redhat.com>
parents: 2283
diff changeset
3006 ? IconicState
9bce20507666 Use the `visiblity' parameter to determine the initial state of
Jim Blandy <jimb@redhat.com>
parents: 2283
diff changeset
3007 : NormalState));
69428
1b5fec6d607f (x_icon): Disable redundant call to `x_wm_set_window_state'.
Károly Lőrentey <lorentey@elte.hu>
parents: 69404
diff changeset
3008 #endif
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3009
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
3010 x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name)
12276
2e376a4397bc (x_report_frame_params, x_set_icon_type, x_set_icon_name)
Richard M. Stallman <rms@gnu.org>
parents: 12209
diff changeset
3011 ? f->icon_name
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
3012 : f->name)));
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
3013
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3014 UNBLOCK_INPUT;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3015 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3016
31637
c1f4bdbf8465 (ALLOC_XPM_COLORS): Define if we can use Emacs' color
Gerd Moellmann <gerd@gnu.org>
parents: 31633
diff changeset
3017 /* Make the GCs needed for this window, setting the
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3018 background, border and mouse colors; also create the
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3019 mouse cursor and the gray border tile. */
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3020
1018
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3021 static char cursor_bits[] =
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3022 {
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3023 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3024 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3025 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3026 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3027 };
5fd29acd3db7 * xfns.c (x_set_name): Take new argument EXPLICIT, instead of
Jim Blandy <jimb@redhat.com>
parents: 974
diff changeset
3028
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3029 static void
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3030 x_make_gc (f)
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3031 struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3032 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3033 XGCValues gc_values;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3034
2341
1982e2983822 * xfns.c (x_make_gc): Don't forget to block X input around the
Jim Blandy <jimb@redhat.com>
parents: 2328
diff changeset
3035 BLOCK_INPUT;
1982e2983822 * xfns.c (x_make_gc): Don't forget to block X input around the
Jim Blandy <jimb@redhat.com>
parents: 2328
diff changeset
3036
31637
c1f4bdbf8465 (ALLOC_XPM_COLORS): Define if we can use Emacs' color
Gerd Moellmann <gerd@gnu.org>
parents: 31633
diff changeset
3037 /* Create the GCs of this frame.
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3038 Note that many default values are used. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3039
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3040 /* Normal video */
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3041 gc_values.font = FRAME_FONT (f)->fid;
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3042 gc_values.foreground = FRAME_FOREGROUND_PIXEL (f);
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3043 gc_values.background = FRAME_BACKGROUND_PIXEL (f);
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3044 gc_values.line_width = 0; /* Means 1 using fast algorithm. */
34321
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3045 f->output_data.x->normal_gc
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3046 = XCreateGC (FRAME_X_DISPLAY (f),
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3047 FRAME_X_WINDOW (f),
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3048 GCLineWidth | GCFont | GCForeground | GCBackground,
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3049 &gc_values);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3050
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3051 /* Reverse video style. */
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3052 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3053 gc_values.background = FRAME_FOREGROUND_PIXEL (f);
34321
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3054 f->output_data.x->reverse_gc
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3055 = XCreateGC (FRAME_X_DISPLAY (f),
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3056 FRAME_X_WINDOW (f),
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3057 GCFont | GCForeground | GCBackground | GCLineWidth,
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3058 &gc_values);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3059
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3060 /* Cursor has cursor-color background, background-color foreground. */
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3061 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3062 gc_values.background = f->output_data.x->cursor_pixel;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3063 gc_values.fill_style = FillOpaqueStippled;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3064 gc_values.stipple
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3065 = XCreateBitmapFromData (FRAME_X_DISPLAY (f),
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3066 FRAME_X_DISPLAY_INFO (f)->root_window,
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3067 cursor_bits, 16, 16);
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3068 f->output_data.x->cursor_gc
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3069 = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3070 (GCFont | GCForeground | GCBackground
24905
2c79eecad64d (x_make_gc): Turn off GCStipple when setting up cursor_gc.
Richard M. Stallman <rms@gnu.org>
parents: 24677
diff changeset
3071 | GCFillStyle /* | GCStipple */ | GCLineWidth),
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3072 &gc_values);
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3073
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3074 /* Reliefs. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3075 f->output_data.x->white_relief.gc = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3076 f->output_data.x->black_relief.gc = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3077
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3078 /* Create the gray border tile used when the pointer is not in
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3079 the frame. Since this depends on the frame's pixel values,
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3080 this must be done on a per-frame basis. */
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3081 f->output_data.x->border_tile
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
3082 = (XCreatePixmapFromBitmapData
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3083 (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
3084 gray_bits, gray_width, gray_height,
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3085 FRAME_FOREGROUND_PIXEL (f),
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3086 FRAME_BACKGROUND_PIXEL (f),
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
3087 DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f))));
2341
1982e2983822 * xfns.c (x_make_gc): Don't forget to block X input around the
Jim Blandy <jimb@redhat.com>
parents: 2328
diff changeset
3088
1982e2983822 * xfns.c (x_make_gc): Don't forget to block X input around the
Jim Blandy <jimb@redhat.com>
parents: 2328
diff changeset
3089 UNBLOCK_INPUT;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3090 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3091
34321
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3092
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3093 /* Free what was was allocated in x_make_gc. */
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3094
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3095 void
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3096 x_free_gcs (f)
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3097 struct frame *f;
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3098 {
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3099 Display *dpy = FRAME_X_DISPLAY (f);
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3100
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3101 BLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3102
34321
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3103 if (f->output_data.x->normal_gc)
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3104 {
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3105 XFreeGC (dpy, f->output_data.x->normal_gc);
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3106 f->output_data.x->normal_gc = 0;
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3107 }
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3108
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3109 if (f->output_data.x->reverse_gc)
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3110 {
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3111 XFreeGC (dpy, f->output_data.x->reverse_gc);
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3112 f->output_data.x->reverse_gc = 0;
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3113 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3114
34321
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3115 if (f->output_data.x->cursor_gc)
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3116 {
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3117 XFreeGC (dpy, f->output_data.x->cursor_gc);
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3118 f->output_data.x->cursor_gc = 0;
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3119 }
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3120
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3121 if (f->output_data.x->border_tile)
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3122 {
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3123 XFreePixmap (dpy, f->output_data.x->border_tile);
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3124 f->output_data.x->border_tile = 0;
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3125 }
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3126
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3127 UNBLOCK_INPUT;
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3128 }
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3129
41ecc8525dbc (x_free_gcs): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 33994
diff changeset
3130
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3131 /* Handler for signals raised during x_create_frame and
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3132 x_create_top_frame. FRAME is the frame which is partially
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3133 constructed. */
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3134
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3135 static Lisp_Object
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3136 unwind_create_frame (frame)
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3137 Lisp_Object frame;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3138 {
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3139 struct frame *f = XFRAME (frame);
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3140
83281
b00208784797 Prevent core dump when connection is lost during frame creation.
Karoly Lorentey <lorentey@elte.hu>
parents: 83277
diff changeset
3141 /* If frame is already dead, nothing to do. This can happen if the
b00208784797 Prevent core dump when connection is lost during frame creation.
Karoly Lorentey <lorentey@elte.hu>
parents: 83277
diff changeset
3142 display is disconnected after the frame has become official, but
b00208784797 Prevent core dump when connection is lost during frame creation.
Karoly Lorentey <lorentey@elte.hu>
parents: 83277
diff changeset
3143 before x_create_frame removes the unwind protect. */
b00208784797 Prevent core dump when connection is lost during frame creation.
Karoly Lorentey <lorentey@elte.hu>
parents: 83277
diff changeset
3144 if (!FRAME_LIVE_P (f))
b00208784797 Prevent core dump when connection is lost during frame creation.
Karoly Lorentey <lorentey@elte.hu>
parents: 83277
diff changeset
3145 return Qnil;
b00208784797 Prevent core dump when connection is lost during frame creation.
Karoly Lorentey <lorentey@elte.hu>
parents: 83277
diff changeset
3146
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3147 /* If frame is ``official'', nothing to do. */
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3148 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3149 {
34895
53e52b3525bf Use #if GLYPH_DEBUG instead of #ifdef GLYPH_DEBUG.
Gerd Moellmann <gerd@gnu.org>
parents: 34662
diff changeset
3150 #if GLYPH_DEBUG
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3151 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3152 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3153
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3154 x_free_frame_resources (f);
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3155
59904
adc18da68682 (unwind_create_frame) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59789
diff changeset
3156 #if GLYPH_DEBUG
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3157 /* Check that reference counts are indeed correct. */
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3158 xassert (dpyinfo->reference_count == dpyinfo_refcount);
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3159 xassert (dpyinfo->image_cache->refcount == image_cache_refcount);
59904
adc18da68682 (unwind_create_frame) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59789
diff changeset
3160 #endif
34638
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
3161 return Qt;
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3162 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3163
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3164 return Qnil;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3165 }
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3166
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3167 #ifdef USE_FONT_BACKEND
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3168 static void
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3169 x_default_font_parameter (f, parms)
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3170 struct frame *f;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3171 Lisp_Object parms;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3172 {
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3173 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3174 Lisp_Object font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font",
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3175 RES_TYPE_STRING);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3176
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3177 if (! STRINGP (font))
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3178 {
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3179 char *names[]
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3180 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3181 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3182 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3183 /* This was formerly the first thing tried, but it finds
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3184 too many fonts and takes too long. */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3185 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3186 /* If those didn't work, look for something which will
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3187 at least work. */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3188 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
90462
5981c99ef5ba (x_default_font_parameter): Try also "fixed", and signal
Kenichi Handa <handa@m17n.org>
parents: 90428
diff changeset
3189 "fixed",
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3190 NULL };
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3191 int i;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3192
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3193 for (i = 0; names[i]; i++)
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3194 {
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3195 font = font_open_by_name (f, names[i]);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3196 if (! NILP (font))
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3197 break;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3198 }
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3199 if (NILP (font))
90462
5981c99ef5ba (x_default_font_parameter): Try also "fixed", and signal
Kenichi Handa <handa@m17n.org>
parents: 90428
diff changeset
3200 error ("No suitable font was found");
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3201 }
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3202 x_default_parameter (f, parms, Qfont, font, "font", "Font", RES_TYPE_STRING);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3203 }
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3204 #endif /* USE_FONT_BACKEND */
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3205
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3206 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3207 1, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3208 doc: /* Make a new X window, which is called a "frame" in Emacs terms.
79392
5bb5f9a8abab (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 79085
diff changeset
3209 Return an Emacs frame object.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3210 ALIST is an alist of frame parameters.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3211 If the parameters specify that the frame should not have a minibuffer,
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3212 and do not specify a specific minibuffer window to use,
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3213 then `default-minibuffer-frame' must be a frame whose minibuffer can
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3214 be shared by the new frame.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3215
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3216 This function is an internal primitive--use `make-frame' instead. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3217 (parms)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3218 Lisp_Object parms;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3219 {
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3220 struct frame *f;
6935
675e4ec5f14f (Fx_create_frame): Delete excess args to x_wm_set_size_hint.
Richard M. Stallman <rms@gnu.org>
parents: 6882
diff changeset
3221 Lisp_Object frame, tem;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3222 Lisp_Object name;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3223 int minibuffer_only = 0;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3224 long window_prompting = 0;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3225 int width, height;
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45968
diff changeset
3226 int count = SPECPDL_INDEX ();
15566
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3227 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3228 Lisp_Object display;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3229 struct x_display_info *dpyinfo = NULL;
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3230 Lisp_Object parent;
11774
0b5cb5170084 (Fx_create_frame): Pass kb to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11772
diff changeset
3231 struct kboard *kb;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3232
68396
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3233 parms = Fcopy_alist (parms);
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3234
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3235 /* Use this general default value to start with
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3236 until we know if this frame has a specified name. */
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3237 Vx_resource_name = Vinvocation_name;
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3238
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3239 display = x_get_arg (dpyinfo, parms, Qterminal, 0, 0, RES_TYPE_NUMBER);
83177
91cf385601e5 Fix creating frames on different X servers.
Karoly Lorentey <lorentey@elte.hu>
parents: 83167
diff changeset
3240 if (EQ (display, Qunbound))
83167
69ebc75cb461 Implemented display ids for multiple emacsclients on the same tty. Plus assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83123
diff changeset
3241 display = x_get_arg (dpyinfo, parms, Qdisplay, 0, 0, RES_TYPE_STRING);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3242 if (EQ (display, Qunbound))
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3243 display = Qnil;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3244 dpyinfo = check_x_display_info (display);
11774
0b5cb5170084 (Fx_create_frame): Pass kb to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11772
diff changeset
3245 #ifdef MULTI_KBOARD
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3246 kb = dpyinfo->terminal->kboard;
11774
0b5cb5170084 (Fx_create_frame): Pass kb to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11772
diff changeset
3247 #else
0b5cb5170084 (Fx_create_frame): Pass kb to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11772
diff changeset
3248 kb = &the_only_kboard;
0b5cb5170084 (Fx_create_frame): Pass kb to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11772
diff changeset
3249 #endif
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3250
84685
502394270fc6 (x_delete_terminal): Use terminal->name as liveness status.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83760
diff changeset
3251 if (!dpyinfo->terminal->name)
502394270fc6 (x_delete_terminal): Use terminal->name as liveness status.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83760
diff changeset
3252 error ("Terminal is not live, can't create new frames on it");
83525
b2e7507b55c6 Fix C-x 5 2 on the controlling tty; fix some possible crash conditions and a memory leak.
Karoly Lorentey <lorentey@elte.hu>
parents: 83505
diff changeset
3253
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3254 name = x_get_arg (dpyinfo, parms, Qname, "name", "Name", RES_TYPE_STRING);
9103
948e8acb6990 (x_set_frame_parameters, x_set_menu_bar_lines, Fx_create_frame,
Karl Heuer <kwzh@gnu.org>
parents: 9022
diff changeset
3255 if (!STRINGP (name)
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3256 && ! EQ (name, Qunbound)
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3257 && ! NILP (name))
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
3258 error ("Invalid frame name--not a string or nil");
398
a60eafebd43f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 389
diff changeset
3259
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3260 if (STRINGP (name))
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3261 Vx_resource_name = name;
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
3262
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3263 /* See if parent window is specified. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3264 parent = x_get_arg (dpyinfo, parms, Qparent_id, NULL, NULL, RES_TYPE_NUMBER);
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3265 if (EQ (parent, Qunbound))
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3266 parent = Qnil;
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3267 if (! NILP (parent))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
3268 CHECK_NUMBER (parent);
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3269
15566
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3270 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3271 /* No need to protect DISPLAY because that's not used after passing
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3272 it to make_frame_without_minibuffer. */
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3273 frame = Qnil;
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3274 GCPRO4 (parms, parent, name, frame);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3275 tem = x_get_arg (dpyinfo, parms, Qminibuffer, "minibuffer", "Minibuffer",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3276 RES_TYPE_SYMBOL);
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3277 if (EQ (tem, Qnone) || NILP (tem))
12011
854e396aabed (Fx_create_frame): Pass new arg to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11989
diff changeset
3278 f = make_frame_without_minibuffer (Qnil, kb, display);
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3279 else if (EQ (tem, Qonly))
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3280 {
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3281 f = make_minibuffer_frame ();
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3282 minibuffer_only = 1;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3283 }
9103
948e8acb6990 (x_set_frame_parameters, x_set_menu_bar_lines, Fx_create_frame,
Karl Heuer <kwzh@gnu.org>
parents: 9022
diff changeset
3284 else if (WINDOWP (tem))
12011
854e396aabed (Fx_create_frame): Pass new arg to make_frame_without_minibuffer.
Karl Heuer <kwzh@gnu.org>
parents: 11989
diff changeset
3285 f = make_frame_without_minibuffer (tem, kb, display);
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3286 else
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3287 f = make_frame (1);
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3288
15566
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3289 XSETFRAME (frame, f);
3d03a3fb8757 (Fx_create_frame): Gcpro parms, parent, and name.
Richard M. Stallman <rms@gnu.org>
parents: 15495
diff changeset
3290
1994
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1932
diff changeset
3291 /* Note that X Windows does support scroll bars. */
73ce9dd21093 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1932
diff changeset
3292 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
1719
48f539ac6921 * frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents: 1657
diff changeset
3293
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3294 f->terminal = dpyinfo->terminal;
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3295 f->terminal->reference_count++;
83004
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82992
diff changeset
3296
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
3297 f->output_method = output_x_window;
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3298 f->output_data.x = (struct x_output *) xmalloc (sizeof (struct x_output));
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3299 bzero (f->output_data.x, sizeof (struct x_output));
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3300 f->output_data.x->icon_bitmap = -1;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3301 FRAME_FONTSET (f) = -1;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3302 f->output_data.x->scroll_bar_foreground_pixel = -1;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3303 f->output_data.x->scroll_bar_background_pixel = -1;
39619
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
3304 #ifdef USE_TOOLKIT_SCROLL_BARS
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
3305 f->output_data.x->scroll_bar_top_shadow_pixel = -1;
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
3306 f->output_data.x->scroll_bar_bottom_shadow_pixel = -1;
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
3307 #endif /* USE_TOOLKIT_SCROLL_BARS */
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
3308
12276
2e376a4397bc (x_report_frame_params, x_set_icon_type, x_set_icon_name)
Richard M. Stallman <rms@gnu.org>
parents: 12209
diff changeset
3309 f->icon_name
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3310 = x_get_arg (dpyinfo, parms, Qicon_name, "iconName", "Title",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3311 RES_TYPE_STRING);
12276
2e376a4397bc (x_report_frame_params, x_set_icon_type, x_set_icon_name)
Richard M. Stallman <rms@gnu.org>
parents: 12209
diff changeset
3312 if (! STRINGP (f->icon_name))
2e376a4397bc (x_report_frame_params, x_set_icon_type, x_set_icon_name)
Richard M. Stallman <rms@gnu.org>
parents: 12209
diff changeset
3313 f->icon_name = Qnil;
12073
1b0018c43060 (Qicon_name): New variable.
Karl Heuer <kwzh@gnu.org>
parents: 12051
diff changeset
3314
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
3315 FRAME_X_DISPLAY_INFO (f) = dpyinfo;
71577
ae1e5666e49f (Fx_create_frame): Move unwind_create_frame setup down.
Richard M. Stallman <rms@gnu.org>
parents: 71476
diff changeset
3316
ae1e5666e49f (Fx_create_frame): Move unwind_create_frame setup down.
Richard M. Stallman <rms@gnu.org>
parents: 71476
diff changeset
3317 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
ae1e5666e49f (Fx_create_frame): Move unwind_create_frame setup down.
Richard M. Stallman <rms@gnu.org>
parents: 71476
diff changeset
3318 record_unwind_protect (unwind_create_frame, frame);
34895
53e52b3525bf Use #if GLYPH_DEBUG instead of #ifdef GLYPH_DEBUG.
Gerd Moellmann <gerd@gnu.org>
parents: 34662
diff changeset
3319 #if GLYPH_DEBUG
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3320 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3321 dpyinfo_refcount = dpyinfo->reference_count;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3322 #endif /* GLYPH_DEBUG */
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
3323
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3324 /* These colors will be set anyway later, but it's important
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3325 to get the color reference counts right, so initialize them! */
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3326 {
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3327 Lisp_Object black;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3328 struct gcpro gcpro1;
38345
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3329
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3330 /* Function x_decode_color can signal an error. Make
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3331 sure to initialize color slots so that we won't try
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3332 to free colors we haven't allocated. */
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3333 FRAME_FOREGROUND_PIXEL (f) = -1;
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3334 FRAME_BACKGROUND_PIXEL (f) = -1;
38345
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3335 f->output_data.x->cursor_pixel = -1;
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3336 f->output_data.x->cursor_foreground_pixel = -1;
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3337 f->output_data.x->border_pixel = -1;
3238db7bdfef (Fx_create_frame): Initialize frame colors to -1,
Gerd Moellmann <gerd@gnu.org>
parents: 38183
diff changeset
3338 f->output_data.x->mouse_pixel = -1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3339
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3340 black = build_string ("black");
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3341 GCPRO1 (black);
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3342 FRAME_FOREGROUND_PIXEL (f)
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3343 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
3344 FRAME_BACKGROUND_PIXEL (f)
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3345 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3346 f->output_data.x->cursor_pixel
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3347 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3348 f->output_data.x->cursor_foreground_pixel
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3349 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3350 f->output_data.x->border_pixel
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3351 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3352 f->output_data.x->mouse_pixel
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3353 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3354 UNGCPRO;
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3355 }
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
3356
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3357 /* Specify the parent under which to make this X window. */
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3358
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3359 if (!NILP (parent))
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3360 {
18612
88efccff8970 Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents: 18594
diff changeset
3361 f->output_data.x->parent_desc = (Window) XFASTINT (parent);
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3362 f->output_data.x->explicit_parent = 1;
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3363 }
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3364 else
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3365 {
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3366 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3367 f->output_data.x->explicit_parent = 0;
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3368 }
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3369
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3370 /* Set the name; the functions to which we pass f expect the name to
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3371 be set. */
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3372 if (EQ (name, Qunbound) || NILP (name))
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3373 {
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
3374 f->name = build_string (dpyinfo->x_id_name);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3375 f->explicit_name = 0;
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3376 }
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3377 else
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3378 {
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3379 f->name = name;
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3380 f->explicit_name = 1;
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3381 /* use the frame's title when getting resources for this frame. */
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3382 specbind (Qx_resource_name, name);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3383 }
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3384
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3385 f->resx = dpyinfo->resx;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3386 f->resy = dpyinfo->resy;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3387
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3388 #ifdef USE_FONT_BACKEND
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3389 if (enable_font_backend)
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3390 {
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3391 /* Perhaps, we must allow frame parameter, say `font-backend',
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3392 to specify which font backends to use. */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3393 #ifdef HAVE_FREETYPE
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3394 #ifdef HAVE_XFT
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3395 register_font_driver (&xftfont_driver, f);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3396 #else /* not HAVE_XFT */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3397 register_font_driver (&ftxfont_driver, f);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3398 #endif /* not HAVE_XFT */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3399 #endif /* HAVE_FREETYPE */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3400 register_font_driver (&xfont_driver, f);
90546
5fd517758629 (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
3401
5fd517758629 (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
3402 x_default_parameter (f, parms, Qfont_backend, Qnil,
5fd517758629 (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
3403 "fontBackend", "FontBackend", RES_TYPE_STRING);
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3404 }
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3405 #endif /* USE_FONT_BACKEND */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3406
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3407 /* Extract the window parameters from the supplied values
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3408 that are needed to determine window geometry. */
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3409 #ifdef USE_FONT_BACKEND
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3410 if (enable_font_backend)
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3411 x_default_font_parameter (f, parms);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3412 else
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
3413 #endif /* USE_FONT_BACKEND */
4146
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
3414 {
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
3415 Lisp_Object font;
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
3416
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3417 font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);
18947
386d68191907 (Fx_create_frame): Don't fail to initialize `font'.
Richard M. Stallman <rms@gnu.org>
parents: 18893
diff changeset
3418
89352
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3419 /* If the caller has specified no font, try out fonts which we
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3420 hope have bold and italic variations. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3421 if (!STRINGP (font))
89352
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3422 {
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3423 char *names[]
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3424 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3425 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3426 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3427 /* This was formerly the first thing tried, but it finds
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3428 too many fonts and takes too long. */
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3429 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3430 /* If those didn't work, look for something which will
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3431 at least work. */
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3432 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3433 NULL };
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3434 int i;
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3435
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3436 BLOCK_INPUT;
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3437 for (i = 0; names[i]; i++)
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3438 {
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3439 Lisp_Object list;
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3440
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3441 list = x_list_fonts (f, build_string (names[i]), 0, 1);
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3442 if (CONSP (list))
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3443 {
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3444 font = XCAR (list);
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3445 break;
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3446 }
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3447 }
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3448 UNBLOCK_INPUT;
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3449 if (! STRINGP (font))
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3450 font = build_string ("fixed");
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
3451 }
17722
27df69e20b98 (Fx_create_frame): Delete code for handling the X
Kenichi Handa <handa@m17n.org>
parents: 17629
diff changeset
3452 x_default_parameter (f, parms, Qfont, font,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3453 "font", "Font", RES_TYPE_STRING);
4146
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
3454 }
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3455
15720
f1549b7501af (Fx_create_frame): Do xlwmenu hack only if USE_LUCID.
Karl Heuer <kwzh@gnu.org>
parents: 15706
diff changeset
3456 #ifdef USE_LUCID
9742
fe7653791d28 (Fx_create_frame): Set xlwmenu_default_font.
Richard M. Stallman <rms@gnu.org>
parents: 9703
diff changeset
3457 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
fe7653791d28 (Fx_create_frame): Set xlwmenu_default_font.
Richard M. Stallman <rms@gnu.org>
parents: 9703
diff changeset
3458 whereby it fails to get any font. */
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3459 xlwmenu_default_font = FRAME_FONT (f);
9808
4c43c9dbe130 (x_window): Make ibw 0 by default.
Richard M. Stallman <rms@gnu.org>
parents: 9742
diff changeset
3460 #endif
9742
fe7653791d28 (Fx_create_frame): Set xlwmenu_default_font.
Richard M. Stallman <rms@gnu.org>
parents: 9703
diff changeset
3461
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3462 x_default_parameter (f, parms, Qborder_width, make_number (2),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3463 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3464
40715
221a78cc7b5f (Fx_create_frame): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 40700
diff changeset
3465 /* This defaults to 1 in order to match xterm. We recognize either
3923
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3466 internalBorderWidth or internalBorder (which is what xterm calls
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3467 it). */
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3468 if (NILP (Fassq (Qinternal_border_width, parms)))
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3469 {
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3470 Lisp_Object value;
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3471
17779
094e5efd262d (Fx_create_frame): Get X resources from the display
Richard M. Stallman <rms@gnu.org>
parents: 17722
diff changeset
3472 value = x_get_arg (dpyinfo, parms, Qinternal_border_width,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3473 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
3923
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3474 if (! EQ (value, Qunbound))
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3475 parms = Fcons (Fcons (Qinternal_border_width, value),
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3476 parms);
cb16ebff1c44 * xfns.c (Fx_create_frame): Check for internalBorder resource, as
Jim Blandy <jimb@redhat.com>
parents: 3888
diff changeset
3477 }
16302
025b3dc7a6ba (Fx_create_frame): Default Qinternal_border_width to 1.
Richard M. Stallman <rms@gnu.org>
parents: 16254
diff changeset
3478 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3479 "internalBorderWidth", "internalBorderWidth",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3480 RES_TYPE_NUMBER);
16254
3e8b16badf3d (Fx_create_frame): Default Qvertical_scroll_bars to `left'.
Richard M. Stallman <rms@gnu.org>
parents: 16156
diff changeset
3481 x_default_parameter (f, parms, Qvertical_scroll_bars, Qleft,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3482 "verticalScrollBars", "ScrollBars",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3483 RES_TYPE_SYMBOL);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3484
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3485 /* Also do the stuff which must be set before the window exists. */
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3486 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3487 "foreground", "Foreground", RES_TYPE_STRING);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3488 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
26808
d8a6c42deb4e Indentation fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26729
diff changeset
3489 "background", "Background", RES_TYPE_STRING);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3490 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3491 "pointerColor", "Foreground", RES_TYPE_STRING);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3492 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3493 "cursorColor", "Foreground", RES_TYPE_STRING);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3494 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3495 "borderColor", "BorderColor", RES_TYPE_STRING);
25528
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
3496 x_default_parameter (f, parms, Qscreen_gamma, Qnil,
b5dd1bafd001 Include math.h. Add extern declaration for atof in case
Gerd Moellmann <gerd@gnu.org>
parents: 25511
diff changeset
3497 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT);
28690
01a3287bb747 (x_set_line_spacing): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28597
diff changeset
3498 x_default_parameter (f, parms, Qline_spacing, Qnil,
01a3287bb747 (x_set_line_spacing): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 28597
diff changeset
3499 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
41722
fd499c5c75d2 (x_frame_parms): Add `left-fringe' and `right-fringe' parms.
Kim F. Storm <storm@cua.dk>
parents: 41449
diff changeset
3500 x_default_parameter (f, parms, Qleft_fringe, Qnil,
fd499c5c75d2 (x_frame_parms): Add `left-fringe' and `right-fringe' parms.
Kim F. Storm <storm@cua.dk>
parents: 41449
diff changeset
3501 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
fd499c5c75d2 (x_frame_parms): Add `left-fringe' and `right-fringe' parms.
Kim F. Storm <storm@cua.dk>
parents: 41449
diff changeset
3502 x_default_parameter (f, parms, Qright_fringe, Qnil,
fd499c5c75d2 (x_frame_parms): Add `left-fringe' and `right-fringe' parms.
Kim F. Storm <storm@cua.dk>
parents: 41449
diff changeset
3503 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3504
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3505 x_default_scroll_bar_color_parameter (f, parms, Qscroll_bar_foreground,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3506 "scrollBarForeground",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3507 "ScrollBarForeground", 1);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3508 x_default_scroll_bar_color_parameter (f, parms, Qscroll_bar_background,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3509 "scrollBarBackground",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3510 "ScrollBarBackground", 0);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3511
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3512 /* Init faces before x_default_parameter is called for scroll-bar
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3513 parameters because that function calls x_set_scroll_bar_width,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3514 which calls change_frame_size, which calls Fset_window_buffer,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3515 which runs hooks, which call Fvertical_motion. At the end, we
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3516 end up in init_iterator with a null face cache, which should not
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3517 happen. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3518 init_frame_faces (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3519
8758
fac1c4722677 (Fx_create_frame): Make 1 the default for menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 8675
diff changeset
3520 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3521 "menuBar", "MenuBar", RES_TYPE_NUMBER);
31824
b3295c7e7a60 (Fx_create_frame): Set default frame parameter value
Gerd Moellmann <gerd@gnu.org>
parents: 31768
diff changeset
3522 x_default_parameter (f, parms, Qtool_bar_lines, make_number (1),
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3523 "toolBar", "ToolBar", RES_TYPE_NUMBER);
13083
16638ebb209f (Fx_create_frame): Set up buffer-predicate slot.
Richard M. Stallman <rms@gnu.org>
parents: 12832
diff changeset
3524 x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3525 "bufferPredicate", "BufferPredicate",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3526 RES_TYPE_SYMBOL);
14381
4d038c841cf4 (Qtitle): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
3527 x_default_parameter (f, parms, Qtitle, Qnil,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3528 "title", "Title", RES_TYPE_STRING);
38183
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
3529 x_default_parameter (f, parms, Qwait_for_wm, Qt,
3ef7b5a020b2 (Qwait_for_wm): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37946
diff changeset
3530 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN);
42721
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
3531 x_default_parameter (f, parms, Qfullscreen, Qnil,
462e0bbae65d (Qfullscreen, Qfullwidth, Qfullheight, Qfullboth): New variables.
Eli Zaretskii <eliz@gnu.org>
parents: 42247
diff changeset
3532 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
6882
3096a6f7fffb (Fx_list_fonts): Error if non-X frame used.
Richard M. Stallman <rms@gnu.org>
parents: 6790
diff changeset
3533
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3534 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
36459
919d77f8d0ff (Fx_create_frame): Adjust the frame's height for presence
Gerd Moellmann <gerd@gnu.org>
parents: 36448
diff changeset
3535
919d77f8d0ff (Fx_create_frame): Adjust the frame's height for presence
Gerd Moellmann <gerd@gnu.org>
parents: 36448
diff changeset
3536 /* Compute the size of the X window. */
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
3537 window_prompting = x_figure_window_size (f, parms, 1);
7263
b7025b4bf659 (Fx_create_frame): Set the size_hint_flags field.
Richard M. Stallman <rms@gnu.org>
parents: 7261
diff changeset
3538
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3539 tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3540 f->no_split = minibuffer_only || EQ (tem, Qt);
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3541
56513
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
3542 x_icon_verify (f, parms);
5044b3527ce8 (x_icon_verify): New function.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55546
diff changeset
3543
35733
4f422aadd415 (Fx_create_frame): Add the tool bar height to the frame
Gerd Moellmann <gerd@gnu.org>
parents: 35592
diff changeset
3544 /* Create the X widget or window. */
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
3545 #ifdef USE_X_TOOLKIT
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
3546 x_window (f, window_prompting, minibuffer_only);
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
3547 #else
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3548 x_window (f);
6604
bb11213734d6 (x_window) [USE_X_TOOLKIT]: New args window_prompting and minibuffer_only.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6523
diff changeset
3549 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3550
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3551 x_icon (f, parms);
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3552 x_make_gc (f);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3553
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3554 /* Now consider the frame official. */
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3555 FRAME_X_DISPLAY_INFO (f)->reference_count++;
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3556 Vframe_list = Fcons (frame, Vframe_list);
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3557
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3558 /* We need to do this after creating the X window, so that the
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3559 icon-creation functions can say whose icon they're describing. */
65936
2c78610a49f1 * xfns.c (Fx_create_frame): Make bitmapIcon have default on.
Jan Djärv <jan.h.d@swipnet.se>
parents: 65459
diff changeset
3560 x_default_parameter (f, parms, Qicon_type, Qt,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3561 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3562
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3563 x_default_parameter (f, parms, Qauto_raise, Qnil,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3564 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
1786
5179baee010b * xfns.c (Fx_create_frame): After mapping the frame, call
Jim Blandy <jimb@redhat.com>
parents: 1733
diff changeset
3565 x_default_parameter (f, parms, Qauto_lower, Qnil,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3566 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1786
diff changeset
3567 x_default_parameter (f, parms, Qcursor_type, Qbox,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3568 "cursorType", "CursorType", RES_TYPE_SYMBOL);
26978
06f887a1c834 (Fx_create_frame): Move x_default_parameter calls that
Gerd Moellmann <gerd@gnu.org>
parents: 26954
diff changeset
3569 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
06f887a1c834 (Fx_create_frame): Move x_default_parameter calls that
Gerd Moellmann <gerd@gnu.org>
parents: 26954
diff changeset
3570 "scrollBarWidth", "ScrollBarWidth",
06f887a1c834 (Fx_create_frame): Move x_default_parameter calls that
Gerd Moellmann <gerd@gnu.org>
parents: 26954
diff changeset
3571 RES_TYPE_NUMBER);
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
3572
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3573 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3574 Change will not be effected unless different from the current
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3575 FRAME_LINES (f). */
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3576 width = FRAME_COLS (f);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3577 height = FRAME_LINES (f);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3578
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3579 SET_FRAME_COLS (f, 0);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
3580 FRAME_LINES (f) = 0;
25363
bf0488244270 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25335
diff changeset
3581 change_frame_size (f, height, width, 1, 0, 0);
2136
17ab6ed0f98b (x_frame_parms): Add elts for visibility and menu-bar-lines.
Richard M. Stallman <rms@gnu.org>
parents: 2067
diff changeset
3582
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
3583 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3584 /* Create the menu bar. */
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3585 if (!minibuffer_only && FRAME_EXTERNAL_MENU_BAR (f))
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3586 {
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3587 /* If this signals an error, we haven't set size hints for the
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3588 frame and we didn't make it visible. */
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3589 initialize_frame_menubar (f);
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3590
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
3591 #ifndef USE_GTK
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3592 /* This is a no-op, except under Motif where it arranges the
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3593 main window for the widgets on it. */
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3594 lw_set_main_areas (f->output_data.x->column_widget,
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3595 f->output_data.x->menubar_widget,
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3596 f->output_data.x->edit_widget);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
3597 #endif /* not USE_GTK */
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
3598 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
3599 #endif /* USE_X_TOOLKIT || USE_GTK */
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3600
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3601 /* Tell the server what size and position, etc, we want, and how
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3602 badly we want them. This should be done after we have the menu
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3603 bar so that its size can be taken into account. */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3604 BLOCK_INPUT;
7209
ca5e04c9795c (Fx_create_frame): Pass 0 as 3rd arg to x_wm_set_size_hint.
Richard M. Stallman <rms@gnu.org>
parents: 7172
diff changeset
3605 x_wm_set_size_hint (f, window_prompting, 0);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3606 UNBLOCK_INPUT;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3607
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3608 /* Make the window appear on the frame and enable display, unless
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3609 the caller says not to. However, with explicit parent, Emacs
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3610 cannot control visibility, so don't try. */
12667
a3466dad7d6d Renamings: frame->display => frame->output, struct x_display -> sruct x_output.
Richard M. Stallman <rms@gnu.org>
parents: 12656
diff changeset
3611 if (! f->output_data.x->explicit_parent)
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3612 {
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3613 Lisp_Object visibility;
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3614
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3615 visibility = x_get_arg (dpyinfo, parms, Qvisibility, 0, 0,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
3616 RES_TYPE_SYMBOL);
10222
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3617 if (EQ (visibility, Qunbound))
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3618 visibility = Qt;
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3619
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3620 if (EQ (visibility, Qicon))
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3621 x_iconify_frame (f);
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3622 else if (! NILP (visibility))
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3623 x_make_frame_visible (f);
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3624 else
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3625 /* Must have been Qnil. */
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3626 ;
617bee0c64f6 (x_set_frame_parameters): Handle icon-left, icon-top parms.
Richard M. Stallman <rms@gnu.org>
parents: 10080
diff changeset
3627 }
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
3628
52298
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3629 /* Set the WM leader property. GTK does this itself, so this is not
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3630 needed when using GTK. */
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3631 if (dpyinfo->client_leader_window != 0)
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3632 {
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3633 BLOCK_INPUT;
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3634 XChangeProperty (FRAME_X_DISPLAY (f),
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3635 FRAME_OUTER_WINDOW (f),
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3636 dpyinfo->Xatom_wm_client_leader,
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3637 XA_WINDOW, 32, PropModeReplace,
67264
d50a6a8cfd1e * xfns.c (x_real_positions): int ign => unsigned int.
Jan Djärv <jan.h.d@swipnet.se>
parents: 66931
diff changeset
3638 (unsigned char *) &dpyinfo->client_leader_window, 1);
52298
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3639 UNBLOCK_INPUT;
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3640 }
1a4bd2bec861 Create and initialize a client leader window so session management
Jan Djärv <jan.h.d@swipnet.se>
parents: 52095
diff changeset
3641
67363
87de4735ecc9 (Fx_create_frame): Initialize Vdefault_minibuffer_frame, when needed.
Károly Lőrentey <lorentey@elte.hu>
parents: 67264
diff changeset
3642 /* Initialize `default-minibuffer-frame' in case this is the first
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3643 frame on this terminal. */
67363
87de4735ecc9 (Fx_create_frame): Initialize Vdefault_minibuffer_frame, when needed.
Károly Lőrentey <lorentey@elte.hu>
parents: 67264
diff changeset
3644 if (FRAME_HAS_MINIBUF_P (f)
87de4735ecc9 (Fx_create_frame): Initialize Vdefault_minibuffer_frame, when needed.
Károly Lőrentey <lorentey@elte.hu>
parents: 67264
diff changeset
3645 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
87de4735ecc9 (Fx_create_frame): Initialize Vdefault_minibuffer_frame, when needed.
Károly Lőrentey <lorentey@elte.hu>
parents: 67264
diff changeset
3646 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
87de4735ecc9 (Fx_create_frame): Initialize Vdefault_minibuffer_frame, when needed.
Károly Lőrentey <lorentey@elte.hu>
parents: 67264
diff changeset
3647 kb->Vdefault_minibuffer_frame = frame;
87de4735ecc9 (Fx_create_frame): Initialize Vdefault_minibuffer_frame, when needed.
Károly Lőrentey <lorentey@elte.hu>
parents: 67264
diff changeset
3648
68396
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3649 /* All remaining specified parameters, which have not been "used"
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3650 by x_get_arg and friends, now go in the misc. alist of the frame. */
85330
0bc184c59770 * xfns.c (Fx_create_frame, Fx_display_list):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85311
diff changeset
3651 for (tem = parms; CONSP (tem); tem = XCDR (tem))
68396
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3652 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3653 f->param_alist = Fcons (XCAR (tem), f->param_alist);
75dead191600 (Fx_create_frame): Put all specified parms into f->param_alist
Richard M. Stallman <rms@gnu.org>
parents: 67842
diff changeset
3654
25320
107c9221181c (x_window) [USE_X_TOOLKIT]: Remove test for
Gerd Moellmann <gerd@gnu.org>
parents: 25289
diff changeset
3655 UNGCPRO;
36594
756c28377036 (Fx_create_frame): Clear Vwindow_list.
Gerd Moellmann <gerd@gnu.org>
parents: 36459
diff changeset
3656
756c28377036 (Fx_create_frame): Clear Vwindow_list.
Gerd Moellmann <gerd@gnu.org>
parents: 36459
diff changeset
3657 /* Make sure windows on this frame appear in calls to next-window
756c28377036 (Fx_create_frame): Clear Vwindow_list.
Gerd Moellmann <gerd@gnu.org>
parents: 36459
diff changeset
3658 and similar functions. */
756c28377036 (Fx_create_frame): Clear Vwindow_list.
Gerd Moellmann <gerd@gnu.org>
parents: 36459
diff changeset
3659 Vwindow_list = Qnil;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3660
5671
5c597b8fbabe Find lwlib.h in ../lwlib.
Richard M. Stallman <rms@gnu.org>
parents: 5558
diff changeset
3661 return unbind_to (count, frame);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3662 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3663
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
3664
11537
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3665 /* FRAME is used only to get a handle on the X display. We don't pass the
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3666 display info directly because we're called from frame.c, which doesn't
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3667 know about that structure. */
16156
d435199e529d (x_set_frame_parameters): Make height and width ints.
Richard M. Stallman <rms@gnu.org>
parents: 16041
diff changeset
3668
6485
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3669 Lisp_Object
11537
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3670 x_get_focus_frame (frame)
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3671 struct frame *frame;
6485
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3672 {
11537
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3673 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (frame);
6485
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3674 Lisp_Object xfocus;
11537
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3675 if (! dpyinfo->x_focus_frame)
6485
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3676 return Qnil;
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3677
11537
9d4df3cf95b3 (x_get_focus_frame): New arg FRAME. Callers changed.
Karl Heuer <kwzh@gnu.org>
parents: 11496
diff changeset
3678 XSETFRAME (xfocus, dpyinfo->x_focus_frame);
6485
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3679 return xfocus;
b0825eef18b1 (x_get_focus_frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 6480
diff changeset
3680 }
3048
96ff8e5744b2 * xfns.c (select_visual): Include the screen number in the
Jim Blandy <jimb@redhat.com>
parents: 3015
diff changeset
3681
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3682
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3683 /* In certain situations, when the window manager follows a
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3684 click-to-focus policy, there seems to be no way around calling
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3685 XSetInputFocus to give another frame the input focus .
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3686
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3687 In an ideal world, XSetInputFocus should generally be avoided so
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3688 that applications don't interfere with the window manager's focus
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3689 policy. But I think it's okay to use when it's clearly done
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3690 following a user-command. */
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3691
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3692 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3693 doc: /* Set the input focus to FRAME.
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3694 FRAME nil means use the selected frame. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3695 (frame)
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3696 Lisp_Object frame;
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3697 {
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3698 struct frame *f = check_x_frame (frame);
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3699 Display *dpy = FRAME_X_DISPLAY (f);
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3700
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3701 BLOCK_INPUT;
69152
f2147c1027b6 * xterm.h (x_catch_errors) Return value changed to void.
Chong Yidong <cyd@stupidchicken.com>
parents: 69065
diff changeset
3702 x_catch_errors (dpy);
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3703 XSetInputFocus (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3704 RevertToParent, CurrentTime);
81947
f0ff13637b00 (Fx_focus_frame): Call x_ewmh_activate_frame
Jan Djärv <jan.h.d@swipnet.se>
parents: 81375
diff changeset
3705 x_ewmh_activate_frame (f);
69173
fdee8318ddc9 * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary
Chong Yidong <cyd@stupidchicken.com>
parents: 69152
diff changeset
3706 x_uncatch_errors ();
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3707 UNBLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
3708
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3709 return Qnil;
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3710 }
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
3711
3048
96ff8e5744b2 * xfns.c (select_visual): Include the screen number in the
Jim Blandy <jimb@redhat.com>
parents: 3015
diff changeset
3712
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
3713 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3714 doc: /* Internal function called by `color-defined-p', which see. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3715 (color, frame)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3716 Lisp_Object color, frame;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3717 {
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3718 XColor foo;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3719 FRAME_PTR f = check_x_frame (frame);
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3720
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
3721 CHECK_STRING (color);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3722
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
3723 if (x_defined_color (f, SDATA (color), &foo, 0))
8675
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
3724 return Qt;
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
3725 else
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
3726 return Qnil;
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
3727 }
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
3728
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
3729 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3730 doc: /* Internal function called by `color-values', which see. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3731 (color, frame)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3732 Lisp_Object color, frame;
8675
1fe413b0a916 (defined_color): New arg ALLOC--optionally don't allocate the color.
Richard M. Stallman <rms@gnu.org>
parents: 8655
diff changeset
3733 {
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3734 XColor foo;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3735 FRAME_PTR f = check_x_frame (frame);
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3736
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
3737 CHECK_STRING (color);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3738
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
3739 if (x_defined_color (f, SDATA (color), &foo, 0))
72529
892ea79efee6 (Fxw_color_values): Simplify; use list3.
Kim F. Storm <storm@cua.dk>
parents: 71993
diff changeset
3740 return list3 (make_number (foo.red),
892ea79efee6 (Fxw_color_values): Simplify; use list3.
Kim F. Storm <storm@cua.dk>
parents: 71993
diff changeset
3741 make_number (foo.green),
892ea79efee6 (Fxw_color_values): Simplify; use list3.
Kim F. Storm <storm@cua.dk>
parents: 71993
diff changeset
3742 make_number (foo.blue));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3743 else
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3744 return Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3745 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3746
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
3747 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3748 doc: /* Internal function called by `display-color-p', which see. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3749 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3750 Lisp_Object terminal;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3751 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3752 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3753
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3754 if (dpyinfo->n_planes <= 2)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3755 return Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3756
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3757 switch (dpyinfo->visual->class)
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3758 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3759 case StaticColor:
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3760 case PseudoColor:
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3761 case TrueColor:
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3762 case DirectColor:
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3763 return Qt;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3764
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3765 default:
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3766 return Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3767 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3768 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3769
8779
12c6296bbb4b (Fx_display_grayscale_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8758
diff changeset
3770 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3771 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3772 doc: /* Return t if the X display supports shades of gray.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3773 Note that color displays do support shades of gray.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3774 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3775 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3776 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3777 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3778 Lisp_Object terminal;
8779
12c6296bbb4b (Fx_display_grayscale_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8758
diff changeset
3779 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3780 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3781
12347
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3782 if (dpyinfo->n_planes <= 1)
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3783 return Qnil;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3784
12347
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3785 switch (dpyinfo->visual->class)
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3786 {
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3787 case StaticColor:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3788 case PseudoColor:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3789 case TrueColor:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3790 case DirectColor:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3791 case StaticGray:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3792 case GrayScale:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3793 return Qt;
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3794
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3795 default:
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3796 return Qnil;
0731c1ec96ad (Fx_display_grayscale_p): Return t or nil.
Richard M. Stallman <rms@gnu.org>
parents: 12316
diff changeset
3797 }
8779
12c6296bbb4b (Fx_display_grayscale_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8758
diff changeset
3798 }
12c6296bbb4b (Fx_display_grayscale_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8758
diff changeset
3799
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3800 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3801 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3802 doc: /* Return the width in pixels of the X display TERMINAL.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3803 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3804 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3805 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3806 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3807 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3808 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3809 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3810
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3811 return make_number (dpyinfo->width);
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3812 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3813
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3814 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3815 Sx_display_pixel_height, 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3816 doc: /* Return the height in pixels of the X display TERMINAL.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3817 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3818 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3819 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3820 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3821 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3822 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3823 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3824
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3825 return make_number (dpyinfo->height);
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3826 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3827
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3828 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3829 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3830 doc: /* Return the number of bitplanes of the X display TERMINAL.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3831 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3832 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3833 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3834 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3835 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3836 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3837 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3838
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3839 return make_number (dpyinfo->n_planes);
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3840 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3841
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3842 DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3843 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3844 doc: /* Return the number of color cells of the X display TERMINAL.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3845 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3846 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3847 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3848 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3849 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3850 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3851 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3852
54218
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3853 int nr_planes = DisplayPlanes (dpyinfo->display,
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3854 XScreenNumberOfScreen (dpyinfo->screen));
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3855
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3856 /* Truncate nr_planes to 24 to avoid integer overflow.
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3857 Some displays says 32, but only 24 bits are actually significant.
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3858 There are only very few and rare video cards that have more than
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3859 24 significant bits. Also 24 bits is more than 16 million colors,
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3860 it "should be enough for everyone". */
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3861 if (nr_planes > 24) nr_planes = 24;
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3862
6f75b2135827 * xfns.c (Fx_display_color_cells): Use number of planes to calculate
Jan Djärv <jan.h.d@swipnet.se>
parents: 54185
diff changeset
3863 return make_number (1 << nr_planes);
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3864 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3865
4279
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
3866 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
3867 Sx_server_max_request_size,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3868 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3869 doc: /* Return the maximum request size of the X server of display TERMINAL.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3870 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3871 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3872 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3873 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3874 Lisp_Object terminal;
4279
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
3875 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3876 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3877
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3878 return make_number (MAXREQUEST (dpyinfo->display));
4279
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
3879 }
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
3880
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3881 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3882 doc: /* Return the "vendor ID" string of the X server of display TERMINAL.
57765
77c93cbb1721 (Fx_server_vendor, Fx_server_version): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 57714
diff changeset
3883 \(Labelling every distributor as a "vendor" embodies the false assumption
77c93cbb1721 (Fx_server_vendor, Fx_server_version): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 57714
diff changeset
3884 that operating systems cannot be developed and distributed noncommercially.)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3885 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3886 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3887 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3888 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3889 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3890 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3891 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3892 char *vendor = ServerVendor (dpyinfo->display);
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3893
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3894 if (! vendor) vendor = "";
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3895 return build_string (vendor);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3896 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3897
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3898 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3899 doc: /* Return the version numbers of the X server of display TERMINAL.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3900 The value is a list of three integers: the major and minor
57765
77c93cbb1721 (Fx_server_vendor, Fx_server_version): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 57714
diff changeset
3901 version numbers of the X Protocol in use, and the distributor-specific release
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3902 number. See also the function `x-server-vendor'.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3903
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3904 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3905 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3906 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3907 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3908 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3909 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3910 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3911 Display *dpy = dpyinfo->display;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3912
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3913 return Fcons (make_number (ProtocolVersion (dpy)),
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3914 Fcons (make_number (ProtocolRevision (dpy)),
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3915 Fcons (make_number (VendorRelease (dpy)), Qnil)));
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3916 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3917
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3918 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3919 doc: /* Return the number of screens on the X server of display TERMINAL.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3920 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3921 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3922 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3923 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3924 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3925 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3926 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3927
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3928 return make_number (ScreenCount (dpyinfo->display));
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3929 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3930
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3931 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3932 doc: /* Return the height in millimeters of the X display TERMINAL.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3933 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3934 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3935 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3936 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3937 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3938 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3939 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3940
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3941 return make_number (HeightMMOfScreen (dpyinfo->screen));
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3942 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3943
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3944 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3945 doc: /* Return the width in millimeters of the X display TERMINAL.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3946 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3947 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3948 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3949 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3950 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3951 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3952 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3953
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3954 return make_number (WidthMMOfScreen (dpyinfo->screen));
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3955 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3956
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3957 DEFUN ("x-display-backing-store", Fx_display_backing_store,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3958 Sx_display_backing_store, 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
3959 doc: /* Return an indication of whether X display TERMINAL does backing store.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3960 The value may be `always', `when-mapped', or `not-useful'.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3961 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3962 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
3963 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3964 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3965 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3966 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3967 struct x_display_info *dpyinfo = check_x_display_info (terminal);
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3968 Lisp_Object result;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3969
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
3970 switch (DoesBackingStore (dpyinfo->screen))
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3971 {
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3972 case Always:
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3973 result = intern ("always");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3974 break;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3975
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3976 case WhenMapped:
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3977 result = intern ("when-mapped");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3978 break;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3979
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3980 case NotUseful:
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3981 result = intern ("not-useful");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3982 break;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3983
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3984 default:
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3985 error ("Strange value for BackingStore parameter of screen");
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3986 result = Qnil;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3987 }
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3988
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
3989 return result;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3990 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3991
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
3992 DEFUN ("x-display-visual-class", Fx_display_visual_class,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3993 Sx_display_visual_class, 0, 1, 0,
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3994 doc: /* Return the visual class of the X display TERMINAL.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3995 The value is one of the symbols `static-gray', `gray-scale',
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3996 `static-color', `pseudo-color', `true-color', or `direct-color'.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
3997
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3998 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
3999 TERMINAL should a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4000 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4001 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4002 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4003 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4004 struct x_display_info *dpyinfo = check_x_display_info (terminal);
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4005 Lisp_Object result;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4006
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4007 switch (dpyinfo->visual->class)
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4008 {
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4009 case StaticGray:
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4010 result = intern ("static-gray");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4011 break;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4012 case GrayScale:
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4013 result = intern ("gray-scale");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4014 break;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4015 case StaticColor:
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4016 result = intern ("static-color");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4017 break;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4018 case PseudoColor:
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4019 result = intern ("pseudo-color");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4020 break;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4021 case TrueColor:
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4022 result = intern ("true-color");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4023 break;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4024 case DirectColor:
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4025 result = intern ("direct-color");
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4026 break;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4027 default:
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4028 error ("Display has an unknown visual class");
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4029 result = Qnil;
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4030 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4031
31543
9c5e42fa3ba5 (png_load, jpeg_load): Declare some variables volatile
Gerd Moellmann <gerd@gnu.org>
parents: 30601
diff changeset
4032 return result;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4033 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4034
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4035 DEFUN ("x-display-save-under", Fx_display_save_under,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4036 Sx_display_save_under, 0, 1, 0,
86073
0e4c465d1806 (Fx_create_frame, Fx_display_pixel_width, Fx_display_pixel_height,
Juanma Barranquero <lekktu@gmail.com>
parents: 85875
diff changeset
4037 doc: /* Return t if the X display TERMINAL supports the save-under feature.
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4038 The optional argument TERMINAL specifies which display to ask about.
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4039 TERMINAL should be a terminal id, a frame or a display name (a string).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4040 If omitted or nil, that stands for the selected frame's display. */)
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4041 (terminal)
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4042 Lisp_Object terminal;
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4043 {
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4044 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4045
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4046 if (DoesSaveUnders (dpyinfo->screen) == True)
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4047 return Qt;
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4048 else
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4049 return Qnil;
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4050 }
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
4051
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4052 int
2067
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4053 x_pixel_width (f)
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4054 register struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4055 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
4056 return FRAME_PIXEL_WIDTH (f);
2067
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4057 }
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4058
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4059 int
2067
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4060 x_pixel_height (f)
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4061 register struct frame *f;
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4062 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
4063 return FRAME_PIXEL_HEIGHT (f);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4064 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4065
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4066 int
2067
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4067 x_char_width (f)
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4068 register struct frame *f;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4069 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
4070 return FRAME_COLUMN_WIDTH (f);
2067
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4071 }
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4072
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4073 int
2067
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4074 x_char_height (f)
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4075 register struct frame *f;
0a353ddd4bf4 (Fx_pixel_width, Fx_pixel_height): Fns deleted.
Richard M. Stallman <rms@gnu.org>
parents: 1994
diff changeset
4076 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
4077 return FRAME_LINE_HEIGHT (f);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4078 }
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4079
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4080 int
19825
cdfaf8ce5208 (x_screen_planes): Fix type of argument.
Richard M. Stallman <rms@gnu.org>
parents: 19095
diff changeset
4081 x_screen_planes (f)
cdfaf8ce5208 (x_screen_planes): Fix type of argument.
Richard M. Stallman <rms@gnu.org>
parents: 19095
diff changeset
4082 register struct frame *f;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4083 {
19825
cdfaf8ce5208 (x_screen_planes): Fix type of argument.
Richard M. Stallman <rms@gnu.org>
parents: 19095
diff changeset
4084 return FRAME_X_DISPLAY_INFO (f)->n_planes;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4085 }
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
4086
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4087
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4088
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4089 /************************************************************************
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4090 X Displays
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4091 ************************************************************************/
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4092
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4093
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4094 /* Mapping visual names to visuals. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4095
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4096 static struct visual_class
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4097 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4098 char *name;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4099 int class;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4100 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4101 visual_classes[] =
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4102 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4103 {"StaticGray", StaticGray},
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4104 {"GrayScale", GrayScale},
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4105 {"StaticColor", StaticColor},
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4106 {"PseudoColor", PseudoColor},
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4107 {"TrueColor", TrueColor},
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4108 {"DirectColor", DirectColor},
42123
7f5f06b97bfc (x_frame_parms): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents: 42006
diff changeset
4109 {NULL, 0}
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4110 };
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4111
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4112
4606
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4113 #ifndef HAVE_XSCREENNUMBEROFSCREEN
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4114
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4115 /* Value is the screen number of screen SCR. This is a substitute for
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4116 the X function with the same name when that doesn't exist. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4117
4606
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4118 int
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4119 XScreenNumberOfScreen (scr)
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4120 register Screen *scr;
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4121 {
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4122 Display *dpy = scr->display;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4123 int i;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4124
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4125 for (i = 0; i < dpy->nscreens; ++i)
40325
2eb0395c1697 (XScreenNumberOfScreen): Fix struct to pointer
Gerd Moellmann <gerd@gnu.org>
parents: 40279
diff changeset
4126 if (scr == dpy->screens + i)
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4127 break;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4128
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4129 return i;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4130 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4131
4606
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4132 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
0866f021a2cc (XScreenNumberOfScreen): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4571
diff changeset
4133
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4134
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4135 /* Select the visual that should be used on display DPYINFO. Set
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4136 members of DPYINFO appropriately. Called from x_term_init. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4137
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4138 void
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4139 select_visual (dpyinfo)
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4140 struct x_display_info *dpyinfo;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4141 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4142 Display *dpy = dpyinfo->display;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4143 Screen *screen = dpyinfo->screen;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4144 Lisp_Object value;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4145
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4146 /* See if a visual is specified. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4147 value = display_x_get_resource (dpyinfo,
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4148 build_string ("visualClass"),
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4149 build_string ("VisualClass"),
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4150 Qnil, Qnil);
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4151 if (STRINGP (value))
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4152 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4153 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4154 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4155 depth, a decimal number. NAME is compared with case ignored. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4156 char *s = (char *) alloca (SBYTES (value) + 1);
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4157 char *dash;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4158 int i, class = -1;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4159 XVisualInfo vinfo;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4160
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4161 strcpy (s, SDATA (value));
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4162 dash = index (s, '-');
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4163 if (dash)
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4164 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4165 dpyinfo->n_planes = atoi (dash + 1);
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4166 *dash = '\0';
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4167 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4168 else
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4169 /* We won't find a matching visual with depth 0, so that
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4170 an error will be printed below. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4171 dpyinfo->n_planes = 0;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4172
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4173 /* Determine the visual class. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4174 for (i = 0; visual_classes[i].name; ++i)
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4175 if (xstricmp (s, visual_classes[i].name) == 0)
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4176 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4177 class = visual_classes[i].class;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4178 break;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4179 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4180
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4181 /* Look up a matching visual for the specified class. */
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4182 if (class == -1
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4183 || !XMatchVisualInfo (dpy, XScreenNumberOfScreen (screen),
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4184 dpyinfo->n_planes, class, &vinfo))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4185 fatal ("Invalid visual specification `%s'", SDATA (value));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4186
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4187 dpyinfo->visual = vinfo.visual;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4188 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4189 else
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4190 {
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4191 int n_visuals;
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4192 XVisualInfo *vinfo, vinfo_template;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4193
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4194 dpyinfo->visual = DefaultVisualOfScreen (screen);
1050
133bad38bde1 * xfns.c (x_icon): Don't call x_wm_set_icon_positions if the user
Jim Blandy <jimb@redhat.com>
parents: 1018
diff changeset
4195
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4196 vinfo_template.visualid = XVisualIDFromVisual (dpyinfo->visual);
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4197 vinfo_template.screen = XScreenNumberOfScreen (screen);
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4198 vinfo = XGetVisualInfo (dpy, VisualIDMask | VisualScreenMask,
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4199 &vinfo_template, &n_visuals);
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4200 if (n_visuals != 1)
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4201 fatal ("Can't get proper X visual info");
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4202
28199
56a776500341 * xfns.c (select_visual): Don't set dpyinfo->n_planes to the
Gerd Moellmann <gerd@gnu.org>
parents: 28144
diff changeset
4203 dpyinfo->n_planes = vinfo->depth;
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4204 XFree ((char *) vinfo);
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4205 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4206 }
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4207
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4208
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4209 /* Return the X display structure for the display named NAME.
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4210 Open a new connection if necessary. */
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4211
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4212 struct x_display_info *
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4213 x_display_info_for_name (name)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4214 Lisp_Object name;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4215 {
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4216 Lisp_Object names;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4217 struct x_display_info *dpyinfo;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4218
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
4219 CHECK_STRING (name);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4220
83014
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4221 #if 0
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4222 if (! EQ (Vinitial_window_system, intern ("x")))
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4223 error ("Not using X Windows"); /* That doesn't stop us anymore. */
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4224 #endif
12381
67cb86bbdb55 (Fx_open_connection, x_display_info_for_name):
Richard M. Stallman <rms@gnu.org>
parents: 12347
diff changeset
4225
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4226 for (dpyinfo = x_display_list, names = x_display_name_list;
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4227 dpyinfo;
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
4228 dpyinfo = dpyinfo->next, names = XCDR (names))
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4229 {
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4230 Lisp_Object tem;
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
4231 tem = Fstring_equal (XCAR (XCAR (names)), name);
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4232 if (!NILP (tem))
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4233 return dpyinfo;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4234 }
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4235
11917
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
4236 /* Use this general default value to start with. */
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
4237 Vx_resource_name = Vinvocation_name;
2314b62ca4ab (Fx_get_resource): Major rewrite to make it clearer.
Karl Heuer <kwzh@gnu.org>
parents: 11900
diff changeset
4238
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4239 validate_x_resource_name ();
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4240
34976
05c36b1fa618 (x_display_info_for_name): Cast 0 to "char *" in the call
Eli Zaretskii <eliz@gnu.org>
parents: 34911
diff changeset
4241 dpyinfo = x_term_init (name, (char *)0,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4242 (char *) SDATA (Vx_resource_name));
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4243
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4244 if (dpyinfo == 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4245 error ("Cannot connect to X server %s", SDATA (name));
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4246
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4247 x_in_use = 1;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4248 XSETFASTINT (Vwindow_system_version, 11);
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4249
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4250 return dpyinfo;
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4251 }
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4252
27993
3a34e2d1bf3c (select_visual): Rewritten. Recognize user-specified
Gerd Moellmann <gerd@gnu.org>
parents: 27987
diff changeset
4253
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4254 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4255 1, 3, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4256 doc: /* Open a connection to an X server.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4257 DISPLAY is the name of the display to connect to.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4258 Optional second arg XRM-STRING is a string of resources in xrdb format.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4259 If the optional third arg MUST-SUCCEED is non-nil,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4260 terminate Emacs if we can't open the connection. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4261 (display, xrm_string, must_succeed)
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4262 Lisp_Object display, xrm_string, must_succeed;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4263 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4264 unsigned char *xrm_option;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4265 struct x_display_info *dpyinfo;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4266
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
4267 CHECK_STRING (display);
4146
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
4268 if (! NILP (xrm_string))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
4269 CHECK_STRING (xrm_string);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4270
83014
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4271 #if 0
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4272 if (! EQ (Vinitial_window_system, intern ("x")))
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4273 error ("Not using X Windows"); /* That doesn't stop us anymore. */
f5cadabb36dd Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
4274 #endif
12381
67cb86bbdb55 (Fx_open_connection, x_display_info_for_name):
Richard M. Stallman <rms@gnu.org>
parents: 12347
diff changeset
4275
4146
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
4276 if (! NILP (xrm_string))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4277 xrm_option = (unsigned char *) SDATA (xrm_string);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4278 else
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4279 xrm_option = (unsigned char *) 0;
4146
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
4280
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
4281 validate_x_resource_name ();
0c681748d0ce * xfns.c (Fx_open_connection): Don't trust HAVE_XRMSETDATABASE;
Jim Blandy <jimb@redhat.com>
parents: 3923
diff changeset
4282
7802
d687e885fa6a (Fx_open_connection): Set up Vx_resource_name and xrm_option
Richard M. Stallman <rms@gnu.org>
parents: 7797
diff changeset
4283 /* This is what opens the connection and sets x_current_display.
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4284 This also initializes many symbols, such as those used for input. */
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4285 dpyinfo = x_term_init (display, xrm_option,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4286 (char *) SDATA (Vx_resource_name));
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4287
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4288 if (dpyinfo == 0)
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4289 {
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4290 if (!NILP (must_succeed))
39907
c62141d21872 Fix multi-line string.
Gerd Moellmann <gerd@gnu.org>
parents: 39905
diff changeset
4291 fatal ("Cannot connect to X server %s.\n\
c62141d21872 Fix multi-line string.
Gerd Moellmann <gerd@gnu.org>
parents: 39905
diff changeset
4292 Check the DISPLAY environment variable or use `-d'.\n\
47159
23b87fbdd685 (Fx_open_connection): Fix docstring. Patch from Rune Kleveland <runekl@viewpoint.no>.
Juanma Barranquero <lekktu@gmail.com>
parents: 47142
diff changeset
4293 Also use the `xauth' program to verify that you have the proper\n\
23b87fbdd685 (Fx_open_connection): Fix docstring. Patch from Rune Kleveland <runekl@viewpoint.no>.
Juanma Barranquero <lekktu@gmail.com>
parents: 47142
diff changeset
4294 authorization information needed to connect the X server.\n\
47086
527c24dbb2b1 (Fx_open_connection): Improve help when X connection
Simon Josefsson <jas@extundo.com>
parents: 47058
diff changeset
4295 An insecure way to solve the problem may be to use `xhost'.\n",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4296 SDATA (display));
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4297 else
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4298 error ("Cannot connect to X server %s", SDATA (display));
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4299 }
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4300
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4301 x_in_use = 1;
7802
d687e885fa6a (Fx_open_connection): Set up Vx_resource_name and xrm_option
Richard M. Stallman <rms@gnu.org>
parents: 7797
diff changeset
4302
9327
b3398cf56fba (Fx_open_connection): Don't use XFASTINT as an lvalue.
Karl Heuer <kwzh@gnu.org>
parents: 9285
diff changeset
4303 XSETFASTINT (Vwindow_system_version, 11);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4304 return Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4305 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4306
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4307 DEFUN ("x-close-connection", Fx_close_connection,
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4308 Sx_close_connection, 1, 1, 0,
83442
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4309 doc: /* Close the connection to TERMINAL's X server.
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4310 For TERMINAL, specify a terminal id, a frame or a display name (a
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4311 string). If TERMINAL is nil, that stands for the selected frame's
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4312 terminal. */)
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4313 (terminal)
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4314 Lisp_Object terminal;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4315 {
83442
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4316 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4317
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4318 if (dpyinfo->reference_count > 0)
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4319 error ("Display still has frames on it");
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4320
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4321 x_delete_terminal (dpyinfo->terminal);
8782
51241477cfc5 Delete X11 conditionals.
Richard M. Stallman <rms@gnu.org>
parents: 8780
diff changeset
4322
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4323 return Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4324 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4325
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4326 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4327 doc: /* Return the list of display names that Emacs has connections to. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4328 ()
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4329 {
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4330 Lisp_Object tail, result;
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4331
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4332 result = Qnil;
85330
0bc184c59770 * xfns.c (Fx_create_frame, Fx_display_list):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85311
diff changeset
4333 for (tail = x_display_name_list; CONSP (tail); tail = XCDR (tail))
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25628
diff changeset
4334 result = Fcons (XCAR (XCAR (tail)), result);
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4335
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4336 return result;
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4337 }
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4338
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
4339 DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4340 doc: /* If ON is non-nil, report X errors as soon as the erring request is made.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4341 If ON is nil, allow buffering of requests.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4342 Turning on synchronization prohibits the Xlib routines from buffering
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4343 requests and seriously degrades performance, but makes debugging much
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
4344 easier.
83442
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4345 The optional second argument TERMINAL specifies which display to act on.
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4346 TERMINAL should be a terminal id, a frame or a display name (a string).
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4347 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4348 (on, terminal)
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4349 Lisp_Object terminal, on;
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4350 {
83442
db27bb9f0d2f Cosmetic fixes in xfns.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83431
diff changeset
4351 struct x_display_info *dpyinfo = check_x_display_info (terminal);
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4352
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4353 XSynchronize (dpyinfo->display, !EQ (on, Qnil));
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4354
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4355 return Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4356 }
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4357
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4358 /* Wait for responses to all X commands issued so far for frame F. */
5536
f900f7bba4c2 (x_sync): New function.
Richard M. Stallman <rms@gnu.org>
parents: 5429
diff changeset
4359
f900f7bba4c2 (x_sync): New function.
Richard M. Stallman <rms@gnu.org>
parents: 5429
diff changeset
4360 void
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4361 x_sync (f)
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4362 FRAME_PTR f;
5536
f900f7bba4c2 (x_sync): New function.
Richard M. Stallman <rms@gnu.org>
parents: 5429
diff changeset
4363 {
5558
42ec75481b8b (x_sync): Block input.
Richard M. Stallman <rms@gnu.org>
parents: 5536
diff changeset
4364 BLOCK_INPUT;
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
4365 XSync (FRAME_X_DISPLAY (f), False);
5558
42ec75481b8b (x_sync): Block input.
Richard M. Stallman <rms@gnu.org>
parents: 5536
diff changeset
4366 UNBLOCK_INPUT;
5536
f900f7bba4c2 (x_sync): New function.
Richard M. Stallman <rms@gnu.org>
parents: 5429
diff changeset
4367 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4368
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4369
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4370 /***********************************************************************
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4371 Window properties
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4372 ***********************************************************************/
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4373
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4374 DEFUN ("x-change-window-property", Fx_change_window_property,
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4375 Sx_change_window_property, 2, 6, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4376 doc: /* Change window property PROP to VALUE on the X window of FRAME.
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4377 PROP must be a string.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4378 VALUE may be a string or a list of conses, numbers and/or strings.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4379 If an element in the list is a string, it is converted to
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4380 an Atom and the value of the Atom is used. If an element is a cons,
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4381 it is converted to a 32 bit number where the car is the 16 top bits and the
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4382 cdr is the lower 16 bits.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4383 FRAME nil or omitted means use the selected frame.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4384 If TYPE is given and non-nil, it is the name of the type of VALUE.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4385 If TYPE is not given or nil, the type is STRING.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4386 FORMAT gives the size in bits of each element if VALUE is a list.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4387 It must be one of 8, 16 or 32.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4388 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4389 If OUTER_P is non-nil, the property is changed for the outer X window of
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4390 FRAME. Default is to change on the edit X window.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4391
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4392 Value is VALUE. */)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4393 (prop, value, frame, type, format, outer_p)
53825
6635e77a2c09 * xfns.c (x_create_bitmap_mask): Removed unused variable depth.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53787
diff changeset
4394 Lisp_Object prop, value, frame, type, format, outer_p;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4395 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4396 struct frame *f = check_x_frame (frame);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4397 Atom prop_atom;
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4398 Atom target_type = XA_STRING;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4399 int element_format = 8;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4400 unsigned char *data;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4401 int nelements;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4402 Window w;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4403
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
4404 CHECK_STRING (prop);
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4405
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4406 if (! NILP (format))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4407 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4408 CHECK_NUMBER (format);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4409 element_format = XFASTINT (format);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4410
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4411 if (element_format != 8 && element_format != 16
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4412 && element_format != 32)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4413 error ("FORMAT must be one of 8, 16 or 32");
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4414 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4415
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4416 if (CONSP (value))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4417 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4418 nelements = x_check_property_data (value);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4419 if (nelements == -1)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4420 error ("Bad data in VALUE, must be number, string or cons");
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4421
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4422 if (element_format == 8)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4423 data = (unsigned char *) xmalloc (nelements);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4424 else if (element_format == 16)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4425 data = (unsigned char *) xmalloc (nelements*2);
59976
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4426 else /* format == 32 */
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4427 /* The man page for XChangeProperty:
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4428 "If the specified format is 32, the property data must be a
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4429 long array."
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4430 This applies even if long is more than 64 bits. The X library
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4431 converts to 32 bits before sending to the X server. */
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4432 data = (unsigned char *) xmalloc (nelements * sizeof(long));
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4433
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4434 x_fill_property_data (FRAME_X_DISPLAY (f), value, data, element_format);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4435 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4436 else
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4437 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4438 CHECK_STRING (value);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4439 data = SDATA (value);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4440 nelements = SCHARS (value);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4441 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4442
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4443 BLOCK_INPUT;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4444 prop_atom = XInternAtom (FRAME_X_DISPLAY (f), SDATA (prop), False);
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4445 if (! NILP (type))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4446 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4447 CHECK_STRING (type);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4448 target_type = XInternAtom (FRAME_X_DISPLAY (f), SDATA (type), False);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4449 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4450
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4451 if (! NILP (outer_p)) w = FRAME_OUTER_WINDOW (f);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4452 else w = FRAME_X_WINDOW (f);
59904
adc18da68682 (unwind_create_frame) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59789
diff changeset
4453
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4454 XChangeProperty (FRAME_X_DISPLAY (f), w,
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4455 prop_atom, target_type, element_format, PropModeReplace,
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4456 data, nelements);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4457
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4458 if (CONSP (value)) xfree (data);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4459
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4460 /* Make sure the property is set when we return. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4461 XFlush (FRAME_X_DISPLAY (f));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4462 UNBLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4463
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4464 return value;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4465 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4466
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4467
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4468 DEFUN ("x-delete-window-property", Fx_delete_window_property,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4469 Sx_delete_window_property, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4470 doc: /* Remove window property PROP from X window of FRAME.
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4471 FRAME nil or omitted means use the selected frame. Value is PROP. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4472 (prop, frame)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4473 Lisp_Object prop, frame;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4474 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4475 struct frame *f = check_x_frame (frame);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4476 Atom prop_atom;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4477
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
4478 CHECK_STRING (prop);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4479 BLOCK_INPUT;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4480 prop_atom = XInternAtom (FRAME_X_DISPLAY (f), SDATA (prop), False);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4481 XDeleteProperty (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), prop_atom);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4482
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4483 /* Make sure the property is removed when we return. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4484 XFlush (FRAME_X_DISPLAY (f));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4485 UNBLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4486
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4487 return prop;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4488 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4489
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4490
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4491 DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4492 1, 6, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
4493 doc: /* Value is the value of window property PROP on FRAME.
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4494 If FRAME is nil or omitted, use the selected frame.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4495 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4496 is the name of the Atom that denotes the type expected.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4497 If SOURCE is non-nil, get the property on that window instead of from
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4498 FRAME. The number 0 denotes the root window.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4499 If DELETE_P is non-nil, delete the property after retreiving it.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4500 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4501
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4502 Value is nil if FRAME hasn't a property with name PROP or if PROP has
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4503 no value of TYPE. */)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4504 (prop, frame, type, source, delete_p, vector_ret_p)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4505 Lisp_Object prop, frame, type, source, delete_p, vector_ret_p;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4506 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4507 struct frame *f = check_x_frame (frame);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4508 Atom prop_atom;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4509 int rc;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4510 Lisp_Object prop_value = Qnil;
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
4511 unsigned char *tmp_data = NULL;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4512 Atom actual_type;
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4513 Atom target_type = XA_STRING;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4514 int actual_format;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4515 unsigned long actual_size, bytes_remaining;
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4516 Window target_window = FRAME_X_WINDOW (f);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4517 struct gcpro gcpro1;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4518
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4519 GCPRO1 (prop_value);
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
4520 CHECK_STRING (prop);
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4521
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4522 if (! NILP (source))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4523 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4524 if (NUMBERP (source))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4525 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4526 if (FLOATP (source))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4527 target_window = (Window) XFLOAT (source);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4528 else
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4529 target_window = XFASTINT (source);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4530
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4531 if (target_window == 0)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4532 target_window = FRAME_X_DISPLAY_INFO (f)->root_window;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4533 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4534 else if (CONSP (source))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4535 target_window = cons_to_long (source);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4536 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4537
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4538 BLOCK_INPUT;
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4539 if (STRINGP (type))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4540 {
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4541 if (strcmp ("AnyPropertyType", SDATA (type)) == 0)
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4542 target_type = AnyPropertyType;
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4543 else
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4544 target_type = XInternAtom (FRAME_X_DISPLAY (f), SDATA (type), False);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4545 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4546
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
4547 prop_atom = XInternAtom (FRAME_X_DISPLAY (f), SDATA (prop), False);
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4548 rc = XGetWindowProperty (FRAME_X_DISPLAY (f), target_window,
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4549 prop_atom, 0, 0, False, target_type,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4550 &actual_type, &actual_format, &actual_size,
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
4551 &bytes_remaining, &tmp_data);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4552 if (rc == Success)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4553 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4554 int size = bytes_remaining;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4555
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4556 XFree (tmp_data);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4557 tmp_data = NULL;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4558
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4559 rc = XGetWindowProperty (FRAME_X_DISPLAY (f), target_window,
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4560 prop_atom, 0, bytes_remaining,
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4561 ! NILP (delete_p), target_type,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4562 &actual_type, &actual_format,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4563 &actual_size, &bytes_remaining,
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
4564 &tmp_data);
39277
df33715cdcf8 (Fx_window_property): Handle case that property gets
Gerd Moellmann <gerd@gnu.org>
parents: 39159
diff changeset
4565 if (rc == Success && tmp_data)
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4566 {
59976
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4567 /* The man page for XGetWindowProperty says:
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4568 "If the returned format is 32, the returned data is represented
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4569 as a long array and should be cast to that type to obtain the
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4570 elements."
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4571 This applies even if long is more than 32 bits, the X library
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4572 converts from 32 bit elements received from the X server to long
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4573 and passes the long array to us. Thus, for that case bcopy can not
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4574 be used. We convert to a 32 bit type here, because so much code
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4575 assume on that.
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4576
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4577 The bytes and offsets passed to XGetWindowProperty refers to the
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4578 property and those are indeed in 32 bit quantities if format is
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4579 32. */
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4580
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4581 if (actual_format == 32 && actual_format < BITS_PER_LONG)
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4582 {
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4583 unsigned long i;
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4584 int *idata = (int *) tmp_data;
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4585 long *ldata = (long *) tmp_data;
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4586
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4587 for (i = 0; i < actual_size; ++i)
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
4588 idata[i] = (int) ldata[i];
59976
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4589 }
10ab4fe55163 * xfns.c (Fx_change_window_property): Use long array when format is 32.
Jan Djärv <jan.h.d@swipnet.se>
parents: 59974
diff changeset
4590
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4591 if (NILP (vector_ret_p))
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4592 prop_value = make_string (tmp_data, size);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4593 else
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4594 prop_value = x_property_data_to_lisp (f,
60133
cfda6afe9273 (hack_wm_protocols): Use correct type for last parameter
Andreas Schwab <schwab@suse.de>
parents: 59980
diff changeset
4595 tmp_data,
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4596 actual_type,
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4597 actual_format,
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4598 actual_size);
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4599 }
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4600
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4601 if (tmp_data) XFree (tmp_data);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4602 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4603
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4604 UNBLOCK_INPUT;
53787
b8e5f3d01bb6 * xfns.c (x-send-client-message): Moved to xselect.c
Jan Djärv <jan.h.d@swipnet.se>
parents: 53335
diff changeset
4605 UNGCPRO;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4606 return prop_value;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4607 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4608
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4609
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4610
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4611 /***********************************************************************
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4612 Busy cursor
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4613 ***********************************************************************/
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4614
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4615 /* If non-null, an asynchronous timer that, when it expires, displays
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4616 an hourglass cursor on all frames. */
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4617
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4618 static struct atimer *hourglass_atimer;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4619
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4620 /* Non-zero means an hourglass cursor is currently shown. */
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4621
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4622 static int hourglass_shown_p;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4623
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4624 /* Number of seconds to wait before displaying an hourglass cursor. */
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4625
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4626 static Lisp_Object Vhourglass_delay;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4627
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4628 /* Default number of seconds to wait before displaying an hourglass
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4629 cursor. */
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4630
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4631 #define DEFAULT_HOURGLASS_DELAY 1
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4632
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4633 /* Function prototypes. */
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4634
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4635 static void show_hourglass P_ ((struct atimer *));
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4636 static void hide_hourglass P_ ((void));
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4637
60555
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4638 /* Return non-zero if houglass timer has been started or hourglass is shown. */
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4639
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4640 int
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4641 hourglass_started ()
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4642 {
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4643 return hourglass_shown_p || hourglass_atimer != NULL;
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4644 }
2895b0a63b0e * xfns.c (hourglass_started): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 60133
diff changeset
4645
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4646
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4647 /* Cancel a currently active hourglass timer, and start a new one. */
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4648
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4649 void
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4650 start_hourglass ()
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4651 {
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4652 EMACS_TIME delay;
27915
e5b8e194d279 (start_busy_cursor): Allow floats for busy-cursor-delay.
Gerd Moellmann <gerd@gnu.org>
parents: 27902
diff changeset
4653 int secs, usecs = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4654
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4655 cancel_hourglass ();
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4656
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4657 if (INTEGERP (Vhourglass_delay)
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4658 && XINT (Vhourglass_delay) > 0)
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4659 secs = XFASTINT (Vhourglass_delay);
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4660 else if (FLOATP (Vhourglass_delay)
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4661 && XFLOAT_DATA (Vhourglass_delay) > 0)
27915
e5b8e194d279 (start_busy_cursor): Allow floats for busy-cursor-delay.
Gerd Moellmann <gerd@gnu.org>
parents: 27902
diff changeset
4662 {
e5b8e194d279 (start_busy_cursor): Allow floats for busy-cursor-delay.
Gerd Moellmann <gerd@gnu.org>
parents: 27902
diff changeset
4663 Lisp_Object tem;
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4664 tem = Ftruncate (Vhourglass_delay, Qnil);
27915
e5b8e194d279 (start_busy_cursor): Allow floats for busy-cursor-delay.
Gerd Moellmann <gerd@gnu.org>
parents: 27902
diff changeset
4665 secs = XFASTINT (tem);
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4666 usecs = (XFLOAT_DATA (Vhourglass_delay) - secs) * 1000000;
27915
e5b8e194d279 (start_busy_cursor): Allow floats for busy-cursor-delay.
Gerd Moellmann <gerd@gnu.org>
parents: 27902
diff changeset
4667 }
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4668 else
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4669 secs = DEFAULT_HOURGLASS_DELAY;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4670
27915
e5b8e194d279 (start_busy_cursor): Allow floats for busy-cursor-delay.
Gerd Moellmann <gerd@gnu.org>
parents: 27902
diff changeset
4671 EMACS_SET_SECS_USECS (delay, secs, usecs);
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4672 hourglass_atimer = start_atimer (ATIMER_RELATIVE, delay,
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4673 show_hourglass, NULL);
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4674 }
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4675
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4676
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4677 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4678 shown. */
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4679
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4680 void
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4681 cancel_hourglass ()
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4682 {
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4683 if (hourglass_atimer)
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4684 {
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4685 cancel_atimer (hourglass_atimer);
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4686 hourglass_atimer = NULL;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4687 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4688
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4689 if (hourglass_shown_p)
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4690 hide_hourglass ();
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4691 }
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4692
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4693
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4694 /* Timer function of hourglass_atimer. TIMER is equal to
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4695 hourglass_atimer.
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4696
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4697 Display an hourglass pointer on all frames by mapping the frames'
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4698 hourglass_window. Set the hourglass_p flag in the frames'
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4699 output_data.x structure to indicate that an hourglass cursor is
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4700 shown on the frames. */
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4701
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4702 static void
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4703 show_hourglass (timer)
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4704 struct atimer *timer;
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4705 {
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4706 /* The timer implementation will cancel this timer automatically
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4707 after this function has run. Set hourglass_atimer to null
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4708 so that we know the timer doesn't have to be canceled. */
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4709 hourglass_atimer = NULL;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4710
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4711 if (!hourglass_shown_p)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4712 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4713 Lisp_Object rest, frame;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4714
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4715 BLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4716
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4717 FOR_EACH_FRAME (rest, frame)
34662
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4718 {
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4719 struct frame *f = XFRAME (frame);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4720
34662
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4721 if (FRAME_LIVE_P (f) && FRAME_X_P (f) && FRAME_X_DISPLAY (f))
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4722 {
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4723 Display *dpy = FRAME_X_DISPLAY (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4724
34662
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4725 #ifdef USE_X_TOOLKIT
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4726 if (f->output_data.x->widget)
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4727 #else
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4728 if (FRAME_OUTER_WINDOW (f))
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4729 #endif
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4730 {
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4731 f->output_data.x->hourglass_p = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4732
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4733 if (!f->output_data.x->hourglass_window)
34662
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4734 {
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4735 unsigned long mask = CWCursor;
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4736 XSetWindowAttributes attrs;
59789
97d17acaf4e7 * xfns.c (show_hourglass): Use FRAME_X_WINDOW as parent for GTK,
Jan Djärv <jan.h.d@swipnet.se>
parents: 59102
diff changeset
4737 #ifdef USE_GTK
97d17acaf4e7 * xfns.c (show_hourglass): Use FRAME_X_WINDOW as parent for GTK,
Jan Djärv <jan.h.d@swipnet.se>
parents: 59102
diff changeset
4738 Window parent = FRAME_X_WINDOW (f);
97d17acaf4e7 * xfns.c (show_hourglass): Use FRAME_X_WINDOW as parent for GTK,
Jan Djärv <jan.h.d@swipnet.se>
parents: 59102
diff changeset
4739 #else
97d17acaf4e7 * xfns.c (show_hourglass): Use FRAME_X_WINDOW as parent for GTK,
Jan Djärv <jan.h.d@swipnet.se>
parents: 59102
diff changeset
4740 Window parent = FRAME_OUTER_WINDOW (f);
97d17acaf4e7 * xfns.c (show_hourglass): Use FRAME_X_WINDOW as parent for GTK,
Jan Djärv <jan.h.d@swipnet.se>
parents: 59102
diff changeset
4741 #endif
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4742 attrs.cursor = f->output_data.x->hourglass_cursor;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4743
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4744 f->output_data.x->hourglass_window
59789
97d17acaf4e7 * xfns.c (show_hourglass): Use FRAME_X_WINDOW as parent for GTK,
Jan Djärv <jan.h.d@swipnet.se>
parents: 59102
diff changeset
4745 = XCreateWindow (dpy, parent,
34662
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4746 0, 0, 32000, 32000, 0, 0,
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4747 InputOnly,
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4748 CopyFromParent,
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4749 mask, &attrs);
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4750 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4751
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4752 XMapRaised (dpy, f->output_data.x->hourglass_window);
34662
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4753 XFlush (dpy);
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4754 }
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4755 }
d8005f5e0a23 (show_busy_cursor): Check for live frames more
Gerd Moellmann <gerd@gnu.org>
parents: 34638
diff changeset
4756 }
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4757
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4758 hourglass_shown_p = 1;
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4759 UNBLOCK_INPUT;
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4760 }
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4761 }
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4762
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4763
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4764 /* Hide the hourglass pointer on all frames, if it is currently
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4765 shown. */
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4766
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4767 static void
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4768 hide_hourglass ()
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4769 {
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4770 if (hourglass_shown_p)
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4771 {
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4772 Lisp_Object rest, frame;
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4773
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4774 BLOCK_INPUT;
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4775 FOR_EACH_FRAME (rest, frame)
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4776 {
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4777 struct frame *f = XFRAME (frame);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4778
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4779 if (FRAME_X_P (f)
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4780 /* Watch out for newly created frames. */
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4781 && f->output_data.x->hourglass_window)
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4782 {
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4783 XUnmapWindow (FRAME_X_DISPLAY (f),
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4784 f->output_data.x->hourglass_window);
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4785 /* Sync here because XTread_socket looks at the
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4786 hourglass_p flag that is reset to zero below. */
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4787 XSync (FRAME_X_DISPLAY (f), False);
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4788 f->output_data.x->hourglass_p = 0;
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4789 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4790 }
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4791
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
4792 hourglass_shown_p = 0;
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4793 UNBLOCK_INPUT;
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
4794 }
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4795 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4796
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4797
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4798
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4799 /***********************************************************************
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4800 Tool tips
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4801 ***********************************************************************/
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4802
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4803 static Lisp_Object x_create_tip_frame P_ ((struct x_display_info *,
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4804 Lisp_Object, Lisp_Object));
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4805 static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object,
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
4806 Lisp_Object, int, int, int *, int *));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4807
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
4808 /* The frame of a currently visible tooltip. */
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
4809
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
4810 Lisp_Object tip_frame;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4811
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4812 /* If non-nil, a timer started that hides the last tooltip when it
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4813 fires. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4814
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4815 Lisp_Object tip_timer;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4816 Window tip_window;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4817
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4818 /* If non-nil, a vector of 3 elements containing the last args
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4819 with which x-show-tip was called. See there. */
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4820
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4821 Lisp_Object last_show_tip_args;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4822
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
4823 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
4824
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
4825 Lisp_Object Vx_max_tooltip_size;
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
4826
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4827
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4828 static Lisp_Object
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4829 unwind_create_tip_frame (frame)
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4830 Lisp_Object frame;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4831 {
34638
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4832 Lisp_Object deleted;
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4833
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4834 deleted = unwind_create_frame (frame);
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4835 if (EQ (deleted, Qt))
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4836 {
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4837 tip_window = None;
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4838 tip_frame = Qnil;
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4839 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4840
34638
abb4510a89f6 (unwind_create_frame): Return t if frame was deleted.
Gerd Moellmann <gerd@gnu.org>
parents: 34598
diff changeset
4841 return deleted;
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4842 }
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4843
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4844
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4845 /* Create a frame for a tooltip on the display described by DPYINFO.
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4846 PARMS is a list of frame parameters. TEXT is the string to
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4847 display in the tip frame. Value is the frame.
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4848
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4849 Note that functions called here, esp. x_default_parameter can
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4850 signal errors, for instance when a specified color name is
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4851 undefined. We have to make sure that we're in a consistent state
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4852 when this happens. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4853
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4854 static Lisp_Object
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4855 x_create_tip_frame (dpyinfo, parms, text)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4856 struct x_display_info *dpyinfo;
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4857 Lisp_Object parms, text;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4858 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4859 struct frame *f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4860 Lisp_Object frame, tem;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4861 Lisp_Object name;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4862 long window_prompting = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4863 int width, height;
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45968
diff changeset
4864 int count = SPECPDL_INDEX ();
25715
feaedc03dbc8 (x_set_background_color): Remove unused variable(s).
Gerd Moellmann <gerd@gnu.org>
parents: 25691
diff changeset
4865 struct gcpro gcpro1, gcpro2, gcpro3;
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
4866 int face_change_count_before = face_change_count;
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4867 Lisp_Object buffer;
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4868 struct buffer *old_buffer;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4869
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4870 check_x ();
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4871
84685
502394270fc6 (x_delete_terminal): Use terminal->name as liveness status.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83760
diff changeset
4872 if (!dpyinfo->terminal->name)
502394270fc6 (x_delete_terminal): Use terminal->name as liveness status.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83760
diff changeset
4873 error ("Terminal is not live, can't create new frames on it");
83525
b2e7507b55c6 Fix C-x 5 2 on the controlling tty; fix some possible crash conditions and a memory leak.
Karoly Lorentey <lorentey@elte.hu>
parents: 83505
diff changeset
4874
69404
26f292c725f1 (x_create_tip_frame): Preserve received parms by copying them.
Eli Zaretskii <eliz@gnu.org>
parents: 69173
diff changeset
4875 parms = Fcopy_alist (parms);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4876
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4877 /* Get the name of the frame to use for resource lookup. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4878 name = x_get_arg (dpyinfo, parms, Qname, "name", "Name", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4879 if (!STRINGP (name)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4880 && !EQ (name, Qunbound)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4881 && !NILP (name))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4882 error ("Invalid frame name--not a string or nil");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4883
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4884 frame = Qnil;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4885 GCPRO3 (parms, name, frame);
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
4886 f = make_frame (1);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4887 XSETFRAME (frame, f);
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4888
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4889 buffer = Fget_buffer_create (build_string (" *tip*"));
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
4890 Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil);
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4891 old_buffer = current_buffer;
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4892 set_buffer_internal_1 (XBUFFER (buffer));
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
4893 current_buffer->truncate_lines = Qnil;
55492
43663119f752 (x_create_tip_frame): Bind inhibit-read-only and
Kenichi Handa <handa@m17n.org>
parents: 54392
diff changeset
4894 specbind (Qinhibit_read_only, Qt);
43663119f752 (x_create_tip_frame): Bind inhibit-read-only and
Kenichi Handa <handa@m17n.org>
parents: 54392
diff changeset
4895 specbind (Qinhibit_modification_hooks, Qt);
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4896 Ferase_buffer ();
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4897 Finsert (1, &text);
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
4898 set_buffer_internal_1 (old_buffer);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4899
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4900 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
34598
afd90be3ed75 (x_create_tip_frame): Use unwind_create_tip_frame,
Gerd Moellmann <gerd@gnu.org>
parents: 34549
diff changeset
4901 record_unwind_protect (unwind_create_tip_frame, frame);
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4902
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4903 f->terminal = dpyinfo->terminal;
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83429
diff changeset
4904 f->terminal->reference_count++;
82990
2ecd1f669db9 Fixed X support, preliminary support for X-tty combo sessions.
Karoly Lorentey <lorentey@elte.hu>
parents: 53339
diff changeset
4905
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4906 /* By setting the output method, we're essentially saying that
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4907 the frame is live, as per FRAME_LIVE_P. If we get a signal
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4908 from this point on, x_destroy_window might screw up reference
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4909 counts etc. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4910 f->output_method = output_x_window;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4911 f->output_data.x = (struct x_output *) xmalloc (sizeof (struct x_output));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4912 bzero (f->output_data.x, sizeof (struct x_output));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4913 f->output_data.x->icon_bitmap = -1;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
4914 FRAME_FONTSET (f) = -1;
29882
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4915 f->output_data.x->scroll_bar_foreground_pixel = -1;
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4916 f->output_data.x->scroll_bar_background_pixel = -1;
39619
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
4917 #ifdef USE_TOOLKIT_SCROLL_BARS
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
4918 f->output_data.x->scroll_bar_top_shadow_pixel = -1;
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
4919 f->output_data.x->scroll_bar_bottom_shadow_pixel = -1;
1e12db2b25f0 (x_set_scroll_bar_background) [USE_TOOLKIT_SCROLL_BARS]:
Miles Bader <miles@gnu.org>
parents: 39591
diff changeset
4920 #endif /* USE_TOOLKIT_SCROLL_BARS */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4921 f->icon_name = Qnil;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4922 FRAME_X_DISPLAY_INFO (f) = dpyinfo;
34895
53e52b3525bf Use #if GLYPH_DEBUG instead of #ifdef GLYPH_DEBUG.
Gerd Moellmann <gerd@gnu.org>
parents: 34662
diff changeset
4923 #if GLYPH_DEBUG
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4924 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4925 dpyinfo_refcount = dpyinfo->reference_count;
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
4926 #endif /* GLYPH_DEBUG */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4927 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4928 f->output_data.x->explicit_parent = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4929
29882
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4930 /* These colors will be set anyway later, but it's important
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4931 to get the color reference counts right, so initialize them! */
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4932 {
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4933 Lisp_Object black;
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4934 struct gcpro gcpro1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
4935
83234
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4936 /* Function x_decode_color can signal an error. Make
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4937 sure to initialize color slots so that we won't try
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4938 to free colors we haven't allocated. */
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
4939 FRAME_FOREGROUND_PIXEL (f) = -1;
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
4940 FRAME_BACKGROUND_PIXEL (f) = -1;
83234
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4941 f->output_data.x->cursor_pixel = -1;
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4942 f->output_data.x->cursor_foreground_pixel = -1;
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4943 f->output_data.x->border_pixel = -1;
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4944 f->output_data.x->mouse_pixel = -1;
ad592995fd24 Trivial changes in x_create_tip_frame.
Karoly Lorentey <lorentey@elte.hu>
parents: 83231
diff changeset
4945
29882
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4946 black = build_string ("black");
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4947 GCPRO1 (black);
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
4948 FRAME_FOREGROUND_PIXEL (f)
29882
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4949 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
83504
7aa43f830ce4 Fix tooltip border color.
Karoly Lorentey <lorentey@elte.hu>
parents: 83502
diff changeset
4950 FRAME_BACKGROUND_PIXEL (f)
29882
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4951 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4952 f->output_data.x->cursor_pixel
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4953 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4954 f->output_data.x->cursor_foreground_pixel
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4955 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4956 f->output_data.x->border_pixel
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4957 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4958 f->output_data.x->mouse_pixel
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4959 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4960 UNGCPRO;
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4961 }
c12b0f070cd1 (x_create_tip_frame): Initialize frame's colors like
Gerd Moellmann <gerd@gnu.org>
parents: 29866
diff changeset
4962
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4963 /* Set the name; the functions to which we pass f expect the name to
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4964 be set. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4965 if (EQ (name, Qunbound) || NILP (name))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4966 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4967 f->name = build_string (dpyinfo->x_id_name);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4968 f->explicit_name = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4969 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4970 else
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4971 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4972 f->name = name;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4973 f->explicit_name = 1;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4974 /* use the frame's title when getting resources for this frame. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4975 specbind (Qx_resource_name, name);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4976 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
4977
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4978 f->resx = dpyinfo->resx;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4979 f->resy = dpyinfo->resy;
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4980
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4981 #ifdef USE_FONT_BACKEND
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4982 if (enable_font_backend)
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4983 {
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4984 /* Perhaps, we must allow frame parameter, say `font-backend',
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4985 to specify which font backends to use. */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4986 #ifdef HAVE_FREETYPE
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4987 #ifdef HAVE_XFT
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4988 register_font_driver (&xftfont_driver, f);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4989 #else /* not HAVE_XFT */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4990 register_font_driver (&ftxfont_driver, f);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4991 #endif /* not HAVE_XFT */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4992 #endif /* HAVE_FREETYPE */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4993 register_font_driver (&xfont_driver, f);
90551
26d91844482a (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90546
diff changeset
4994
26d91844482a (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90546
diff changeset
4995 x_default_parameter (f, parms, Qfont_backend, Qnil,
26d91844482a (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90546
diff changeset
4996 "fontBackend", "FontBackend", RES_TYPE_STRING);
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4997 }
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4998 #endif /* USE_FONT_BACKEND */
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
4999
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
5000 /* Extract the window parameters from the supplied values that are
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
5001 needed to determine window geometry. */
90423
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
5002 #ifdef USE_FONT_BACKEND
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
5003 if (enable_font_backend)
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
5004 x_default_font_parameter (f, parms);
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
5005 else
654ff3b48a81 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90376
diff changeset
5006 #endif /* USE_FONT_BACKEND */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5007 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5008 Lisp_Object font;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5009
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5010 font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5011
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5012 BLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5013 /* First, try whatever font the caller has specified. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5014 if (STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5015 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5016 tem = Fquery_fontset (font, Qnil);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5017 if (STRINGP (tem))
89352
ffa18ef18e45 (x_set_font, x_create_tip_frame): Adjusted to the change
Kenichi Handa <handa@m17n.org>
parents: 89145
diff changeset
5018 font = x_new_fontset (f, tem);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5019 else
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
5020 font = x_new_font (f, SDATA (font));
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5021 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5022
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5023 /* Try out a font which we hope has bold and italic variations. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5024 if (!STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5025 font = x_new_font (f, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5026 if (!STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5027 font = x_new_font (f, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5028 if (! STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5029 font = x_new_font (f, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5030 if (! STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5031 /* This was formerly the first thing tried, but it finds too many fonts
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5032 and takes too long. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5033 font = x_new_font (f, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5034 /* If those didn't work, look for something which will at least work. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5035 if (! STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5036 font = x_new_font (f, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5037 UNBLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5038 if (! STRINGP (font))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5039 font = build_string ("fixed");
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5040
90519
138ce2701550 Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 90462 71577
diff changeset
5041 x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5042 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5043
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5044 x_default_parameter (f, parms, Qborder_width, make_number (2),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5045 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5046
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5047 /* This defaults to 2 in order to match xterm. We recognize either
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5048 internalBorderWidth or internalBorder (which is what xterm calls
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5049 it). */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5050 if (NILP (Fassq (Qinternal_border_width, parms)))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5051 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5052 Lisp_Object value;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5053
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5054 value = x_get_arg (dpyinfo, parms, Qinternal_border_width,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5055 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5056 if (! EQ (value, Qunbound))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5057 parms = Fcons (Fcons (Qinternal_border_width, value),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5058 parms);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5059 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5060
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5061 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5062 "internalBorderWidth", "internalBorderWidth",
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5063 RES_TYPE_NUMBER);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5064
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5065 /* Also do the stuff which must be set before the window exists. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5066 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5067 "foreground", "Foreground", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5068 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5069 "background", "Background", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5070 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5071 "pointerColor", "Foreground", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5072 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5073 "cursorColor", "Foreground", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5074 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5075 "borderColor", "BorderColor", RES_TYPE_STRING);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5076
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5077 /* Init faces before x_default_parameter is called for scroll-bar
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5078 parameters because that function calls x_set_scroll_bar_width,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5079 which calls change_frame_size, which calls Fset_window_buffer,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5080 which runs hooks, which call Fvertical_motion. At the end, we
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5081 end up in init_iterator with a null face cache, which should not
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5082 happen. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5083 init_frame_faces (f);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5084
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5085 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5086
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5087 window_prompting = x_figure_window_size (f, parms, 0);
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5088
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5089 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5090 XSetWindowAttributes attrs;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5091 unsigned long mask;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5092
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5093 BLOCK_INPUT;
33657
e9cf01c7cda6 (x_create_tip_frame): Use CWSaveUnder only if the
Gerd Moellmann <gerd@gnu.org>
parents: 33601
diff changeset
5094 mask = CWBackPixel | CWOverrideRedirect | CWEventMask;
e9cf01c7cda6 (x_create_tip_frame): Use CWSaveUnder only if the
Gerd Moellmann <gerd@gnu.org>
parents: 33601
diff changeset
5095 if (DoesSaveUnders (dpyinfo->screen))
e9cf01c7cda6 (x_create_tip_frame): Use CWSaveUnder only if the
Gerd Moellmann <gerd@gnu.org>
parents: 33601
diff changeset
5096 mask |= CWSaveUnder;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5097
27987
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
5098 /* Window managers look at the override-redirect flag to determine
ce9edc646960 (x_defined_color, x_set_mouse_color, lookup_rgb_color)
Gerd Moellmann <gerd@gnu.org>
parents: 27963
diff changeset
5099 whether or net to give windows a decoration (Xlib spec, chapter
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5100 3.2.8). */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5101 attrs.override_redirect = True;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5102 attrs.save_under = True;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5103 attrs.background_pixel = FRAME_BACKGROUND_PIXEL (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5104 /* Arrange for getting MapNotify and UnmapNotify events. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5105 attrs.event_mask = StructureNotifyMask;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5106 tip_window
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5107 = FRAME_X_WINDOW (f)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5108 = XCreateWindow (FRAME_X_DISPLAY (f),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5109 FRAME_X_DISPLAY_INFO (f)->root_window,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5110 /* x, y, width, height */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5111 0, 0, 1, 1,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5112 /* Border. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5113 1,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5114 CopyFromParent, InputOutput, CopyFromParent,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5115 mask, &attrs);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5116 UNBLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5117 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5118
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5119 x_make_gc (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5120
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5121 x_default_parameter (f, parms, Qauto_raise, Qnil,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5122 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5123 x_default_parameter (f, parms, Qauto_lower, Qnil,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5124 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5125 x_default_parameter (f, parms, Qcursor_type, Qbox,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5126 "cursorType", "CursorType", RES_TYPE_SYMBOL);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5127
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5128 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5129 Change will not be effected unless different from the current
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5130 FRAME_LINES (f). */
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5131 width = FRAME_COLS (f);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5132 height = FRAME_LINES (f);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5133 SET_FRAME_COLS (f, 0);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5134 FRAME_LINES (f) = 0;
25363
bf0488244270 Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25335
diff changeset
5135 change_frame_size (f, height, width, 1, 0, 0);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5136
47731
755c4233cfba * frame.c (Vdelete_frame_functions): New variable.
John Paul Wallington <jpw@pobox.com>
parents: 47434
diff changeset
5137 /* Add `tooltip' frame parameter's default value. */
755c4233cfba * frame.c (Vdelete_frame_functions): New variable.
John Paul Wallington <jpw@pobox.com>
parents: 47434
diff changeset
5138 if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
755c4233cfba * frame.c (Vdelete_frame_functions): New variable.
John Paul Wallington <jpw@pobox.com>
parents: 47434
diff changeset
5139 Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
755c4233cfba * frame.c (Vdelete_frame_functions): New variable.
John Paul Wallington <jpw@pobox.com>
parents: 47434
diff changeset
5140 Qnil));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5141
79079
1e0460efd25e *** empty log message ***
Glenn Morris <rgm@gnu.org>
parents: 79076
diff changeset
5142 /* FIXME - can this be done in a similar way to normal frames?
1e0460efd25e *** empty log message ***
Glenn Morris <rgm@gnu.org>
parents: 79076
diff changeset
5143 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
1e0460efd25e *** empty log message ***
Glenn Morris <rgm@gnu.org>
parents: 79076
diff changeset
5144
79076
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5145 /* Set the `display-type' frame parameter before setting up faces. */
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5146 {
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5147 Lisp_Object disptype;
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5148
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5149 if (FRAME_X_DISPLAY_INFO (f)->n_planes == 1)
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5150 disptype = intern ("mono");
79085
1ac5ff9d4bd4 Line break fix.
Richard M. Stallman <rms@gnu.org>
parents: 79079
diff changeset
5151 else if (FRAME_X_DISPLAY_INFO (f)->visual->class == GrayScale
1ac5ff9d4bd4 Line break fix.
Richard M. Stallman <rms@gnu.org>
parents: 79079
diff changeset
5152 || FRAME_X_DISPLAY_INFO (f)->visual->class == StaticGray)
79076
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5153 disptype = intern ("grayscale");
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5154 else
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5155 disptype = intern ("color");
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5156
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5157 if (NILP (Fframe_parameter (frame, Qdisplay_type)))
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5158 Fmodify_frame_parameters (frame, Fcons (Fcons (Qdisplay_type, disptype),
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5159 Qnil));
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5160 }
9dd45fcaa2f0 John Paul Wallington <jpw at pobox.com>
Glenn Morris <rgm@gnu.org>
parents: 79055
diff changeset
5161
35042
3088c9745e92 (x_create_tip_frame): Call face-set-after-frame-default,
Gerd Moellmann <gerd@gnu.org>
parents: 34976
diff changeset
5162 /* Set up faces after all frame parameters are known. This call
35508
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5163 also merges in face attributes specified for new frames.
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5164
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5165 Frame parameters may be changed if .Xdefaults contains
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5166 specifications for the default font. For example, if there is an
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5167 `Emacs.default.attributeBackground: pink', the `background-color'
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5168 attribute of the frame get's set, which let's the internal border
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5169 of the tooltip frame appear in pink. Prevent this. */
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5170 {
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5171 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5172
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5173 /* Set tip_frame here, so that */
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5174 tip_frame = frame;
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5175 call1 (Qface_set_after_frame_default, frame);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5176
35508
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5177 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5178 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5179 Qnil));
0bd627ce1af8 (x_create_tip_frame): Prevent changing the tooltip's
Gerd Moellmann <gerd@gnu.org>
parents: 35402
diff changeset
5180 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5181
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5182 f->no_split = 1;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5183
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5184 UNGCPRO;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5185
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5186 /* It is now ok to make the frame official even if we get an error
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5187 below. And the frame needs to be on Vframe_list or making it
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5188 visible won't work. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5189 Vframe_list = Fcons (frame, Vframe_list);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5190
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5191 /* Now that the frame is official, it counts as a reference to
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5192 its display. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5193 FRAME_X_DISPLAY_INFO (f)->reference_count++;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5194
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5195 /* Setting attributes of faces of the tooltip frame from resources
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5196 and similar will increment face_change_count, which leads to the
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5197 clearing of all current matrices. Since this isn't necessary
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5198 here, avoid it by resetting face_change_count to the value it
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5199 had before we created the tip frame. */
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5200 face_change_count = face_change_count_before;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5201
34524
d4b8782e7f7b (image_cache_refcount, dpyinfo_refcount) [GLYPH_DEBUG]:
Gerd Moellmann <gerd@gnu.org>
parents: 34512
diff changeset
5202 /* Discard the unwind_protect. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5203 return unbind_to (count, frame);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5204 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5205
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5206
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5207 /* Compute where to display tip frame F. PARMS is the list of frame
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5208 parameters for F. DX and DY are specified offsets from the current
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5209 location of the mouse. WIDTH and HEIGHT are the width and height
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5210 of the tooltip. Return coordinates relative to the root window of
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5211 the display in *ROOT_X, and *ROOT_Y. */
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5212
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5213 static void
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5214 compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5215 struct frame *f;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5216 Lisp_Object parms, dx, dy;
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5217 int width, height;
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5218 int *root_x, *root_y;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5219 {
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5220 Lisp_Object left, top;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5221 int win_x, win_y;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5222 Window root, child;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5223 unsigned pmask;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5224
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5225 /* User-specified position? */
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5226 left = Fcdr (Fassq (Qleft, parms));
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5227 top = Fcdr (Fassq (Qtop, parms));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5228
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5229 /* Move the tooltip window where the mouse pointer is. Resize and
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5230 show it. */
41449
4416668397d7 (compute_tip_xy): Initialize root_x and root_y from
Jason Rumney <jasonr@gnu.org>
parents: 41132
diff changeset
5231 if (!INTEGERP (left) || !INTEGERP (top))
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5232 {
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5233 BLOCK_INPUT;
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5234 XQueryPointer (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5235 &root, &child, root_x, root_y, &win_x, &win_y, &pmask);
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5236 UNBLOCK_INPUT;
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5237 }
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5238
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5239 if (INTEGERP (top))
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5240 *root_y = XINT (top);
67581
05d48e1da3ad * xfns.c (compute_tip_xy): Handle negative dx and dy.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67530
diff changeset
5241 else if (*root_y + XINT (dy) <= 0)
05d48e1da3ad * xfns.c (compute_tip_xy): Handle negative dx and dy.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67530
diff changeset
5242 *root_y = 0; /* Can happen for negative dy */
67530
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5243 else if (*root_y + XINT (dy) + height <= FRAME_X_DISPLAY_INFO (f)->height)
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5244 /* It fits below the pointer */
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5245 *root_y += XINT (dy);
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5246 else if (height + XINT (dy) <= *root_y)
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5247 /* It fits above the pointer. */
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5248 *root_y -= height + XINT (dy);
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5249 else
67530
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5250 /* Put it on the top. */
5b6c71adc503 * (compute_tip_xy): Calculate root_y the same way as root_x,
Jan Djärv <jan.h.d@swipnet.se>
parents: 67442
diff changeset
5251 *root_y = 0;
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5252
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5253 if (INTEGERP (left))
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5254 *root_x = XINT (left);
67581
05d48e1da3ad * xfns.c (compute_tip_xy): Handle negative dx and dy.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67530
diff changeset
5255 else if (*root_x + XINT (dx) <= 0)
05d48e1da3ad * xfns.c (compute_tip_xy): Handle negative dx and dy.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67530
diff changeset
5256 *root_x = 0; /* Can happen for negative dx */
42247
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5257 else if (*root_x + XINT (dx) + width <= FRAME_X_DISPLAY_INFO (f)->width)
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5258 /* It fits to the right of the pointer. */
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5259 *root_x += XINT (dx);
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5260 else if (width + XINT (dx) <= *root_x)
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5261 /* It fits to the left of the pointer. */
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5262 *root_x -= width + XINT (dx);
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5263 else
42247
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5264 /* Put it left-justified on the screen--it ought to fit that way. */
35dd407f04cd (compute_tip_xy): If tooltip won't fit on the screen
Richard M. Stallman <rms@gnu.org>
parents: 42123
diff changeset
5265 *root_x = 0;
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5266 }
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5267
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5268
30224
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5269 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5270 doc: /* Show STRING in a "tooltip" window on frame FRAME.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5271 A tooltip window is a small X window displaying a string.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5272
76700
742ee8b5b284 (Fx_show_tip): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
5273 This is an internal function; Lisp code should call `tooltip-show'.
742ee8b5b284 (Fx_show_tip): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 75348
diff changeset
5274
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5275 FRAME nil or omitted means use the selected frame.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5276
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5277 PARMS is an optional list of frame parameters which can be used to
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5278 change the tooltip's appearance.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5279
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5280 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5281 means use the default timeout of 5 seconds.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5282
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5283 If the list of frame parameters PARAMS contains a `left' parameters,
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5284 the tooltip is displayed at that x-position. Otherwise it is
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5285 displayed at the mouse position, with offset DX added (default is 5 if
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5286 DX isn't specified). Likewise for the y-position; if a `top' frame
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5287 parameter is specified, it determines the y-position of the tooltip
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5288 window, otherwise it is displayed at the mouse position, with offset
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5289 DY added (default is -10).
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5290
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5291 A tooltip's maximum size is specified by `x-max-tooltip-size'.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5292 Text larger than the specified size is clipped. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5293 (string, frame, parms, timeout, dx, dy)
30224
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5294 Lisp_Object string, frame, parms, timeout, dx, dy;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5295 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5296 struct frame *f;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5297 struct window *w;
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5298 int root_x, root_y;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5299 struct buffer *old_buffer;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5300 struct text_pos pos;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5301 int i, width, height;
26980
f0d5e95ccce9 (Fx_show_tip): Gcpro `timeout' too.
Dave Love <fx@gnu.org>
parents: 26978
diff changeset
5302 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5303 int old_windows_or_buffers_changed = windows_or_buffers_changed;
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45968
diff changeset
5304 int count = SPECPDL_INDEX ();
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5305
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5306 specbind (Qinhibit_redisplay, Qt);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5307
26980
f0d5e95ccce9 (Fx_show_tip): Gcpro `timeout' too.
Dave Love <fx@gnu.org>
parents: 26978
diff changeset
5308 GCPRO4 (string, parms, frame, timeout);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5309
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
5310 CHECK_STRING (string);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5311 f = check_x_frame (frame);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5312 if (NILP (timeout))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5313 timeout = make_number (5);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5314 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
5315 CHECK_NATNUM (timeout);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5316
30224
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5317 if (NILP (dx))
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5318 dx = make_number (5);
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5319 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
5320 CHECK_NUMBER (dx);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5321
30224
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5322 if (NILP (dy))
33589
5832e9020859 (Fx_show_tip): Use default y-offset of -10 so that
Gerd Moellmann <gerd@gnu.org>
parents: 33443
diff changeset
5323 dy = make_number (-10);
30224
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5324 else
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
5325 CHECK_NUMBER (dy);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5326
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5327 if (NILP (last_show_tip_args))
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5328 last_show_tip_args = Fmake_vector (make_number (3), Qnil);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5329
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5330 if (!NILP (tip_frame))
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5331 {
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5332 Lisp_Object last_string = AREF (last_show_tip_args, 0);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5333 Lisp_Object last_frame = AREF (last_show_tip_args, 1);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5334 Lisp_Object last_parms = AREF (last_show_tip_args, 2);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5335
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5336 if (EQ (frame, last_frame)
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5337 && !NILP (Fequal (last_string, string))
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5338 && !NILP (Fequal (last_parms, parms)))
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5339 {
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5340 struct frame *f = XFRAME (tip_frame);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5341
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5342 /* Only DX and DY have changed. */
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5343 if (!NILP (tip_timer))
35402
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
5344 {
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
5345 Lisp_Object timer = tip_timer;
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
5346 tip_timer = Qnil;
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
5347 call1 (Qcancel_timer, timer);
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
5348 }
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5349
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5350 BLOCK_INPUT;
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5351 compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f),
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5352 FRAME_PIXEL_HEIGHT (f), &root_x, &root_y);
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5353 XMoveWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5354 root_x, root_y);
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5355 UNBLOCK_INPUT;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5356 goto start_timer;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5357 }
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5358 }
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5359
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5360 /* Hide a previous tip, if any. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5361 Fx_hide_tip ();
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5362
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5363 ASET (last_show_tip_args, 0, string);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5364 ASET (last_show_tip_args, 1, frame);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5365 ASET (last_show_tip_args, 2, parms);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5366
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5367 /* Add default values to frame parameters. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5368 if (NILP (Fassq (Qname, parms)))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5369 parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5370 if (NILP (Fassq (Qinternal_border_width, parms)))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5371 parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5372 if (NILP (Fassq (Qborder_width, parms)))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5373 parms = Fcons (Fcons (Qborder_width, make_number (1)), parms);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5374 if (NILP (Fassq (Qborder_color, parms)))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5375 parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5376 if (NILP (Fassq (Qbackground_color, parms)))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5377 parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5378 parms);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5379
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5380 /* Create a frame for the tooltip, and record it in the global
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5381 variable tip_frame. */
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
5382 frame = x_create_tip_frame (FRAME_X_DISPLAY_INFO (f), parms, string);
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5383 f = XFRAME (frame);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5384
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5385 /* Set up the frame's root window. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5386 w = XWINDOW (FRAME_ROOT_WINDOW (f));
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5387 w->left_col = w->top_line = make_number (0);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5388
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5389 if (CONSP (Vx_max_tooltip_size)
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5390 && INTEGERP (XCAR (Vx_max_tooltip_size))
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5391 && XINT (XCAR (Vx_max_tooltip_size)) > 0
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5392 && INTEGERP (XCDR (Vx_max_tooltip_size))
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5393 && XINT (XCDR (Vx_max_tooltip_size)) > 0)
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5394 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5395 w->total_cols = XCAR (Vx_max_tooltip_size);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5396 w->total_lines = XCDR (Vx_max_tooltip_size);
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5397 }
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5398 else
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5399 {
51211
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5400 w->total_cols = make_number (80);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5401 w->total_lines = make_number (40);
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5402 }
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5403
28ea05de2dc5 Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 51175
diff changeset
5404 FRAME_TOTAL_COLS (f) = XINT (w->total_cols);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5405 adjust_glyphs (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5406 w->pseudo_window_p = 1;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5407
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5408 /* Display the tooltip text in a temporary buffer. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5409 old_buffer = current_buffer;
36869
a9cbe17061fc (x_create_tip_frame): Add parameter TEXT. Set the
Gerd Moellmann <gerd@gnu.org>
parents: 36594
diff changeset
5410 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer));
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5411 current_buffer->truncate_lines = Qnil;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5412 clear_glyph_matrix (w->desired_matrix);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5413 clear_glyph_matrix (w->current_matrix);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5414 SET_TEXT_POS (pos, BEGV, BEGV_BYTE);
63772
b9edfe751512 (Fx_show_tip): Pass new arg to try_window.
Richard M. Stallman <rms@gnu.org>
parents: 62216
diff changeset
5415 try_window (FRAME_ROOT_WINDOW (f), pos, 0);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5416
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5417 /* Compute width and height of the tooltip. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5418 width = height = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5419 for (i = 0; i < w->desired_matrix->nrows; ++i)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5420 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5421 struct glyph_row *row = &w->desired_matrix->rows[i];
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5422 struct glyph *last;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5423 int row_width;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5424
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5425 /* Stop at the first empty row at the end. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5426 if (!row->enabled_p || !row->displays_text_p)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5427 break;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5428
25082
ba6bf065b287 (x_create_tip_frame): Don't set bitmapIcon resource.
Gerd Moellmann <gerd@gnu.org>
parents: 25075
diff changeset
5429 /* Let the row go over the full width of the frame. */
ba6bf065b287 (x_create_tip_frame): Don't set bitmapIcon resource.
Gerd Moellmann <gerd@gnu.org>
parents: 25075
diff changeset
5430 row->full_width_p = 1;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5431
28410
2812a333e746 (free_image_cache): Free the cache structure itself
Gerd Moellmann <gerd@gnu.org>
parents: 28355
diff changeset
5432 /* There's a glyph at the end of rows that is used to place
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5433 the cursor there. Don't include the width of this glyph. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5434 if (row->used[TEXT_AREA])
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5435 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5436 last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1];
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5437 row_width = row->pixel_width - last->pixel_width;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5438 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5439 else
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5440 row_width = row->pixel_width;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5441
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5442 height += row->height;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5443 width = max (width, row_width);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5444 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5445
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5446 /* Add the frame's internal border to the width and height the X
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5447 window should have. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5448 height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5449 width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5450
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5451 /* Move the tooltip window where the mouse pointer is. Resize and
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5452 show it. */
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5453 compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5454
30224
b9f781194989 (Fx_show_tip): If frame parameters contain a position,
Gerd Moellmann <gerd@gnu.org>
parents: 29947
diff changeset
5455 BLOCK_INPUT;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5456 XMoveResizeWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
37253
7c3a00620335 (compute_tip_xy): Add parameters WIDTH and HEIGHT.
Gerd Moellmann <gerd@gnu.org>
parents: 37210
diff changeset
5457 root_x, root_y, width, height);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5458 XMapRaised (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f));
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5459 UNBLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5460
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5461 /* Draw into the window. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5462 w->must_be_updated_p = 1;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5463 update_single_window (w, 1);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5464
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5465 /* Restore original current buffer. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5466 set_buffer_internal_1 (old_buffer);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5467 windows_or_buffers_changed = old_windows_or_buffers_changed;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5468
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
5469 start_timer:
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5470 /* Let the tip disappear after timeout seconds. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5471 tip_timer = call3 (intern ("run-at-time"), timeout, Qnil,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5472 intern ("x-hide-tip"));
26954
e388d69f4269 (Fx_show_tip): Add missing UNGCPRO.
Dave Love <fx@gnu.org>
parents: 26876
diff changeset
5473
e388d69f4269 (Fx_show_tip): Add missing UNGCPRO.
Dave Love <fx@gnu.org>
parents: 26876
diff changeset
5474 UNGCPRO;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5475 return unbind_to (count, Qnil);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5476 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5477
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5478
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5479 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5480 doc: /* Hide the current tooltip window, if there is any.
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5481 Value is t if tooltip was open, nil otherwise. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5482 ()
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5483 {
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5484 int count;
34476
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5485 Lisp_Object deleted, frame, timer;
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5486 struct gcpro gcpro1, gcpro2;
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5487
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5488 /* Return quickly if nothing to do. */
34476
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5489 if (NILP (tip_timer) && NILP (tip_frame))
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5490 return Qnil;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5491
34476
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5492 frame = tip_frame;
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5493 timer = tip_timer;
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5494 GCPRO2 (frame, timer);
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5495 tip_frame = tip_timer = deleted = Qnil;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5496
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45968
diff changeset
5497 count = SPECPDL_INDEX ();
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5498 specbind (Qinhibit_redisplay, Qt);
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5499 specbind (Qinhibit_quit, Qt);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5500
34476
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5501 if (!NILP (timer))
35402
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
5502 call1 (Qcancel_timer, timer);
34476
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5503
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5504 if (FRAMEP (frame))
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5505 {
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5506 Fdelete_frame (frame, Qnil);
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5507 deleted = Qt;
33713
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5508
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5509 #ifdef USE_LUCID
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5510 /* Bloodcurdling hack alert: The Lucid menu bar widget's
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5511 redisplay procedure is not called when a tip frame over menu
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5512 items is unmapped. Redisplay the menu manually... */
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5513 {
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5514 struct frame *f = SELECTED_FRAME ();
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5515 Widget w = f->output_data.x->menubar_widget;
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5516 extern void xlwmenu_redisplay P_ ((Widget));
39675
a4def4204419 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 39619
diff changeset
5517
33713
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5518 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f)->screen)
36441
861557fe5809 (Fx_hide_tip): Don't use `None' with widgets; use
Gerd Moellmann <gerd@gnu.org>
parents: 36252
diff changeset
5519 && w != NULL)
33713
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5520 {
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5521 BLOCK_INPUT;
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5522 xlwmenu_redisplay (w);
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5523 UNBLOCK_INPUT;
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5524 }
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5525 }
91b2daa9479f (Fx_hide_tip) [USE_LUCID]: Add a hack to redisplay
Gerd Moellmann <gerd@gnu.org>
parents: 33657
diff changeset
5526 #endif /* USE_LUCID */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5527 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5528
34476
329225ae6b61 (Fx_hide_tip): Simplified.
Gerd Moellmann <gerd@gnu.org>
parents: 34452
diff changeset
5529 UNGCPRO;
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
5530 return unbind_to (count, deleted);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5531 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5532
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5533
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5534
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5535 /***********************************************************************
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5536 File selection dialog
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5537 ***********************************************************************/
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5538
67761
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5539 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog,
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5540 Sx_uses_old_gtk_dialog,
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5541 0, 0, 0,
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5542 doc: /* Return t if the old Gtk+ file selection dialog is used. */)
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5543 ()
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5544 {
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5545 #ifdef USE_GTK
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5546 extern int use_dialog_box;
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5547 extern int use_file_dialog;
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5548
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5549 if (use_dialog_box
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5550 && use_file_dialog
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5551 && have_menus_p ()
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5552 && xg_uses_old_file_dialog ())
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5553 return Qt;
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5554 #endif
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5555 return Qnil;
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5556 }
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5557
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
5558
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5559 #ifdef USE_MOTIF
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5560 /* Callback for "OK" and "Cancel" on file selection dialog. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5561
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5562 static void
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5563 file_dialog_cb (widget, client_data, call_data)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5564 Widget widget;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5565 XtPointer call_data, client_data;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5566 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5567 int *result = (int *) client_data;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5568 XmAnyCallbackStruct *cb = (XmAnyCallbackStruct *) call_data;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5569 *result = cb->reason;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5570 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5571
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5572
37556
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5573 /* Callback for unmapping a file selection dialog. This is used to
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5574 capture the case where a dialog is closed via a window manager's
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5575 closer button, for example. Using a XmNdestroyCallback didn't work
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5576 in this case. */
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5577
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5578 static void
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5579 file_dialog_unmap_cb (widget, client_data, call_data)
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5580 Widget widget;
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5581 XtPointer call_data, client_data;
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5582 {
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5583 int *result = (int *) client_data;
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5584 *result = XmCR_CANCEL;
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5585 }
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5586
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5587 static Lisp_Object
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5588 clean_up_file_dialog (arg)
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5589 Lisp_Object arg;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5590 {
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5591 struct Lisp_Save_Value *p = XSAVE_VALUE (arg);
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5592 Widget dialog = (Widget) p->pointer;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5593
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5594 /* Clean up. */
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5595 BLOCK_INPUT;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5596 XtUnmanageChild (dialog);
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5597 XtDestroyWidget (dialog);
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5598 x_menu_set_in_use (0);
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5599 UNBLOCK_INPUT;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5600
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5601 return Qnil;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5602 }
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5603
37556
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5604
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5605 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5606 doc: /* Read file name, prompting with PROMPT in directory DIR.
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5607 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5608 selection box, if specified. If MUSTMATCH is non-nil, the returned file
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5609 or directory must exist. ONLY-DIR-P is ignored." */)
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5610 (prompt, dir, default_filename, mustmatch, only_dir_p)
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5611 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5612 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5613 int result;
25679
8b09c5927f1c (QCfile): Moved to xdisp.c.
Gerd Moellmann <gerd@gnu.org>
parents: 25646
diff changeset
5614 struct frame *f = SELECTED_FRAME ();
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5615 Lisp_Object file = Qnil;
69065
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5616 Lisp_Object decoded_file;
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5617 Widget dialog, text, help;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5618 Arg al[10];
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5619 int ac = 0;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5620 extern XtAppContext Xt_app_con;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5621 XmString dir_xmstring, pattern_xmstring;
46295
b77ef572e1c9 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
5622 int count = SPECPDL_INDEX ();
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5623 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5624
72774
e00572984112 (Fx_file_dialog): Call check_x.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72529
diff changeset
5625 check_x ();
e00572984112 (Fx_file_dialog): Call check_x.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72529
diff changeset
5626
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5627 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file);
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5628
58283
c163562b2d59 * xmenu.c (x_menu_in_use): Removed.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58214
diff changeset
5629 if (popup_activated ())
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5630 error ("Trying to use a menu from within a menu-entry");
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5631
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
5632 CHECK_STRING (prompt);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40608
diff changeset
5633 CHECK_STRING (dir);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5634
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5635 /* Prevent redisplay. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5636 specbind (Qinhibit_redisplay, Qt);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5637
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5638 BLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5639
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5640 /* Create the dialog with PROMPT as title, using DIR as initial
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5641 directory and using "*" as pattern. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5642 dir = Fexpand_file_name (dir, Qnil);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
5643 dir_xmstring = XmStringCreateLocalized (SDATA (dir));
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5644 pattern_xmstring = XmStringCreateLocalized ("*");
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5645
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46295
diff changeset
5646 XtSetArg (al[ac], XmNtitle, SDATA (prompt)); ++ac;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5647 XtSetArg (al[ac], XmNdirectory, dir_xmstring); ++ac;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5648 XtSetArg (al[ac], XmNpattern, pattern_xmstring); ++ac;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5649 XtSetArg (al[ac], XmNresizePolicy, XmRESIZE_GROW); ++ac;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5650 XtSetArg (al[ac], XmNdialogStyle, XmDIALOG_APPLICATION_MODAL); ++ac;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5651 dialog = XmCreateFileSelectionDialog (f->output_data.x->widget,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5652 "fsb", al, ac);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5653 XmStringFree (dir_xmstring);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5654 XmStringFree (pattern_xmstring);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5655
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5656 /* Add callbacks for OK and Cancel. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5657 XtAddCallback (dialog, XmNokCallback, file_dialog_cb,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5658 (XtPointer) &result);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5659 XtAddCallback (dialog, XmNcancelCallback, file_dialog_cb,
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5660 (XtPointer) &result);
37556
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5661 XtAddCallback (dialog, XmNunmapCallback, file_dialog_unmap_cb,
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5662 (XtPointer) &result);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5663
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5664 /* Remove the help button since we can't display help. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5665 help = XmFileSelectionBoxGetChild (dialog, XmDIALOG_HELP_BUTTON);
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5666 XtUnmanageChild (help);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5667
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5668 /* Mark OK button as default. */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5669 XtVaSetValues (XmFileSelectionBoxGetChild (dialog, XmDIALOG_OK_BUTTON),
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5670 XmNshowAsDefault, True, NULL);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5671
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5672 /* If MUSTMATCH is non-nil, disable the file entry field of the
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5673 dialog, so that the user must select a file from the files list
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5674 box. We can't remove it because we wouldn't have a way to get at
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5675 the result file name, then. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5676 text = XmFileSelectionBoxGetChild (dialog, XmDIALOG_TEXT);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5677 if (!NILP (mustmatch))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5678 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5679 Widget label;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5680 label = XmFileSelectionBoxGetChild (dialog, XmDIALOG_SELECTION_LABEL);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5681 XtSetSensitive (text, False);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5682 XtSetSensitive (label, False);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5683 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5684
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5685 /* Manage the dialog, so that list boxes get filled. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5686 XtManageChild (dialog);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5687
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5688 if (STRINGP (default_filename))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5689 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5690 XmString default_xmstring;
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5691 Widget wtext = XmFileSelectionBoxGetChild (dialog, XmDIALOG_TEXT);
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5692 Widget list = XmFileSelectionBoxGetChild (dialog, XmDIALOG_LIST);
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5693
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5694 XmTextPosition last_pos = XmTextFieldGetLastPosition (wtext);
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5695 XmTextFieldReplace (wtext, 0, last_pos,
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5696 (SDATA (Ffile_name_nondirectory (default_filename))));
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5697
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5698 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5699 must include the path for this to work. */
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5700
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5701 default_xmstring = XmStringCreateLocalized (SDATA (default_filename));
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5702
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5703 if (XmListItemExists (list, default_xmstring))
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5704 {
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5705 int item_pos = XmListItemPos (list, default_xmstring);
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5706 /* Select the item and scroll it into view. */
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5707 XmListSelectPos (list, item_pos, True);
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5708 XmListSetPos (list, item_pos);
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5709 }
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5710
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5711 XmStringFree (default_xmstring);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5712 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5713
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5714 record_unwind_protect (clean_up_file_dialog, make_save_value (dialog, 0));
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5715
49117
f8288cd7d1cd *** empty log message ***
Jan Djärv <jan.h.d@swipnet.se>
parents: 49080
diff changeset
5716 /* Process events until the user presses Cancel or OK. */
58283
c163562b2d59 * xmenu.c (x_menu_in_use): Removed.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58214
diff changeset
5717 x_menu_set_in_use (1);
29866
c31c4d7dd0e0 (Fx_file_dialog) [HAVE_MOTIF_2_1]: Handle events
Gerd Moellmann <gerd@gnu.org>
parents: 29728
diff changeset
5718 result = 0;
37556
171c0f4964a9 (file_dialog_unmap_cb): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37253
diff changeset
5719 while (result == 0)
38548
58603538f196 (Fx_file_dialog): Block/unblock input while processing
Gerd Moellmann <gerd@gnu.org>
parents: 38542
diff changeset
5720 {
49117
f8288cd7d1cd *** empty log message ***
Jan Djärv <jan.h.d@swipnet.se>
parents: 49080
diff changeset
5721 XEvent event;
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5722 x_menu_wait_for_event (0);
49117
f8288cd7d1cd *** empty log message ***
Jan Djärv <jan.h.d@swipnet.se>
parents: 49080
diff changeset
5723 XtAppNextEvent (Xt_app_con, &event);
59102
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5724 if (event.type == KeyPress
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5725 && FRAME_X_DISPLAY (f) == event.xkey.display)
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5726 {
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5727 KeySym keysym = XLookupKeysym (&event.xkey, 0);
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5728
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5729 /* Pop down on C-g. */
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5730 if (keysym == XK_g && (event.xkey.state & ControlMask) != 0)
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5731 XtUnmanageChild (dialog);
0096c58ce34a * xmenu.c (popup_get_selection): Pop down on C-g.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58463
diff changeset
5732 }
59904
adc18da68682 (unwind_create_frame) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59789
diff changeset
5733
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5734 (void) x_dispatch_event (&event, FRAME_X_DISPLAY (f));
49117
f8288cd7d1cd *** empty log message ***
Jan Djärv <jan.h.d@swipnet.se>
parents: 49080
diff changeset
5735 }
29866
c31c4d7dd0e0 (Fx_file_dialog) [HAVE_MOTIF_2_1]: Handle events
Gerd Moellmann <gerd@gnu.org>
parents: 29728
diff changeset
5736
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5737 /* Get the result. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5738 if (result == XmCR_OK)
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5739 {
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5740 XmString text;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5741 String data;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5742
30573
3bb43339533c (Fx_file_dialog): Use NULL instead of 0 at the end of
Gerd Moellmann <gerd@gnu.org>
parents: 30383
diff changeset
5743 XtVaGetValues (dialog, XmNtextString, &text, NULL);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5744 XmStringGetLtoR (text, XmFONTLIST_DEFAULT_TAG, &data);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5745 XmStringFree (text);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5746 file = build_string (data);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5747 XtFree (data);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5748 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5749 else
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5750 file = Qnil;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5751
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5752 UNBLOCK_INPUT;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5753 UNGCPRO;
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5754
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5755 /* Make "Cancel" equivalent to C-g. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5756 if (NILP (file))
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5757 Fsignal (Qquit, Qnil);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5758
69065
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5759 decoded_file = DECODE_FILE (file);
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5760
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5761 return unbind_to (count, decoded_file);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5762 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5763
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5764 #endif /* USE_MOTIF */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5765
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5766 #ifdef USE_GTK
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5767
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5768 static Lisp_Object
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5769 clean_up_dialog (arg)
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5770 Lisp_Object arg;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5771 {
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5772 x_menu_set_in_use (0);
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5773
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5774 return Qnil;
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5775 }
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5776
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5777 DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5778 doc: /* Read file name, prompting with PROMPT in directory DIR.
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5779 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5780 selection box, if specified. If MUSTMATCH is non-nil, the returned file
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5781 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5782 directories. */)
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5783 (prompt, dir, default_filename, mustmatch, only_dir_p)
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5784 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5785 {
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5786 FRAME_PTR f = SELECTED_FRAME ();
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5787 char *fn;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5788 Lisp_Object file = Qnil;
69065
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5789 Lisp_Object decoded_file;
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5790 int count = SPECPDL_INDEX ();
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5791 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5792 char *cdef_file;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5793
72774
e00572984112 (Fx_file_dialog): Call check_x.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72529
diff changeset
5794 check_x ();
e00572984112 (Fx_file_dialog): Call check_x.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 72529
diff changeset
5795
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5796 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file);
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5797
58283
c163562b2d59 * xmenu.c (x_menu_in_use): Removed.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58214
diff changeset
5798 if (popup_activated ())
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5799 error ("Trying to use a menu from within a menu-entry");
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5800
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5801 CHECK_STRING (prompt);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5802 CHECK_STRING (dir);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5803
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5804 /* Prevent redisplay. */
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5805 specbind (Qinhibit_redisplay, Qt);
58214
aaad85fd645c * xfns.c (Fx_file_dialog): Call x_menu_in_use and x_menu_set_in_use.
Jan Djärv <jan.h.d@swipnet.se>
parents: 57941
diff changeset
5806 record_unwind_protect (clean_up_dialog, Qnil);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5807
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5808 BLOCK_INPUT;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5809
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5810 if (STRINGP (default_filename))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5811 cdef_file = SDATA (default_filename);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5812 else
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5813 cdef_file = SDATA (dir);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5814
57868
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5815 fn = xg_get_file_name (f, SDATA (prompt), cdef_file,
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5816 ! NILP (mustmatch),
c955f6add62a * fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents: 57765
diff changeset
5817 ! NILP (only_dir_p));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5818
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5819 if (fn)
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5820 {
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5821 file = build_string (fn);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5822 xfree (fn);
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5823 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5824
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5825 UNBLOCK_INPUT;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5826 UNGCPRO;
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5827
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5828 /* Make "Cancel" equivalent to C-g. */
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5829 if (NILP (file))
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5830 Fsignal (Qquit, Qnil);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5831
69065
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5832 decoded_file = DECODE_FILE (file);
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5833
4c87a7783f95 * xfns.c (Fx_file_dialog, Motif and GTK): DECODE_FILE before
Jan Djärv <jan.h.d@swipnet.se>
parents: 68880
diff changeset
5834 return unbind_to (count, decoded_file);
49322
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5835 }
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5836
2cbb0b823e83 GTK version
Jan Djärv <jan.h.d@swipnet.se>
parents: 49117
diff changeset
5837 #endif /* USE_GTK */
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5838
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5839
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5840 /***********************************************************************
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5841 Keyboard
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5842 ***********************************************************************/
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5843
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5844 #ifdef HAVE_XKBGETKEYBOARD
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5845 #include <X11/XKBlib.h>
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5846 #include <X11/keysym.h>
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5847 #endif
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5848
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5849 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p,
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5850 Sx_backspace_delete_keys_p, 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5851 doc: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5852 FRAME nil means use the selected frame.
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
5853 Value is t if we know that both keys are present, and are mapped to the
67654
f6416d33b0a2 (Fx_backspace_delete_keys_p): In case we cannot determine
Dan Nicolaescu <dann@ics.uci.edu>
parents: 67581
diff changeset
5854 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
f6416d33b0a2 (Fx_backspace_delete_keys_p): In case we cannot determine
Dan Nicolaescu <dann@ics.uci.edu>
parents: 67581
diff changeset
5855 present and mapped to the usual X keysyms. */)
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
5856 (frame)
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5857 Lisp_Object frame;
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5858 {
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5859 #ifdef HAVE_XKBGETKEYBOARD
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5860 XkbDescPtr kb;
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5861 struct frame *f = check_x_frame (frame);
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5862 Display *dpy = FRAME_X_DISPLAY (f);
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5863 Lisp_Object have_keys;
34911
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5864 int major, minor, op, event, error;
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5865
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5866 BLOCK_INPUT;
34911
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5867
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5868 /* Check library version in case we're dynamically linked. */
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5869 major = XkbMajorVersion;
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5870 minor = XkbMinorVersion;
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5871 if (!XkbLibraryVersion (&major, &minor))
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5872 {
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5873 UNBLOCK_INPUT;
67654
f6416d33b0a2 (Fx_backspace_delete_keys_p): In case we cannot determine
Dan Nicolaescu <dann@ics.uci.edu>
parents: 67581
diff changeset
5874 return Qlambda;
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5875 }
34911
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5876
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5877 /* Check that the server supports XKB. */
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5878 major = XkbMajorVersion;
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5879 minor = XkbMinorVersion;
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5880 if (!XkbQueryExtension (dpy, &op, &event, &error, &major, &minor))
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5881 {
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5882 UNBLOCK_INPUT;
67654
f6416d33b0a2 (Fx_backspace_delete_keys_p): In case we cannot determine
Dan Nicolaescu <dann@ics.uci.edu>
parents: 67581
diff changeset
5883 return Qlambda;
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5884 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5885
59974
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5886 /* In this code we check that the keyboard has physical keys with names
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5887 that start with BKSP (Backspace) and DELE (Delete), and that they
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5888 generate keysym XK_BackSpace and XK_Delete respectively.
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5889 This function is used to test if normal-erase-is-backspace should be
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5890 turned on.
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5891 An alternative approach would be to just check if XK_BackSpace and
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5892 XK_Delete are mapped to any key. But if any of those are mapped to
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5893 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5894 user doesn't know about it, it is better to return false here.
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5895 It is more obvious to the user what to do if she/he has two keys
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5896 clearly marked with names/symbols and one key does something not
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5897 expected (i.e. she/he then tries the other).
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5898 The cases where Backspace/Delete is mapped to some other key combination
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5899 are rare, and in those cases, normal-erase-is-backspace can be turned on
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5900 manually. */
bb6a99f86b5d * xfns.c (Fx_backspace_delete_keys_p): Added comment about the
Jan Djärv <jan.h.d@swipnet.se>
parents: 59905
diff changeset
5901
34911
4cdfcac861d7 (Fx_backspace_delete_keys_p): Check library and server
Gerd Moellmann <gerd@gnu.org>
parents: 34895
diff changeset
5902 have_keys = Qnil;
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5903 kb = XkbGetMap (dpy, XkbAllMapComponentsMask, XkbUseCoreKbd);
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5904 if (kb)
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5905 {
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5906 int delete_keycode = 0, backspace_keycode = 0, i;
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5907
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5908 if (XkbGetNames (dpy, XkbAllNamesMask, kb) == Success)
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5909 {
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5910 for (i = kb->min_key_code;
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5911 (i < kb->max_key_code
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5912 && (delete_keycode == 0 || backspace_keycode == 0));
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5913 ++i)
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5914 {
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5915 /* The XKB symbolic key names can be seen most easily in
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5916 the PS file generated by `xkbprint -label name
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
5917 $DISPLAY'. */
35191
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5918 if (bcmp ("DELE", kb->names->keys[i].name, 4) == 0)
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5919 delete_keycode = i;
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5920 else if (bcmp ("BKSP", kb->names->keys[i].name, 4) == 0)
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5921 backspace_keycode = i;
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5922 }
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5923
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5924 XkbFreeNames (kb, 0, True);
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5925 }
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5926
3de883052d49 (Fx_backspace_delete_keys_p): Use XkbGetMap and
Gerd Moellmann <gerd@gnu.org>
parents: 35146
diff changeset
5927 XkbFreeClientMap (kb, 0, True);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
5928
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5929 if (delete_keycode
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5930 && backspace_keycode
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5931 && XKeysymToKeycode (dpy, XK_Delete) == delete_keycode
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5932 && XKeysymToKeycode (dpy, XK_BackSpace) == backspace_keycode)
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5933 have_keys = Qt;
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5934 }
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5935 UNBLOCK_INPUT;
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5936 return have_keys;
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5937 #else /* not HAVE_XKBGETKEYBOARD */
67654
f6416d33b0a2 (Fx_backspace_delete_keys_p): In case we cannot determine
Dan Nicolaescu <dann@ics.uci.edu>
parents: 67581
diff changeset
5938 return Qlambda;
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5939 #endif /* not HAVE_XKBGETKEYBOARD */
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5940 }
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5941
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5942
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5943
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
5944 /***********************************************************************
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5945 Initialization
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5946 ***********************************************************************/
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
5947
51175
a072cc265dff (x_window): Fix typo.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 51130
diff changeset
5948 /* Keep this list in the same order as frame_parms in frame.c.
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5949 Use 0 for unsupported frame parameters. */
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5950
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5951 frame_parm_handler x_frame_parm_handlers[] =
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5952 {
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5953 x_set_autoraise,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5954 x_set_autolower,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5955 x_set_background_color,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5956 x_set_border_color,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5957 x_set_border_width,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5958 x_set_cursor_color,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5959 x_set_cursor_type,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5960 x_set_font,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5961 x_set_foreground_color,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5962 x_set_icon_name,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5963 x_set_icon_type,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5964 x_set_internal_border_width,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5965 x_set_menu_bar_lines,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5966 x_set_mouse_color,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5967 x_explicitly_set_name,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5968 x_set_scroll_bar_width,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5969 x_set_title,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5970 x_set_unsplittable,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5971 x_set_vertical_scroll_bars,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5972 x_set_visibility,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5973 x_set_tool_bar_lines,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5974 x_set_scroll_bar_foreground,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5975 x_set_scroll_bar_background,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5976 x_set_screen_gamma,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5977 x_set_line_spacing,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5978 x_set_fringe_width,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5979 x_set_fringe_width,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5980 x_set_wait_for_wm,
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5981 x_set_fullscreen,
90546
5fd517758629 (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
5982 #ifdef USE_FONT_BACKEND
5fd517758629 (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
5983 x_set_font_backend
5fd517758629 (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
Kenichi Handa <handa@m17n.org>
parents: 90533
diff changeset
5984 #endif /* USE_FONT_BACKEND */
50370
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5985 };
0c01548d7ed3 The following changes consolidates the common code related to
Kim F. Storm <storm@cua.dk>
parents: 50236
diff changeset
5986
21846
486ac68ce051 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21779
diff changeset
5987 void
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5988 syms_of_xfns ()
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5989 {
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5990 /* This is zero if not using X windows. */
9653
cfc5e15e0baf (x_sync): Take frame ptr as arg.
Richard M. Stallman <rms@gnu.org>
parents: 9580
diff changeset
5991 x_in_use = 0;
9014
7b805f79f3b4 (Fx_list_fonts): Use a cache stored in FRAME_X_SCREEN.
Richard M. Stallman <rms@gnu.org>
parents: 8961
diff changeset
5992
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
5993 /* The section below is built by the lisp expression at the top of the file,
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
5994 just above where these variables are declared. */
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
5995 /*&&& init symbols here &&&*/
1874
19cf50641d6c * frame.c (Fframe_parameters): Report the `minibuffer' parameter of
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
5996 Qnone = intern ("none");
19cf50641d6c * frame.c (Fframe_parameters): Report the `minibuffer' parameter of
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
5997 staticpro (&Qnone);
2328
82e4fed9cdd6 * xfns.c (Fx_parse_geometry): Renamed from Fx_geometry.
Jim Blandy <jimb@redhat.com>
parents: 2295
diff changeset
5998 Qsuppress_icon = intern ("suppress-icon");
82e4fed9cdd6 * xfns.c (Fx_parse_geometry): Renamed from Fx_geometry.
Jim Blandy <jimb@redhat.com>
parents: 2295
diff changeset
5999 staticpro (&Qsuppress_icon);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6000 Qundefined_color = intern ("undefined-color");
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
6001 staticpro (&Qundefined_color);
30351
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
6002 Qcompound_text = intern ("compound-text");
a67fcab978bb (x_encode_text): New function.
Kenichi Handa <handa@m17n.org>
parents: 30224
diff changeset
6003 staticpro (&Qcompound_text);
35402
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
6004 Qcancel_timer = intern ("cancel-timer");
302fbe91e359 (Qcancel_timer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 35360
diff changeset
6005 staticpro (&Qcancel_timer);
974
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
6006 /* This is the end of symbol initialization. */
4f88a1b78a46 * xfns.c (x_get_arg): Return Qunbound for an unspecified
Jim Blandy <jimb@redhat.com>
parents: 833
diff changeset
6007
26876
578acd06aa3b Include intervals.h.
Kenichi Handa <handa@m17n.org>
parents: 26808
diff changeset
6008 /* Text property `display' should be nonsticky by default. */
578acd06aa3b Include intervals.h.
Kenichi Handa <handa@m17n.org>
parents: 26808
diff changeset
6009 Vtext_property_default_nonsticky
578acd06aa3b Include intervals.h.
Kenichi Handa <handa@m17n.org>
parents: 26808
diff changeset
6010 = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky);
578acd06aa3b Include intervals.h.
Kenichi Handa <handa@m17n.org>
parents: 26808
diff changeset
6011
578acd06aa3b Include intervals.h.
Kenichi Handa <handa@m17n.org>
parents: 26808
diff changeset
6012
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6013 Fput (Qundefined_color, Qerror_conditions,
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6014 Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6015 Fput (Qundefined_color, Qerror_message,
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6016 build_string ("Undefined color"));
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6017
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6018 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6019 doc: /* The shape of the pointer when over text.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6020 Changing the value does not affect existing frames
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6021 unless you set the mouse color. */);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6022 Vx_pointer_shape = Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6023
7683
be3423efbdce (Vx_sensitive_text_pointer_shape):
Richard M. Stallman <rms@gnu.org>
parents: 7599
diff changeset
6024 #if 0 /* This doesn't really do anything. */
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6025 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6026 doc: /* The shape of the pointer when not over text.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6027 This variable takes effect when you create a new frame
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6028 or when you set the mouse color. */);
2936
f9956cdb0d1d (syms_of_xfns): Don't make Lisp vars
Richard M. Stallman <rms@gnu.org>
parents: 2885
diff changeset
6029 #endif
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6030 Vx_nontext_pointer_shape = Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6031
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6032 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6033 doc: /* The shape of the pointer when Emacs is busy.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6034 This variable takes effect when you create a new frame
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6035 or when you set the mouse color. */);
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
6036 Vx_hourglass_pointer_shape = Qnil;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
6037
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6038 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6039 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
6040 display_hourglass_p = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
6041
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6042 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6043 doc: /* *Seconds to wait before displaying an hourglass pointer.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6044 Value must be an integer or float. */);
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
6045 Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
27864
ea05cbe65943 (inhibit_busy_cursor, busy_count): Removed.
Gerd Moellmann <gerd@gnu.org>
parents: 27798
diff changeset
6046
7683
be3423efbdce (Vx_sensitive_text_pointer_shape):
Richard M. Stallman <rms@gnu.org>
parents: 7599
diff changeset
6047 #if 0 /* This doesn't really do anything. */
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6048 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6049 doc: /* The shape of the pointer when over the mode line.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6050 This variable takes effect when you create a new frame
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6051 or when you set the mouse color. */);
2936
f9956cdb0d1d (syms_of_xfns): Don't make Lisp vars
Richard M. Stallman <rms@gnu.org>
parents: 2885
diff changeset
6052 #endif
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6053 Vx_mode_pointer_shape = Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6054
16396
4e4cc27b2a2a (x_set_internal_border_width): Only change
Richard M. Stallman <rms@gnu.org>
parents: 16357
diff changeset
6055 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6056 &Vx_sensitive_text_pointer_shape,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6057 doc: /* The shape of the pointer when over mouse-sensitive text.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6058 This variable takes effect when you create a new frame
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6059 or when you set the mouse color. */);
7683
be3423efbdce (Vx_sensitive_text_pointer_shape):
Richard M. Stallman <rms@gnu.org>
parents: 7599
diff changeset
6060 Vx_sensitive_text_pointer_shape = Qnil;
6759
e0938c42218c (syms_of_xfns): Define Vx_cross_pointer_shape.
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents: 6610
diff changeset
6061
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
6062 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6063 &Vx_window_horizontal_drag_shape,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6064 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6065 This variable takes effect when you create a new frame
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6066 or when you set the mouse color. */);
33960
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
6067 Vx_window_horizontal_drag_shape = Qnil;
1f92a2d65681 (Vx_window_horizontal_drag_shape): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33747
diff changeset
6068
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6069 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6070 doc: /* A string indicating the foreground color of the cursor box. */);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6071 Vx_cursor_fore_pixel = Qnil;
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6072
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6073 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6074 doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6075 Text larger than this is clipped. */);
38574
79a0d7b341b3 (Vx_max_tooltip_size): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38548
diff changeset
6076 Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
6077
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6078 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6079 doc: /* Non-nil if no X window manager is in use.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6080 Emacs doesn't try to figure this out; this is always nil
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6081 unless you set it to something else. */);
12209
5537ed125771 (syms_of_xfns): Initialize Vx_no_window_manager. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12190
diff changeset
6082 /* We don't have any way to find this out, so set it to nil
5537ed125771 (syms_of_xfns): Initialize Vx_no_window_manager. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12190
diff changeset
6083 and maybe the user would like to set it to t. */
5537ed125771 (syms_of_xfns): Initialize Vx_no_window_manager. Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12190
diff changeset
6084 Vx_no_window_manager = Qnil;
8170
d92a24366b22 (x_toolkit): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8103
diff changeset
6085
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6086 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6087 &Vx_pixel_size_width_font_regexp,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6088 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
39905
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6089
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6090 Since Emacs gets width of a font matching with this regexp from
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6091 PIXEL_SIZE field of the name, font finding mechanism gets faster for
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6092 such a font. This is especially effective for such large fonts as
542a86892257 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39862
diff changeset
6093 Chinese, Japanese, and Korean. */);
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6094 Vx_pixel_size_width_font_regexp = Qnil;
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6095
58463
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
6096 /* This is not ifdef:ed, so other builds than GTK can customize it. */
72964
4e1cc9325b0e * xfns.c (syms_of_xfns): Rename x-use-old-gtk-file-dialog
Jan Djärv <jan.h.d@swipnet.se>
parents: 72932
diff changeset
6097 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog,
58463
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
6098 doc: /* *Non-nil means prompt with the old GTK file selection dialog.
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
6099 If nil or if the file selection dialog is not available, the new GTK file
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
6100 chooser is used instead. To turn off all file dialogs set the
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
6101 variable `use-file-dialog'. */);
72964
4e1cc9325b0e * xfns.c (syms_of_xfns): Rename x-use-old-gtk-file-dialog
Jan Djärv <jan.h.d@swipnet.se>
parents: 72932
diff changeset
6102 x_gtk_use_old_file_dialog = 0;
58463
86fddd350b35 * gtkutil.c (xg_get_file_name): Rename use-old-gtk-file-dialog to
Jan Djärv <jan.h.d@swipnet.se>
parents: 58283
diff changeset
6103
67842
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
6104 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files,
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
6105 doc: /* *If non-nil, the GTK file chooser will by default show hidden files.
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
6106 Note that this is just the default, there is a toggle button on the file
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
6107 chooser to show or not show hidden files on a case by case basis. */);
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
6108 x_gtk_show_hidden_files = 0;
095b05723996 * xfns.c: x_show_hidden_files, new variable.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67761
diff changeset
6109
72969
f8188a2ff5f6 * xfns.c (syms_of_xfns): Rename x_gtk_show_chooser_help_text to
Jan Djärv <jan.h.d@swipnet.se>
parents: 72964
diff changeset
6110 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text,
73045
cec998346c98 * xfns.c (syms_of_xfns): Fix typo in help text for
Jan Djärv <jan.h.d@swipnet.se>
parents: 72969
diff changeset
6111 doc: /* *If non-nil, the GTK file chooser will show additional help text.
72932
eea4777d0d23 * xfns.c (syms_of_xfns): New variable: x-gtk-show-chooser-help-text.
Jan Djärv <jan.h.d@swipnet.se>
parents: 72777
diff changeset
6112 If more space for files in the file chooser dialog is wanted, set this to nil
eea4777d0d23 * xfns.c (syms_of_xfns): New variable: x-gtk-show-chooser-help-text.
Jan Djärv <jan.h.d@swipnet.se>
parents: 72777
diff changeset
6113 to turn the additional text off. */);
72969
f8188a2ff5f6 * xfns.c (syms_of_xfns): Rename x_gtk_show_chooser_help_text to
Jan Djärv <jan.h.d@swipnet.se>
parents: 72964
diff changeset
6114 x_gtk_file_dialog_help_text = 1;
72932
eea4777d0d23 * xfns.c (syms_of_xfns): New variable: x-gtk-show-chooser-help-text.
Jan Djärv <jan.h.d@swipnet.se>
parents: 72777
diff changeset
6115
68880
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
6116 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar,
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
6117 doc: /* *If non-nil, a detached tool bar is shown in full.
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
6118 The default is to just show an arrow and pressing on that arrow shows
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
6119 the tool bar buttons. */);
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
6120 x_gtk_whole_detached_tool_bar = 0;
f5fa98f7c3b7 * xfns.c (syms_of_xfns): New variable: x-gtk-whole-detached-tool-bar.
Jan Djärv <jan.h.d@swipnet.se>
parents: 68651
diff changeset
6121
66502
dd57bcb034c0 (syms_of_xfns): Provide `x' as feature.
Richard M. Stallman <rms@gnu.org>
parents: 65936
diff changeset
6122 Fprovide (intern ("x"), Qnil);
dd57bcb034c0 (syms_of_xfns): Provide `x' as feature.
Richard M. Stallman <rms@gnu.org>
parents: 65936
diff changeset
6123
8170
d92a24366b22 (x_toolkit): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8103
diff changeset
6124 #ifdef USE_X_TOOLKIT
39862
da336e9d1ab5 (syms_of_xfns): Update calls to Fprovide.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39812
diff changeset
6125 Fprovide (intern ("x-toolkit"), Qnil);
12094
a9fda5417acf (syms_of_xfns): Provide motif in Motif version.
Karl Heuer <kwzh@gnu.org>
parents: 12080
diff changeset
6126 #ifdef USE_MOTIF
39862
da336e9d1ab5 (syms_of_xfns): Update calls to Fprovide.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39812
diff changeset
6127 Fprovide (intern ("motif"), Qnil);
37210
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
6128
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6129 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39907
diff changeset
6130 doc: /* Version info for LessTif/Motif. */);
37210
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
6131 Vmotif_version_string = build_string (XmVERSION_STRING);
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
6132 #endif /* USE_MOTIF */
8b47704e0150 (Vmotif_version_string) [USE_MOTIF]: New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37173
diff changeset
6133 #endif /* USE_X_TOOLKIT */
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6134
52334
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6135 #ifdef USE_GTK
55546
4e3b166f7f72 * xfns.c (syms_of_xfns): Provide x-toolkit also for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 55492
diff changeset
6136 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
4e3b166f7f72 * xfns.c (syms_of_xfns): Provide x-toolkit also for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 55492
diff changeset
6137 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
4e3b166f7f72 * xfns.c (syms_of_xfns): Provide x-toolkit also for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 55492
diff changeset
6138 But for a user it is a toolkit for X, and indeed, configure
4e3b166f7f72 * xfns.c (syms_of_xfns): Provide x-toolkit also for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 55492
diff changeset
6139 accepts --with-x-toolkit=gtk. */
4e3b166f7f72 * xfns.c (syms_of_xfns): Provide x-toolkit also for GTK.
Jan Djärv <jan.h.d@swipnet.se>
parents: 55492
diff changeset
6140 Fprovide (intern ("x-toolkit"), Qnil);
52334
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6141 Fprovide (intern ("gtk"), Qnil);
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6142
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6143 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string,
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6144 doc: /* Version info for GTK+. */);
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6145 {
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6146 char gtk_version[40];
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6147 g_snprintf (gtk_version, sizeof (gtk_version), "%u.%u.%u",
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6148 GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6149 Vgtk_version_string = build_string (gtk_version);
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6150 }
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6151 #endif /* USE_GTK */
a721547105d6 (Vgtk_version_string): New variable.
Lute Kamstra <lute@gnu.org>
parents: 52298
diff changeset
6152
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6153 /* X window properties. */
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6154 defsubr (&Sx_change_window_property);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6155 defsubr (&Sx_delete_window_property);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6156 defsubr (&Sx_window_property);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6157
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
6158 defsubr (&Sxw_display_color_p);
8779
12c6296bbb4b (Fx_display_grayscale_p): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8758
diff changeset
6159 defsubr (&Sx_display_grayscale_p);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
6160 defsubr (&Sxw_color_defined_p);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26571
diff changeset
6161 defsubr (&Sxw_color_values);
4279
d69483b37e0a (MAXREQUEST): Defined.
Richard M. Stallman <rms@gnu.org>
parents: 4269
diff changeset
6162 defsubr (&Sx_server_max_request_size);
2276
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6163 defsubr (&Sx_server_vendor);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6164 defsubr (&Sx_server_version);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6165 defsubr (&Sx_display_pixel_width);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6166 defsubr (&Sx_display_pixel_height);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6167 defsubr (&Sx_display_mm_width);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6168 defsubr (&Sx_display_mm_height);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6169 defsubr (&Sx_display_screens);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6170 defsubr (&Sx_display_planes);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6171 defsubr (&Sx_display_color_cells);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6172 defsubr (&Sx_display_visual_class);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6173 defsubr (&Sx_display_backing_store);
68328c3af38f (x_screen): Make this var file scope.
Richard M. Stallman <rms@gnu.org>
parents: 2197
diff changeset
6174 defsubr (&Sx_display_save_under);
771
538c0bcb418e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
6175 defsubr (&Sx_create_frame);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6176 defsubr (&Sx_open_connection);
9690
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
6177 defsubr (&Sx_close_connection);
f6d4e1acb5a1 (Fx_create_frame): Don't increment refernce_count
Richard M. Stallman <rms@gnu.org>
parents: 9653
diff changeset
6178 defsubr (&Sx_display_list);
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6179 defsubr (&Sx_synchronize);
28044
88db4c84b6fd Remove a buch of really old code in #if 0.
Gerd Moellmann <gerd@gnu.org>
parents: 28010
diff changeset
6180 defsubr (&Sx_focus_frame);
34549
708ea44ef3c0 (Fx_backspace_delete_keys_p): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 34524
diff changeset
6181 defsubr (&Sx_backspace_delete_keys_p);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
6182
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6183 /* Setting callback functions for fontset handler. */
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6184 get_font_info_func = x_get_font_info;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6185
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6186 #if 0 /* This function pointer doesn't seem to be used anywhere.
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6187 And the pointer assigned has the wrong type, anyway. */
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6188 list_fonts_func = x_list_fonts;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6189 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49473
diff changeset
6190
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6191 load_font_func = x_load_font;
21549
3b63301ea296 (syms_of_xfns): Initialize find_ccl_program_func.
Kenichi Handa <handa@m17n.org>
parents: 21536
diff changeset
6192 find_ccl_program_func = x_find_ccl_program;
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6193 query_font_func = x_query_font;
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6194 set_frame_fontset_func = x_set_font;
88908
b18bbd77841e (x_set_font): Always call x_new_fontset and
Kenichi Handa <handa@m17n.org>
parents: 88509
diff changeset
6195 get_font_repertory_func = x_get_font_repertory;
17048
2da4e24ceee5 Include charset.h and fontset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16966
diff changeset
6196 check_window_system_func = check_x;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6197
36252
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
6198 hourglass_atimer = NULL;
a8630c63f7d5 Rename everything containing *busy_cursor* and similar
Gerd Moellmann <gerd@gnu.org>
parents: 35859
diff changeset
6199 hourglass_shown_p = 0;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6200
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6201 defsubr (&Sx_show_tip);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6202 defsubr (&Sx_hide_tip);
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
6203 tip_timer = Qnil;
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6204 staticpro (&tip_timer);
34450
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
6205 tip_frame = Qnil;
5de00bff5de3 (Fx_hide_tip): Avoid unnecessary work when there's
Gerd Moellmann <gerd@gnu.org>
parents: 34321
diff changeset
6206 staticpro (&tip_frame);
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6207
35067
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
6208 last_show_tip_args = Qnil;
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
6209 staticpro (&last_show_tip_args);
7ca0048f8615 (x_create_tip_frame): Preserve the value of
Gerd Moellmann <gerd@gnu.org>
parents: 35042
diff changeset
6210
67761
5b8799d65159 * xfns.c (Fx_uses_old_gtk_dialog): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 67654
diff changeset
6211 defsubr (&Sx_uses_old_gtk_dialog);
57432
d95ac5c74632 * xfns.c (syms_of_xfns): defsubr x-file-dialog for GTK also.
Jan Djärv <jan.h.d@swipnet.se>
parents: 56879
diff changeset
6212 #if defined (USE_MOTIF) || defined (USE_GTK)
24994
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6213 defsubr (&Sx_file_dialog);
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6214 #endif
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6215 }
d549b7ac676d (x_real_positions): Don't subtract window borders
Gerd Moellmann <gerd@gnu.org>
parents: 24905
diff changeset
6216
389
6e0510766e66 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6217 #endif /* HAVE_X_WINDOWS */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52387
diff changeset
6218
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52387
diff changeset
6219 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52387
diff changeset
6220 (do not change this comment) */