annotate src/device-gtk.c @ 844:047d37eb70d7

[xemacs-hg @ 2002-05-16 13:30:23 by ben] ui fixes for things that were bothering me bytecode.c, editfns.c, lisp.h, lread.c: Fix save-restriction to use markers rather than pseudo-markers (integers representing the amount of text on either side of the region). That way, all inserts are handled correctly, not just those inside old restriction. Add buffer argument to save_restriction_save(). process.c: Clean up very dirty and kludgy code that outputs into a buffer -- use proper unwind protects, etc. font-lock.c: Do save-restriction/widen around the function -- otherwise, incorrect results will ensue when a buffer has been narrowed before a call to e.g. `buffer-syntactic-context' -- something that happens quite often. fileio.c: Look for a handler for make-temp-name. window.c, winslots.h: Try to solve this annoying problem: have two frames displaying the buffer, in different places; in one, temporarily switch away to another buffer and then back -- and you've lost your position; it's reset to the other one in the other frame. My current solution involves window-level caches of buffers and points (also a cache for window-start); when set-window-buffer is called, it looks to see if the buffer was previously visited in the window, and if so, uses the most recent point at that time. (It's a marker, so it handles changes.) #### Note: It could be argued that doing it on the frame level would be better -- e.g. if you visit a buffer temporarily through a grep, and then go back to that buffer, you presumably want the grep's position rather than some previous position provided everything was in the same frame, even though the grep was in another window in the frame. However, doing it on the frame level fails when you have two windows on the same frame. Perhaps we keep both a window and a frame cache, and use the frame cache if there are no other windows on the frame showing the buffer, else the window's cache? This is probably something to be configurable using a specifier. Suggestions please please please? window.c: Clean up a bit code that deals with the annoyance of window-point vs. point. dialog.el: Function to ask a multiple-choice question, automatically choosing a dialog box or minibuffer representation as necessary. Generalized version of yes-or-no-p, y-or-n-p. files.el: Use get-user-response to ask "yes/no/diff" question when recovering. "diff" means that a diff is displayed between the current file and the autosave. (Converts/deconverts escape-quoted as necessary. No more complaints from you, Mr. Turnbull!) One known problem: when a dialog is used, it's modal, so you can't scroll the diff. Will fix soon. lisp-mode.el: If we're filling a string, don't treat semicolon as a comment, which would give very unfriendly results. Uses `buffer-syntactic-context'. simple.el: all changes back to the beginning. (Useful if you've saved the file in the middle of the changes.) simple.el: Add option kill-word-into-kill-ring, which controls whether words deleted with kill-word, backward-kill-word, etc. are "cut" into the kill ring, or "cleared" into nothingness. (My preference is the latter, by far. I'd almost go so far as suggesting we make it the default, as you can always select a word and then cut it if you want it cut.) menubar-items.el: Add option corresponding to kill-word-into-kill-ring.
author ben
date Thu, 16 May 2002 13:30:58 +0000
parents 285f13b079f3
children 42375619fa45
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 /* Device functions for X windows.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 Copyright (C) 1994, 1995 Free Software Foundation, Inc.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7 XEmacs is free software; you can redistribute it and/or modify it
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 under the terms of the GNU General Public License as published by the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 Free Software Foundation; either version 2, or (at your option) any
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 later version.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 for more details.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 along with XEmacs; see the file COPYING. If not, write to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 /* Synched up with: Not in FSF. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 /* Original authors: Jamie Zawinski and the FSF */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 /* Rewritten by Ben Wing and Chuck Thompson. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26 /* Gtk flavor written by William Perry */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28 #include <config.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 #include "lisp.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31 #include "console-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 #include "gccache-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33 #include "glyphs-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
34 #include "objects-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
35 #include "gtk-xemacs.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
36
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 #include "buffer.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38 #include "events.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 #include "faces.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
40 #include "frame.h"
809
285f13b079f3 [xemacs-hg @ 2002-04-07 16:01:30 by wmperry]
wmperry
parents: 793
diff changeset
41 #include "device.h"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 #include "redisplay.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 #include "sysdep.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44 #include "window.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 #include "elhash.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 #include "sysfile.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 #include "systime.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50 #ifdef HAVE_GNOME
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 #include <libgnomeui/libgnomeui.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 #include <bonobo.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58 Lisp_Object Vdefault_gtk_device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 /* Qdisplay in general.c */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61 Lisp_Object Qinit_pre_gtk_win, Qinit_post_gtk_win;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63 /* The application class of Emacs. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 Lisp_Object Vgtk_emacs_application_class;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 Lisp_Object Vgtk_initial_argv_list; /* #### ugh! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 Lisp_Object Vgtk_initial_geometry;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69 static void gtk_device_init_x_specific_cruft (struct device *d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
70
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
71
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73 /* helper functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
74 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
75
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 struct device *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 decode_gtk_device (Lisp_Object device)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
79 device = wrap_device (decode_device (device));
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 CHECK_GTK_DEVICE (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 return XDEVICE (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 /* initializing a GTK connection */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 extern Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89 xemacs_gtk_convert_color(GdkColor *c, GtkWidget *w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91 extern Lisp_Object __get_gtk_font_truename (GdkFont *gdk_font, int expandp);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
93 #define convert_font(f) __get_gtk_font_truename (f, 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
94
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
95 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
96 allocate_gtk_device_struct (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98 d->device_data = xnew_and_zero (struct gtk_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 DEVICE_GTK_DATA (d)->x_keysym_map_hashtable = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
101
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 gtk_init_device_class (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 if (DEVICE_GTK_DEPTH(d) > 2)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107 switch (DEVICE_GTK_VISUAL(d)->type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 case GDK_VISUAL_STATIC_GRAY:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 case GDK_VISUAL_GRAYSCALE:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 DEVICE_CLASS (d) = Qgrayscale;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 DEVICE_CLASS (d) = Qcolor;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 DEVICE_CLASS (d) = Qmono;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 #ifdef HAVE_GDK_IMLIB_INIT
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 extern void gdk_imlib_init(void);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 static CORBA_ORB orb;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 DEFUN ("gtk-init", Fgtk_init, 1, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 Initialize the GTK subsystem.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 ARGS is a standard list of command-line arguments.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
132
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133 No effect if called more than once. Called automatically when
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 creating the first GTK device. Must be called manually from batch
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 mode.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 (args))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 int argc;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140 char **argv;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 static int done;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 if (done)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145 return (Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148 make_argc_argv (args, &argc, &argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 slow_down_interrupts ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 #ifdef HAVE_GNOME
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 #ifdef INFODOCK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
153 gnome_init ("InfoDock", EMACS_VERSION, argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
155 gnome_init ("XEmacs", EMACS_VERSION, argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
156 #endif /* INFODOCK */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
157 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
158 gtk_init (&argc, &argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
160
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
161 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 orb = oaf_init (argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164 if (bonobo_init (orb, NULL, NULL) == FALSE)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
165 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
166 g_warning ("Could not initialize bonobo...");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
168
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
169 bonobo_activate ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
170 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
171
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
172 speed_up_interrupts ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
173
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
174 free_argc_argv (argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
175 return (Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
176 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
177
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
178 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
179 gtk_init_device (struct device *d, Lisp_Object props)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
180 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
181 Lisp_Object device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
182 Lisp_Object display;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 GtkWidget *app_shell = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
184 GdkVisual *visual = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
185 GdkColormap *cmap = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
187 device = wrap_device (d);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
188
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
189 /* gtk_init() and even gtk_check_init() are so brain dead that
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 getting an empty argv array causes them to abort. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 if (NILP (Vgtk_initial_argv_list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
193 invalid_operation ("gtk-initial-argv-list must be set before creating Gtk devices", Vgtk_initial_argv_list);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194 return;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
196
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
197 allocate_gtk_device_struct (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
198 display = DEVICE_CONNECTION (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
199
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
200 /* Attempt to load a site-specific gtkrc */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
201 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
202 Lisp_Object gtkrc = Fexpand_file_name (build_string ("gtkrc"), Vdata_directory);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203 gchar **default_files = gtk_rc_get_default_files ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
204 gint num_files;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
205
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
206 if (STRINGP (gtkrc))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
207 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
208 /* Found one, load it up! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 gchar **new_rc_files = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210 int ctr;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212 for (num_files = 0; default_files[num_files]; num_files++);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
213
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
214 new_rc_files = xnew_array_and_zero (gchar *, num_files + 3);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
215
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
216 new_rc_files[0] = XSTRING_DATA (gtkrc);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 for (ctr = 1; default_files[ctr-1]; ctr++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 new_rc_files[ctr] = g_strdup (default_files[ctr-1]);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
219
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
220 gtk_rc_set_default_files (new_rc_files);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
221
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
222 for (ctr = 1; new_rc_files[ctr]; ctr++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223 free(new_rc_files[ctr]);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
224
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
225 xfree (new_rc_files);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
226 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
227 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
228
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229 Fgtk_init (Vgtk_initial_argv_list);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
230
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
231 #ifdef __FreeBSD__
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
232 gdk_set_use_xshm (FALSE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
233 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
234
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
235 /* We attempt to load this file so that the user can set
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
236 ** gtk-initial-geometry and not need GNOME & session management to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 ** set their default frame size. It also avoids the flicker
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
238 ** associated with setting the frame size in your .emacs file.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
239 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 call4 (Qload, build_string ("~/.xemacs/gtk-options.el"), Qt, Qt, Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
241
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
242 #ifdef HAVE_GDK_IMLIB_INIT
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 /* Some themes in Gtk are so lame (most notably the Pixmap theme)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244 that they rely on gdk_imlib, but don't call its initialization
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245 routines. This makes them USELESS for non-gnome applications.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 So we bend over backwards to try and make them work. Losers. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
247 gdk_imlib_init ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
248 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
249
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
250 if (NILP (DEVICE_NAME (d)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251 DEVICE_NAME (d) = display;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
252
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
253 /* Always search for the best visual */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
254 visual = gdk_visual_get_best();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
255 cmap = gdk_colormap_new (visual, TRUE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257 DEVICE_GTK_VISUAL (d) = visual;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 DEVICE_GTK_COLORMAP (d) = cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
259 DEVICE_GTK_DEPTH (d) = visual->depth;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
260
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
261 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
262 GtkWidget *w = gtk_window_new (GTK_WINDOW_TOPLEVEL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
263
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
264 app_shell = gtk_xemacs_new (NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
265 gtk_container_add (GTK_CONTAINER (w), app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
266
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
267 gtk_widget_realize (w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
268 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
269
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
270 DEVICE_GTK_APP_SHELL (d) = app_shell;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
271
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
272 /* Realize the app_shell so that its window exists for GC creation
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
273 purposes */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
274 gtk_widget_realize (GTK_WIDGET (app_shell));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
275
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
276 /* Need to set up some selection handlers */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
277 gtk_selection_add_target (GTK_WIDGET (app_shell), GDK_SELECTION_PRIMARY,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
278 GDK_SELECTION_TYPE_STRING, 0);
746
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
279 gtk_selection_add_target (GTK_WIDGET (app_shell),
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
280 gdk_atom_intern("CLIPBOARD", FALSE),
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
281 GDK_SELECTION_TYPE_STRING, 0);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
282
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
283 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_get",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
284 GTK_SIGNAL_FUNC (emacs_gtk_selection_handle), NULL);
746
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
285 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_clear_event",
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
286 GTK_SIGNAL_FUNC (emacs_gtk_selection_clear_event_handle),
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
287 NULL);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
288 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_received",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
289 GTK_SIGNAL_FUNC (emacs_gtk_selection_received), NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
290
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
291 DEVICE_GTK_WM_COMMAND_FRAME (d) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
292
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
293 gtk_init_modifier_mapping (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
294
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
295 gtk_device_init_x_specific_cruft (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
296
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
297 init_baud_rate (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
298 init_one_device (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
299
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
300 DEVICE_GTK_GC_CACHE (d) = make_gc_cache (GTK_WIDGET (app_shell));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
301 DEVICE_GTK_GRAY_PIXMAP (d) = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
302
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
303 gtk_init_device_class (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
304
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
305 /* Run the elisp side of the X device initialization. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
306 call0 (Qinit_pre_gtk_win);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
307 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
308
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
309 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
310 gtk_finish_init_device (struct device *d, Lisp_Object props)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
311 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
312 call0 (Qinit_post_gtk_win);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
313 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
314
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
315 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
316 gtk_mark_device (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
317 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
318 mark_object (DEVICE_GTK_WM_COMMAND_FRAME (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
319 mark_object (DEVICE_GTK_DATA (d)->x_keysym_map_hashtable);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
320 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
321
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
322
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
323 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
324 /* closing an X connection */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
325 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
326
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
327 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
328 free_gtk_device_struct (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
329 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
330 xfree (d->device_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
331 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
332
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
333 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
334 gtk_delete_device (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
335 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
336 Lisp_Object device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
337
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
338 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
339 extern void (*__free_hook)();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
340 int checking_free;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
341 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
342
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
343 device = wrap_device (d);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
344 if (1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
345 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
346 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
347 checking_free = (__free_hook != 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
348
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
349 /* Disable strict free checking, to avoid bug in X library */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
350 if (checking_free)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
351 disable_strict_free_check ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
352 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
353
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
354 free_gc_cache (DEVICE_GTK_GC_CACHE (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
355
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
356 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
357 if (checking_free)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
358 enable_strict_free_check ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
359 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
360 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
361
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
362 if (EQ (device, Vdefault_gtk_device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
363 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
364 Lisp_Object devcons, concons;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
365 /* #### handle deleting last X device */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
366 Vdefault_gtk_device = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
367 DEVICE_LOOP_NO_BREAK (devcons, concons)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
368 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
369 if (DEVICE_GTK_P (XDEVICE (XCAR (devcons))) &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
370 !EQ (device, XCAR (devcons)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
371 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
372 Vdefault_gtk_device = XCAR (devcons);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
373 goto double_break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
374 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
375 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
376 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
377 double_break:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
378 free_gtk_device_struct (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
379 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
380
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
381
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
382 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
383 /* handle X errors */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
384 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
385
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
386 const char *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
387 gtk_event_name (GdkEventType event_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
388 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
389 GtkEnumValue *vals = gtk_type_enum_get_values (GTK_TYPE_GDK_EVENT_TYPE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
390
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 746
diff changeset
391 while (vals && ((GdkEventType)(vals->value) != event_type)) vals++;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
392
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
393 if (vals)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
394 return (vals->value_nick);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
395
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
396 return (NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
397 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
398
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
399
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
400 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
401 /* display information functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
402 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
403
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
404 DEFUN ("default-gtk-device", Fdefault_gtk_device, 0, 0, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
405 Return the default GTK device for resourcing.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
406 This is the first-created GTK device that still exists.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
407 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
408 ())
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
409 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
410 return Vdefault_gtk_device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
411 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
412
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
413 DEFUN ("gtk-display-visual-class", Fgtk_display_visual_class, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
414 Return the visual class of the GTK display DEVICE is using.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
415 The returned value will be one of the symbols `static-gray', `gray-scale',
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
416 `static-color', `pseudo-color', `true-color', or `direct-color'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
417 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
418 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
419 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
420 GdkVisual *vis = DEVICE_GTK_VISUAL (decode_gtk_device (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
421 switch (vis->type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
422 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
423 case GDK_VISUAL_STATIC_GRAY: return intern ("static-gray");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
424 case GDK_VISUAL_GRAYSCALE: return intern ("gray-scale");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
425 case GDK_VISUAL_STATIC_COLOR: return intern ("static-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
426 case GDK_VISUAL_PSEUDO_COLOR: return intern ("pseudo-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
427 case GDK_VISUAL_TRUE_COLOR: return intern ("true-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
428 case GDK_VISUAL_DIRECT_COLOR: return intern ("direct-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
429 default:
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
430 invalid_state ("display has an unknown visual class", Qunbound);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
431 return Qnil; /* suppress compiler warning */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
432 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
433 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
434
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
435 DEFUN ("gtk-display-visual-depth", Fgtk_display_visual_depth, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
436 Return the bitplane depth of the visual the GTK display DEVICE is using.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
437 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
438 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
439 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
440 return make_int (DEVICE_GTK_DEPTH (decode_gtk_device (device)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
441 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
442
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
443 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
444 gtk_device_system_metrics (struct device *d,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
445 enum device_metrics m)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
446 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
447 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
448 GtkStyle *style = gtk_widget_get_style (GTK_WIDGET (DEVICE_GTK_APP_SHELL (d)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
449
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
450 style = gtk_style_attach (style, w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
451 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
452
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
453 switch (m)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
454 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
455 case DM_size_device:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
456 return Fcons (make_int (gdk_screen_width ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
457 make_int (gdk_screen_height ()));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
458 case DM_size_device_mm:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
459 return Fcons (make_int (gdk_screen_width_mm ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
460 make_int (gdk_screen_height_mm ()));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
461 case DM_num_color_cells:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
462 return make_int (gdk_colormap_get_system_size ());
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
463 case DM_num_bit_planes:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
464 return make_int (DEVICE_GTK_DEPTH (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
465
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
466 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
467 case DM_color_default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
468 case DM_color_select:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
469 case DM_color_balloon:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
470 case DM_color_3d_face:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
471 case DM_color_3d_light:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
472 case DM_color_3d_dark:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
473 case DM_color_menu:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
474 case DM_color_menu_highlight:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
475 case DM_color_menu_button:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
476 case DM_color_menu_disabled:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
477 case DM_color_toolbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
478 case DM_color_scrollbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
479 case DM_color_desktop:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
480 case DM_color_workspace:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
481 case DM_font_default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
482 case DM_font_menubar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
483 case DM_font_dialog:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
484 case DM_size_cursor:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
485 case DM_size_scrollbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
486 case DM_size_menu:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
487 case DM_size_toolbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
488 case DM_size_toolbar_button:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
489 case DM_size_toolbar_border:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
490 case DM_size_icon:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
491 case DM_size_icon_small:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
492 case DM_size_workspace:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
493 case DM_device_dpi:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
494 case DM_mouse_buttons:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
495 case DM_swap_buttons:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
496 case DM_show_sounds:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
497 case DM_slow_device:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
498 case DM_security:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
499 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
500 default: /* No such device metric property for GTK devices */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
501 return Qunbound;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
502 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
503 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
504
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
505 DEFUN ("gtk-keysym-on-keyboard-p", Fgtk_keysym_on_keyboard_p, 1, 2, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
506 Return true if KEYSYM names a key on the keyboard of DEVICE.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
507 More precisely, return true if some keystroke (possibly including modifiers)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
508 on the keyboard of DEVICE keys generates KEYSYM.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
509 Valid keysyms are listed in the files /usr/include/X11/keysymdef.h and in
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
510 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
511 The keysym name can be provided in two forms:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
512 - if keysym is a string, it must be the name as known to X windows.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
513 - if keysym is a symbol, it must be the name as known to XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
514 The two names differ in capitalization and underscoring.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
515 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
516 (keysym, device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
517 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
518 struct device *d = decode_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
519
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
520 if (!DEVICE_GTK_P (d))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
521 gui_error ("Not a GTK device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
522
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
523 return (NILP (Fgethash (keysym, DEVICE_GTK_DATA (d)->x_keysym_map_hashtable, Qnil)) ?
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
524 Qnil : Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
525 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
526
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
527
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
528 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
529 /* grabs and ungrabs */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
530 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
531
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
532 DEFUN ("gtk-grab-pointer", Fgtk_grab_pointer, 0, 3, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
533 Grab the pointer and restrict it to its current window.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
534 If optional DEVICE argument is nil, the default device will be used.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
535 If optional CURSOR argument is non-nil, change the pointer shape to that
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
536 until `gtk-ungrab-pointer' is called (it should be an object returned by the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
537 `make-cursor-glyph' function).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
538 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
539 keyboard events during the grab.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
540 Returns t if the grab is successful, nil otherwise.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
541 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
542 (device, cursor, ignore_keyboard))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
543 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
544 GdkWindow *w;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
545 int result;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
546 struct device *d = decode_gtk_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
547
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
548 if (!NILP (cursor))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
549 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
550 CHECK_POINTER_GLYPH (cursor);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
551 cursor = glyph_image_instance (cursor, device, ERROR_ME, 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
552 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
553
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
554 /* We should call gdk_pointer_grab() and (possibly) gdk_keyboard_grab() here instead */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
555 w = GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (device_selected_frame (d)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
556
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
557 result = gdk_pointer_grab (w, FALSE,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
558 GDK_POINTER_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
559 GDK_POINTER_MOTION_HINT_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
560 GDK_BUTTON1_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
561 GDK_BUTTON2_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
562 GDK_BUTTON3_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
563 GDK_BUTTON_PRESS_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
564 GDK_BUTTON_RELEASE_MASK,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
565 w,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
566 NULL, /* #### BILL!!! Need to create a GdkCursor * as necessary! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
567 GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
568
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
569 return (result == 0) ? Qt : Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
570 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
571
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
572 DEFUN ("gtk-ungrab-pointer", Fgtk_ungrab_pointer, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
573 Release a pointer grab made with `gtk-grab-pointer'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
574 If optional first arg DEVICE is nil the default device is used.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
575 If it is t the pointer will be released on all GTK devices.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
576 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
577 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
578 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
579 if (!EQ (device, Qt))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
580 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
581 gdk_pointer_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
582 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
583 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
584 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
585 Lisp_Object devcons, concons;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
586
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
587 DEVICE_LOOP_NO_BREAK (devcons, concons)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
588 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
589 struct device *d = XDEVICE (XCAR (devcons));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
590
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
591 if (DEVICE_GTK_P (d))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
592 gdk_pointer_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
593 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
594 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
595 return Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
596 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
597
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
598 DEFUN ("gtk-grab-keyboard", Fgtk_grab_keyboard, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
599 Grab the keyboard on the given device (defaulting to the selected one).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
600 So long as the keyboard is grabbed, all keyboard events will be delivered
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
601 to emacs -- it is not possible for other clients to eavesdrop on them.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
602 Ungrab the keyboard with `gtk-ungrab-keyboard' (use an unwind-protect).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
603 Returns t if the grab is successful, nil otherwise.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
604 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
605 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
606 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
607 struct device *d = decode_gtk_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
608 GdkWindow *w = GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (device_selected_frame (d)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
609
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
610 gdk_keyboard_grab (w, FALSE, GDK_CURRENT_TIME );
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
611
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
612 return Qt;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
613 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
614
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
615 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
616 Release a keyboard grab made with `gtk-grab-keyboard'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
617 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
618 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
619 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
620 gdk_keyboard_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
621 return Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
622 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
623
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
624
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
625 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
626 /* Style Info */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
627 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
628 DEFUN ("gtk-style-info", Fgtk_style_info, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
629 Get the style information for a Gtk device.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
630 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
631 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
632 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
633 struct device *d = decode_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
634 GtkStyle *style = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
635 Lisp_Object result = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
636 GtkWidget *app_shell = GTK_WIDGET (DEVICE_GTK_APP_SHELL (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
637 GdkWindow *w = GET_GTK_WIDGET_WINDOW (app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
638
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
639 if (!DEVICE_GTK_P (d))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
640 return (Qnil);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
641
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
642 style = gtk_widget_get_style (app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
643 style = gtk_style_attach (style, w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
644
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
645 if (!style) return (Qnil);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
646
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
647 #define FROB_COLOR(slot, name) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
648 result = nconc2 (result, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
649 list2 (intern (name), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
650 list5 (xemacs_gtk_convert_color (&style->slot[GTK_STATE_NORMAL], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
651 xemacs_gtk_convert_color (&style->slot[GTK_STATE_ACTIVE], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
652 xemacs_gtk_convert_color (&style->slot[GTK_STATE_PRELIGHT], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
653 xemacs_gtk_convert_color (&style->slot[GTK_STATE_SELECTED], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
654 xemacs_gtk_convert_color (&style->slot[GTK_STATE_INSENSITIVE], app_shell))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
655
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
656 FROB_COLOR (fg, "foreground");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
657 FROB_COLOR (bg, "background");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
658 FROB_COLOR (light, "light");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
659 FROB_COLOR (dark, "dark");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
660 FROB_COLOR (mid, "mid");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
661 FROB_COLOR (text, "text");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
662 FROB_COLOR (base, "base");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
663 #undef FROB_COLOR
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
664
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
665 result = nconc2 (result, list2 (Qfont, convert_font (style->font)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
666
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
667 #define FROB_PIXMAP(state) (style->rc_style->bg_pixmap_name[state] ? build_string (style->rc_style->bg_pixmap_name[state]) : Qnil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
668
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
669 if (style->rc_style)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
670 result = nconc2 (result, list2 (Qbackground,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
671 list5 ( FROB_PIXMAP (GTK_STATE_NORMAL),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
672 FROB_PIXMAP (GTK_STATE_ACTIVE),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
673 FROB_PIXMAP (GTK_STATE_PRELIGHT),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
674 FROB_PIXMAP (GTK_STATE_SELECTED),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
675 FROB_PIXMAP (GTK_STATE_INSENSITIVE))));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
676 #undef FROB_PIXMAP
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
677
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
678 return (result);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
679 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
680
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
681
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
682 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
683 /* initialization */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
684 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
685
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
686 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
687 syms_of_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
688 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
689 DEFSUBR (Fdefault_gtk_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
690 DEFSUBR (Fgtk_keysym_on_keyboard_p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
691 DEFSUBR (Fgtk_display_visual_class);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
692 DEFSUBR (Fgtk_display_visual_depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
693 DEFSUBR (Fgtk_style_info);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
694 DEFSUBR (Fgtk_grab_pointer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
695 DEFSUBR (Fgtk_ungrab_pointer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
696 DEFSUBR (Fgtk_grab_keyboard);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
697 DEFSUBR (Fgtk_ungrab_keyboard);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
698 DEFSUBR (Fgtk_init);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
699
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
700 DEFSYMBOL (Qinit_pre_gtk_win);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
701 DEFSYMBOL (Qinit_post_gtk_win);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
702 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
703
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
704 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
705 console_type_create_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
706 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
707 CONSOLE_HAS_METHOD (gtk, init_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
708 CONSOLE_HAS_METHOD (gtk, finish_init_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
709 CONSOLE_HAS_METHOD (gtk, mark_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
710 CONSOLE_HAS_METHOD (gtk, delete_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
711 CONSOLE_HAS_METHOD (gtk, device_system_metrics);
545
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
712 /* CONSOLE_IMPLEMENTATION_FLAGS (gtk, XDEVIMPF_PIXEL_GEOMETRY); */
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
713 /* I inserted the above commented out statement, as the original
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
714 implementation of gtk_device_implementation_flags(), which I
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
715 deleted, contained commented out XDEVIMPF_PIXEL_GEOMETRY - kkm*/
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
716 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
717
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
718 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
719 vars_of_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
720 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
721 Fprovide (Qgtk);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
722
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
723 staticpro (&Vdefault_gtk_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
724
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
725 DEFVAR_LISP ("gtk-initial-argv-list", &Vgtk_initial_argv_list /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
726 You don't want to know.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
727 This is used during startup to communicate the remaining arguments in
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
728 `command-line-args-left' to the C code, which passes the args to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
729 the GTK initialization code, which removes some args, and then the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
730 args are placed back into `gtk-initial-arg-list' and thence into
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
731 `command-line-args-left'. Perhaps `command-line-args-left' should
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
732 just reside in C.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
733 */ );
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
734
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
735 DEFVAR_LISP ("gtk-initial-geometry", &Vgtk_initial_geometry /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
736 You don't want to know.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
737 This is used during startup to communicate the default geometry to GTK.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
738 */ );
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
739
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
740 Vdefault_gtk_device = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
741 Vgtk_initial_geometry = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
742 Vgtk_initial_argv_list = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
743 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
744
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
745 #include <gdk/gdkx.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
746 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
747 gtk_device_init_x_specific_cruft (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
748 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
749 DEVICE_INFD (d) = DEVICE_OUTFD (d) = ConnectionNumber (GDK_DISPLAY ());
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
750 }