annotate src/device-gtk.c @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents 183866b06e0b
children b13b1b7b11f1
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"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
41 #include "redisplay.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 #include "sysdep.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 #include "window.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44 #include "elhash.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46 #include "sysfile.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 #include "systime.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 #ifdef HAVE_GNOME
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50 #include <libgnomeui/libgnomeui.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54 #include <bonobo.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 Lisp_Object Vdefault_gtk_device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59 /* Qdisplay in general.c */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 Lisp_Object Qinit_pre_gtk_win, Qinit_post_gtk_win;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62 /* The application class of Emacs. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63 Lisp_Object Vgtk_emacs_application_class;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65 Lisp_Object Vgtk_initial_argv_list; /* #### ugh! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 Lisp_Object Vgtk_initial_geometry;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68 static void gtk_device_init_x_specific_cruft (struct device *d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69
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 /* helper functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73 /************************************************************************/
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 struct device *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 decode_gtk_device (Lisp_Object device)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 XSETDEVICE (device, decode_device (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
79 CHECK_GTK_DEVICE (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 return XDEVICE (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 }
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 /* initializing a GTK connection */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 extern Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 xemacs_gtk_convert_color(GdkColor *c, GtkWidget *w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90 extern Lisp_Object __get_gtk_font_truename (GdkFont *gdk_font, int expandp);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92 #define convert_font(f) __get_gtk_font_truename (f, 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
93
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
94 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
95 allocate_gtk_device_struct (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
96 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 d->device_data = xnew_and_zero (struct gtk_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98 DEVICE_GTK_DATA (d)->x_keysym_map_hashtable = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 }
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 gtk_init_device_class (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 if (DEVICE_GTK_DEPTH(d) > 2)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106 switch (DEVICE_GTK_VISUAL(d)->type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108 case GDK_VISUAL_STATIC_GRAY:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 case GDK_VISUAL_GRAYSCALE:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 DEVICE_CLASS (d) = Qgrayscale;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 DEVICE_CLASS (d) = Qcolor;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 }
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 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 DEVICE_CLASS (d) = Qmono;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 }
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 #ifdef HAVE_GDK_IMLIB_INIT
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 extern void gdk_imlib_init(void);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124 extern void emacs_gtk_selection_handle (GtkWidget *,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 GtkSelectionData *selection_data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 guint info,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 guint time_stamp,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128 gpointer data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 extern void emacs_gtk_selection_received (GtkWidget *widget,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 GtkSelectionData *selection_data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 gpointer user_data);
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 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 static CORBA_ORB orb;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 #endif
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 DEFUN ("gtk-init", Fgtk_init, 1, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 Initialize the GTK subsystem.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 ARGS is a standard list of command-line arguments.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 No effect if called more than once. Called automatically when
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142 creating the first GTK device. Must be called manually from batch
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 mode.
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 (args))
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 int argc;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148 char **argv;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 static int done;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 if (done)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
153 return (Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
155
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
156 make_argc_argv (args, &argc, &argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
157
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
158 slow_down_interrupts ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 #ifdef HAVE_GNOME
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
160 #ifdef INFODOCK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
161 gnome_init ("InfoDock", EMACS_VERSION, argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163 gnome_init ("XEmacs", EMACS_VERSION, argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164 #endif /* INFODOCK */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
165 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
166 gtk_init (&argc, &argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167 #endif
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 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
170 orb = oaf_init (argc, argv);
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 if (bonobo_init (orb, NULL, NULL) == FALSE)
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 g_warning ("Could not initialize bonobo...");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
175 }
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 bonobo_activate ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
178 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
179
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
180 speed_up_interrupts ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
181
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
182 free_argc_argv (argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 return (Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
184 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
185
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
187 gtk_init_device (struct device *d, Lisp_Object props)
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 Lisp_Object device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 Lisp_Object display;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 GtkWidget *app_shell = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192 GdkVisual *visual = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
193 GdkColormap *cmap = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195 XSETDEVICE (device, d);
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 /* gtk_init() and even gtk_check_init() are so brain dead that
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
198 getting an empty argv array causes them to abort. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
199 if (NILP (Vgtk_initial_argv_list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
200 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
201 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
202 return;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
204
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
205 allocate_gtk_device_struct (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
206 display = DEVICE_CONNECTION (d);
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 /* Attempt to load a site-specific gtkrc */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210 Lisp_Object gtkrc = Fexpand_file_name (build_string ("gtkrc"), Vdata_directory);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211 gchar **default_files = gtk_rc_get_default_files ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212 gint 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 if (STRINGP (gtkrc))
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 /* Found one, load it up! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 gchar **new_rc_files = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 int ctr;
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 for (num_files = 0; default_files[num_files]; num_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 new_rc_files = xnew_array_and_zero (gchar *, num_files + 3);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
224 new_rc_files[0] = XSTRING_DATA (gtkrc);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
225 for (ctr = 1; default_files[ctr-1]; ctr++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
226 new_rc_files[ctr] = g_strdup (default_files[ctr-1]);
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 gtk_rc_set_default_files (new_rc_files);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
230 for (ctr = 1; new_rc_files[ctr]; ctr++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
231 free(new_rc_files[ctr]);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
232
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
233 xfree (new_rc_files);
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 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
236
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 Fgtk_init (Vgtk_initial_argv_list);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
238
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
239 #ifdef __FreeBSD__
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 gdk_set_use_xshm (FALSE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
241 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
242
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 /* We attempt to load this file so that the user can set
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244 ** gtk-initial-geometry and not need GNOME & session management to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245 ** set their default frame size. It also avoids the flicker
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 ** associated with setting the frame size in your .emacs file.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
247 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
248 call4 (Qload, build_string ("~/.xemacs/gtk-options.el"), Qt, Qt, Qt);
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 #ifdef HAVE_GDK_IMLIB_INIT
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251 /* Some themes in Gtk are so lame (most notably the Pixmap theme)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
252 that they rely on gdk_imlib, but don't call its initialization
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
253 routines. This makes them USELESS for non-gnome applications.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
254 So we bend over backwards to try and make them work. Losers. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
255 gdk_imlib_init ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 if (NILP (DEVICE_NAME (d)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
259 DEVICE_NAME (d) = display;
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 /* Always search for the best visual */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
262 visual = gdk_visual_get_best();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
263 cmap = gdk_colormap_new (visual, TRUE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
264
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
265 DEVICE_GTK_VISUAL (d) = visual;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
266 DEVICE_GTK_COLORMAP (d) = cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
267 DEVICE_GTK_DEPTH (d) = visual->depth;
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 GtkWidget *w = gtk_window_new (GTK_WINDOW_TOPLEVEL);
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 app_shell = gtk_xemacs_new (NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
273 gtk_container_add (GTK_CONTAINER (w), app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
274
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
275 gtk_widget_realize (w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
276 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
277
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
278 DEVICE_GTK_APP_SHELL (d) = app_shell;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
279
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
280 /* Realize the app_shell so that its window exists for GC creation
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
281 purposes */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
282 gtk_widget_realize (GTK_WIDGET (app_shell));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
283
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
284 /* Need to set up some selection handlers */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
285 gtk_selection_add_target (GTK_WIDGET (app_shell), GDK_SELECTION_PRIMARY,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
286 GDK_SELECTION_TYPE_STRING, 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
287
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
288 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_get",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
289 GTK_SIGNAL_FUNC (emacs_gtk_selection_handle), NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
290 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_received",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
291 GTK_SIGNAL_FUNC (emacs_gtk_selection_received), NULL);
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 DEVICE_GTK_WM_COMMAND_FRAME (d) = Qnil;
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_init_modifier_mapping (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 gtk_device_init_x_specific_cruft (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
298
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
299 init_baud_rate (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
300 init_one_device (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
301
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
302 DEVICE_GTK_GC_CACHE (d) = make_gc_cache (GTK_WIDGET (app_shell));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
303 DEVICE_GTK_GRAY_PIXMAP (d) = NULL;
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 gtk_init_device_class (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
306
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
307 /* Run the elisp side of the X device initialization. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
308 call0 (Qinit_pre_gtk_win);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
309 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
310
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
311 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
312 gtk_finish_init_device (struct device *d, Lisp_Object props)
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 call0 (Qinit_post_gtk_win);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
315 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
316
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
317 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
318 gtk_mark_device (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
319 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
320 mark_object (DEVICE_GTK_WM_COMMAND_FRAME (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
321 mark_object (DEVICE_GTK_DATA (d)->x_keysym_map_hashtable);
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
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 /* closing an X connection */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
327 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
328
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
329 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
330 free_gtk_device_struct (struct device *d)
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 xfree (d->device_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
333 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
334
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
335 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
336 gtk_delete_device (struct device *d)
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 Lisp_Object device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
339
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
340 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
341 extern void (*__free_hook)();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
342 int checking_free;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
343 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
344
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
345 XSETDEVICE (device, d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
346 if (1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
347 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
348 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
349 checking_free = (__free_hook != 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
350
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
351 /* Disable strict free checking, to avoid bug in X library */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
352 if (checking_free)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
353 disable_strict_free_check ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
354 #endif
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 free_gc_cache (DEVICE_GTK_GC_CACHE (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
357
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
358 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
359 if (checking_free)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
360 enable_strict_free_check ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
361 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
362 }
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 if (EQ (device, Vdefault_gtk_device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
365 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
366 Lisp_Object devcons, concons;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
367 /* #### handle deleting last X device */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
368 Vdefault_gtk_device = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
369 DEVICE_LOOP_NO_BREAK (devcons, concons)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
370 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
371 if (DEVICE_GTK_P (XDEVICE (XCAR (devcons))) &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
372 !EQ (device, XCAR (devcons)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
373 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
374 Vdefault_gtk_device = XCAR (devcons);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
375 goto double_break;
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 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
378 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
379 double_break:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
380 free_gtk_device_struct (d);
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
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 /* handle X errors */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
386 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
387
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
388 const char *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
389 gtk_event_name (GdkEventType event_type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
390 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
391 GtkEnumValue *vals = gtk_type_enum_get_values (GTK_TYPE_GDK_EVENT_TYPE);
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 while (vals && (vals->value != event_type)) vals++;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
394
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
395 if (vals)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
396 return (vals->value_nick);
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 return (NULL);
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
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 /* display information functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
404 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
405
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
406 DEFUN ("default-gtk-device", Fdefault_gtk_device, 0, 0, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
407 Return the default GTK device for resourcing.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
408 This is the first-created GTK device that still exists.
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 ())
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 return Vdefault_gtk_device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
413 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
414
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
415 DEFUN ("gtk-display-visual-class", Fgtk_display_visual_class, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
416 Return the visual class of the GTK display DEVICE is using.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
417 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
418 `static-color', `pseudo-color', `true-color', or `direct-color'.
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 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
421 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
422 GdkVisual *vis = DEVICE_GTK_VISUAL (decode_gtk_device (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
423 switch (vis->type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
424 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
425 case GDK_VISUAL_STATIC_GRAY: return intern ("static-gray");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
426 case GDK_VISUAL_GRAYSCALE: return intern ("gray-scale");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
427 case GDK_VISUAL_STATIC_COLOR: return intern ("static-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
428 case GDK_VISUAL_PSEUDO_COLOR: return intern ("pseudo-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
429 case GDK_VISUAL_TRUE_COLOR: return intern ("true-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
430 case GDK_VISUAL_DIRECT_COLOR: return intern ("direct-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
431 default:
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
432 invalid_state ("display has an unknown visual class", Qunbound);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
433 return Qnil; /* suppress compiler warning */
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 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
436
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
437 DEFUN ("gtk-display-visual-depth", Fgtk_display_visual_depth, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
438 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
439 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
440 (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 return make_int (DEVICE_GTK_DEPTH (decode_gtk_device (device)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
443 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
444
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
445 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
446 gtk_device_system_metrics (struct device *d,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
447 enum device_metrics m)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
448 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
449 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
450 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
451
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
452 style = gtk_style_attach (style, w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
453 #endif
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 switch (m)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
456 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
457 case DM_size_device:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
458 return Fcons (make_int (gdk_screen_width ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
459 make_int (gdk_screen_height ()));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
460 case DM_size_device_mm:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
461 return Fcons (make_int (gdk_screen_width_mm ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
462 make_int (gdk_screen_height_mm ()));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
463 case DM_num_color_cells:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
464 return make_int (gdk_colormap_get_system_size ());
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
465 case DM_num_bit_planes:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
466 return make_int (DEVICE_GTK_DEPTH (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
467
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
468 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
469 case DM_color_default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
470 case DM_color_select:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
471 case DM_color_balloon:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
472 case DM_color_3d_face:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
473 case DM_color_3d_light:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
474 case DM_color_3d_dark:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
475 case DM_color_menu:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
476 case DM_color_menu_highlight:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
477 case DM_color_menu_button:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
478 case DM_color_menu_disabled:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
479 case DM_color_toolbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
480 case DM_color_scrollbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
481 case DM_color_desktop:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
482 case DM_color_workspace:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
483 case DM_font_default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
484 case DM_font_menubar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
485 case DM_font_dialog:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
486 case DM_size_cursor:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
487 case DM_size_scrollbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
488 case DM_size_menu:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
489 case DM_size_toolbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
490 case DM_size_toolbar_button:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
491 case DM_size_toolbar_border:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
492 case DM_size_icon:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
493 case DM_size_icon_small:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
494 case DM_size_workspace:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
495 case DM_device_dpi:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
496 case DM_mouse_buttons:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
497 case DM_swap_buttons:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
498 case DM_show_sounds:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
499 case DM_slow_device:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
500 case DM_security:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
501 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
502 default: /* No such device metric property for GTK devices */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
503 return Qunbound;
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 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
506
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
507 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
508 Return true if KEYSYM names a key on the keyboard of DEVICE.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
509 More precisely, return true if some keystroke (possibly including modifiers)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
510 on the keyboard of DEVICE keys generates KEYSYM.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
511 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
512 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
513 The keysym name can be provided in two forms:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
514 - 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
515 - 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
516 The two names differ in capitalization and underscoring.
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 (keysym, 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 struct device *d = decode_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
521
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
522 if (!DEVICE_GTK_P (d))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
523 gui_error ("Not a GTK device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
524
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
525 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
526 Qnil : Qt);
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
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 /* grabs and ungrabs */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
532 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
533
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
534 DEFUN ("gtk-grab-pointer", Fgtk_grab_pointer, 0, 3, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
535 Grab the pointer and restrict it to its current window.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
536 If optional DEVICE argument is nil, the default device will be used.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
537 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
538 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
539 `make-cursor-glyph' function).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
540 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
541 keyboard events during the grab.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
542 Returns t if the grab is successful, nil otherwise.
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 (device, cursor, ignore_keyboard))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
545 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
546 GdkWindow *w;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
547 int result;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
548 struct device *d = decode_gtk_device (device);
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 if (!NILP (cursor))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
551 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
552 CHECK_POINTER_GLYPH (cursor);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
553 cursor = glyph_image_instance (cursor, device, ERROR_ME, 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
554 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
555
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
556 /* 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
557 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
558
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
559 result = gdk_pointer_grab (w, FALSE,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
560 GDK_POINTER_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
561 GDK_POINTER_MOTION_HINT_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
562 GDK_BUTTON1_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
563 GDK_BUTTON2_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
564 GDK_BUTTON3_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
565 GDK_BUTTON_PRESS_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
566 GDK_BUTTON_RELEASE_MASK,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
567 w,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
568 NULL, /* #### BILL!!! Need to create a GdkCursor * as necessary! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
569 GDK_CURRENT_TIME);
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 return (result == 0) ? Qt : Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
572 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
573
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
574 DEFUN ("gtk-ungrab-pointer", Fgtk_ungrab_pointer, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
575 Release a pointer grab made with `gtk-grab-pointer'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
576 If optional first arg DEVICE is nil the default device is used.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
577 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
578 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
579 (device))
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 if (!EQ (device, Qt))
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 gdk_pointer_ungrab (GDK_CURRENT_TIME);
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 else
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 Lisp_Object 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 DEVICE_LOOP_NO_BREAK (devcons, concons)
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 struct device *d = XDEVICE (XCAR (devcons));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
592
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
593 if (DEVICE_GTK_P (d))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
594 gdk_pointer_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
595 }
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 return Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
598 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
599
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
600 DEFUN ("gtk-grab-keyboard", Fgtk_grab_keyboard, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
601 Grab the keyboard on the given device (defaulting to the selected one).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
602 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
603 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
604 Ungrab the keyboard with `gtk-ungrab-keyboard' (use an unwind-protect).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
605 Returns t if the grab is successful, nil otherwise.
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 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
608 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
609 struct device *d = decode_gtk_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
610 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
611
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
612 gdk_keyboard_grab (w, FALSE, GDK_CURRENT_TIME );
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 return Qt;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
615 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
616
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
617 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
618 Release a keyboard grab made with `gtk-grab-keyboard'.
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 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
621 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
622 gdk_keyboard_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
623 return Qnil;
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
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 /* Style Info */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
629 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
630 DEFUN ("gtk-style-info", Fgtk_style_info, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
631 Get the style information for a Gtk 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 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
634 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
635 struct device *d = decode_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
636 GtkStyle *style = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
637 Lisp_Object result = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
638 GtkWidget *app_shell = GTK_WIDGET (DEVICE_GTK_APP_SHELL (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
639 GdkWindow *w = GET_GTK_WIDGET_WINDOW (app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
640
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
641 if (!DEVICE_GTK_P (d))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
642 return (Qnil);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
643
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
644 style = gtk_widget_get_style (app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
645 style = gtk_style_attach (style, w);
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 if (!style) return (Qnil);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
648
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
649 #define FROB_COLOR(slot, name) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
650 result = nconc2 (result, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
651 list2 (intern (name), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
652 list5 (xemacs_gtk_convert_color (&style->slot[GTK_STATE_NORMAL], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
653 xemacs_gtk_convert_color (&style->slot[GTK_STATE_ACTIVE], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
654 xemacs_gtk_convert_color (&style->slot[GTK_STATE_PRELIGHT], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
655 xemacs_gtk_convert_color (&style->slot[GTK_STATE_SELECTED], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
656 xemacs_gtk_convert_color (&style->slot[GTK_STATE_INSENSITIVE], app_shell))))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
657
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
658 FROB_COLOR (fg, "foreground");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
659 FROB_COLOR (bg, "background");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
660 FROB_COLOR (light, "light");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
661 FROB_COLOR (dark, "dark");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
662 FROB_COLOR (mid, "mid");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
663 FROB_COLOR (text, "text");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
664 FROB_COLOR (base, "base");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
665 #undef FROB_COLOR
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 result = nconc2 (result, list2 (Qfont, convert_font (style->font)));
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 #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
670
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
671 if (style->rc_style)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
672 result = nconc2 (result, list2 (Qbackground,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
673 list5 ( FROB_PIXMAP (GTK_STATE_NORMAL),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
674 FROB_PIXMAP (GTK_STATE_ACTIVE),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
675 FROB_PIXMAP (GTK_STATE_PRELIGHT),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
676 FROB_PIXMAP (GTK_STATE_SELECTED),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
677 FROB_PIXMAP (GTK_STATE_INSENSITIVE))));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
678 #undef FROB_PIXMAP
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 return (result);
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
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 /* initialization */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
686 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
687
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
688 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
689 syms_of_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
690 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
691 DEFSUBR (Fdefault_gtk_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
692 DEFSUBR (Fgtk_keysym_on_keyboard_p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
693 DEFSUBR (Fgtk_display_visual_class);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
694 DEFSUBR (Fgtk_display_visual_depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
695 DEFSUBR (Fgtk_style_info);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
696 DEFSUBR (Fgtk_grab_pointer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
697 DEFSUBR (Fgtk_ungrab_pointer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
698 DEFSUBR (Fgtk_grab_keyboard);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
699 DEFSUBR (Fgtk_ungrab_keyboard);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
700 DEFSUBR (Fgtk_init);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
701
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
702 DEFSYMBOL (Qinit_pre_gtk_win);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
703 DEFSYMBOL (Qinit_post_gtk_win);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
704 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
705
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
706 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
707 console_type_create_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
708 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
709 CONSOLE_HAS_METHOD (gtk, init_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
710 CONSOLE_HAS_METHOD (gtk, finish_init_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
711 CONSOLE_HAS_METHOD (gtk, mark_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
712 CONSOLE_HAS_METHOD (gtk, delete_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
713 CONSOLE_HAS_METHOD (gtk, device_system_metrics);
545
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
714 /* CONSOLE_IMPLEMENTATION_FLAGS (gtk, XDEVIMPF_PIXEL_GEOMETRY); */
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
715 /* 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
716 implementation of gtk_device_implementation_flags(), which I
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
717 deleted, contained commented out XDEVIMPF_PIXEL_GEOMETRY - kkm*/
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
718 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
719
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
720 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
721 vars_of_device_gtk (void)
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 Fprovide (Qgtk);
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 staticpro (&Vdefault_gtk_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
726
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
727 DEFVAR_LISP ("gtk-initial-argv-list", &Vgtk_initial_argv_list /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
728 You don't want to know.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
729 This is used during startup to communicate the remaining arguments in
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
730 `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
731 the GTK initialization code, which removes some args, and then the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
732 args are placed back into `gtk-initial-arg-list' and thence into
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
733 `command-line-args-left'. Perhaps `command-line-args-left' should
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
734 just reside in C.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
735 */ );
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
736
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
737 DEFVAR_LISP ("gtk-initial-geometry", &Vgtk_initial_geometry /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
738 You don't want to know.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
739 This is used during startup to communicate the default geometry to GTK.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
740 */ );
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
741
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
742 Vdefault_gtk_device = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
743 Vgtk_initial_geometry = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
744 Vgtk_initial_argv_list = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
745 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
746
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
747 #include <gdk/gdkx.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
748 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
749 gtk_device_init_x_specific_cruft (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
750 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
751 DEVICE_INFD (d) = DEVICE_OUTFD (d) = ConnectionNumber (GDK_DISPLAY ());
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
752 }