annotate src/device-gtk.c @ 872:79c6ff3eef26

[xemacs-hg @ 2002-06-20 21:18:01 by ben] font changes etc.; some 21.4 changes mule/mule-msw-init-late.el: Specify charset->windows-registry conversion. mule/mule-x-init.el: Delete extra mule font additions here. Put them in faces.c. cl-macs.el: Document better. font-lock.el: Move Lisp function regexp to lisp-mode.el. lisp-mode.el: Various indentation fixes: Handle flet functions better. Handle argument lists in defuns and flets. Handle quoted lists, e.g. property lists -- don't indent like function calls. Distinguish between lambdas and other lists. lisp-mode.el: Handle this form. faces.el, font-menu.el, font.el, gtk-faces.el, msw-faces.el, msw-font-menu.el, x-faces.el, x-init.el: Major overhaul of face-handling code: -- Fix lots of bogus code in msw-faces.el, msw-font-menu.el, font-menu.el that was "truenaming" font specs -- i.e. in the process of frobbing a particular field in a general user-specified font spec with wildcarded fields, sticking in particular values for all the remaining wildcarded fields. This bug was rampant everywhere except in x-faces.el (the oldest and only correctly written code). This also means that we need to work with font names at all times and not font instances, because a font instance is essentially a truenamed font. -- Total rewrite of extremely junky code in msw-faces.el. Work with names as well as font instances, and return names; stop truenaming when canonicalizing and frobbing; fix handling of the combined style field, i.e. weight/slant (also fixed in font.el). -- Totally rewrite the frobbing functions in faces.el. This time, we frob all the instantiators rather than just computing a single instance value and working backwards. That way, e.g., `bold' will work for all charsets that have bold available, rather than only for whatever charset was part of the computed font instance (another example of the truename virus). Also fix up code to look at the fallbacks (all of them) when no global value present, so we don't need to put something in the global value. Intelligently handle a request to frob a buffer locale, rather than signalling an error. When frobbing instantiators, try hard to figure out what device type is associated with them, and frob each according to its own proper device type. Correctly handle inheritance vectors given as instantiators. Preserve existing tags when putting back frobbed instantiators. Extract out general specifier-frobbing code into specifier.el. Document everything cleanly. Do lots of other things better, etc. -- Don't duplicatively set a global specification for the default font -- it's already in the fallback and we no longer need a default global specification present. Delete various code in x-faces.el and msw-faces.el that duplicated the lists of fonts in faces.c. -- init-global-faces was not being called at all under MS Windows! Major bogosity. That caused device-specific values to get stuck into all the fonts, making it very hard to change them -- setting global specs caused nothing to happen. -- Correct weight names in font.el. -- Lots more font fixups in objects*.c. Printer.el: Warning fix. specifier.el: Add more args to map-specifier. Add various "heuristic" specifier functions to aid in creation of specifier-munging code such as in faces.el. subr.el: New functions. lwlib.c: Fix warning. config.inc.samp: Clean up, add args to control fastcall (not yet supported! the changes needed are in another ws of mine), profile support, vc6 support, union-type. xemacs.dsp, xemacs.mak: Semi-major overhaul. Fix bug where dump-id was always getting recomputed, forcing a redump even when nothing changed. Add support for fastcall. Support edit-and-continue (on by default) with vc6. Use incremental linking when doing a debug compilation. Add support for profiling. Consolidate the various debug flags. Partial support for "batch-compiling" -- compiling many files on a single invocation of the compiler. Doesn't seem to help that much for me, so it's not finished or enabled by default. Remove HAVE_MSW_C_DIRED, we always do. Correct some sloppy use of directories. s/cygwin32.h: Allow pdump to work under Cygwin (mmap is broken, so need to undefine HAVE_MMAP). s/win32-common.h, s/windowsnt.h: Support for fastcall. Add WIN32_ANY for identifying all Win32 variants (Cygwin, native, MinGW). Both of these are properly used in another ws. alloc.c, balloon-x.c, buffer.c, bytecode.c, callint.c, cm.c, cmdloop.c, cmds.c, console-gtk.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console-x.h, console.c, console.h, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, device.h, devslots.h, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, editfns.c, emacs.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, extents.c, extents.h, faces.c, fileio.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gui-gtk.c, gui-msw.c, gui-x.c, gui.c, gutter.c, input-method-xlib.c, intl-encap-win32.c, intl-win32.c, keymap.c, lisp.h, macros.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h, minibuf.c, mule-charset.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-msw.h, objects-tty.c, objects-tty.h, objects-x.c, objects-x.h, objects.c, objects.h, postgresql.c, print.c, process.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, select-gtk.c, select-msw.c, select-x.c, select.c, signal.c, sound.c, specifier.c, symbols.c, syntax.c, sysdep.c, syssignal.h, syswindows.h, toolbar-common.c, toolbar-gtk.c, toolbar-msw.c, toolbar-x.c, toolbar.c, unicode.c, window.c, window.h: The following are the major changes made: (1) Separation of various header files into an external and an internal version, similar to the existing separation of process.h and procimpl.h. Eventually this should be done for all Lisp objects. The external version has the same name as currently; the internal adds -impl. The external file has XFOO() macros for objects, but the structure is opaque and defined only in the internal file. It's now reasonable to move all prototypes in lisp.h into the appropriate external file, and this should be done. Currently, separation has been done on extents.h, objects*.h, console.h, device.h, frame.h, and window.h. For c/d/f/w, the most basic properties are available in the external header file, with the macros resolving to functions. In the internal header file, the macros are redefined to directly access the structure. Also, the global MARK_FOO_CHANGED macros have been made into functions so that they can be accessed without needing to include lots of -impl headers -- they are used in almost exclusively in non-time-critical functions, and take up enough time that the function overhead will be negligible. Similarly, the function overhead from making the basic properties mentioned above into functions is negligible, and code that does heavy accessing of c/d/f/w structures inevitably ends up needing the internal header files, anyway. (2) More face changes. -- Major rewrite of objects-msw.c. Now handles wildcard specs properly, rather than "truenaming" (or even worse, signalling an error, which previously happened with some of the fallbacks if you tried to use them in make-font-instance!). -- Split charset matching of fonts into two stages -- one to find a font specifically designed for a particular charset (by examining its registry), the second to find a Unicode font that can support the charset. This needs to proceed as two complete, separate instantiations in order to work properly (otherwise many of the fonts in the HELLO page look wrong). This should also make it easy to support iso10646 (Unicode) fonts under X. -- All default values for fonts are now completely specified in the fallbacks. Stuff from mule-x-init.el has all been moved here, merged with the existing specs, and totally rethought so you get sensible results. (HELLO now looks much better!). -- Generalize the "default X/GTK device" stuff into a per-device-type "default device". -- Add mswindows-{set-}charset-registry. In time, charset<->code-page conversion functions will be removed. -- Wrap protective code around calls to compute device specifier tags, and do this computation before calling the face initialization code because the latter may need these tags to be correctly updated. (3) Other changes. EmacsFrame.c, glyphs-msw.c, eval.c, gui-x.c, intl-encap-win32.c, search.c, signal.c, toolbar-msw.c, unicode.c: Warning fixes. config.h.in: #undefs meant to be frobbed by configure *MUST* go inside of #ifndef WIN32_NO_CONFIGURE, and everything else *MUST* go outside! eval.c: Let detailed backtraces be detailed. specifier.c: Don't override user's print-string-length/print-length settings. glyphs.c: New function image-instance-instantiator. config.h.in, sysdep.c: Changes for fastcall. sysdep.c, nt.c: Fix up a previous botched patch that tried to add support for both EEXIST and EACCES. IF THE BOTCHED PATCH WENT INTO 21.4, THIS FIXUP NEEDS TO GO IN, TOO. search.c: Fix *evil* crash due to incorrect synching of syntax-cache code with 21.1. THIS SHOULD GO INTO 21.4.
author ben
date Thu, 20 Jun 2002 21:19:10 +0000
parents 42375619fa45
children e22b0213b713
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.
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
4 Copyright (C) 2002 Ben Wing.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 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
10 Free Software Foundation; either version 2, or (at your option) any
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 later version.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 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
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 for more details.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 /* Synched up with: Not in FSF. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 /* Original authors: Jamie Zawinski and the FSF */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26 /* Rewritten by Ben Wing and Chuck Thompson. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 /* Gtk flavor written by William Perry */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 #include <config.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 #include "lisp.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
32 #include "buffer.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
33 #include "device-impl.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
34 #include "elhash.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
35 #include "events.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
36 #include "faces.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
37 #include "frame-impl.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
38 #include "redisplay.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
39 #include "sysdep.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
40 #include "window.h"
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
41
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 863
diff changeset
42 #include "console-gtk-impl.h"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 #include "gccache-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44 #include "glyphs-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 #include "objects-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46 #include "gtk-xemacs.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 #include "sysfile.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 #include "systime.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 #ifdef HAVE_GNOME
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 #include <libgnomeui/libgnomeui.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 #include <bonobo.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 #endif
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 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
78 device = wrap_device (decode_device (device));
462
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
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
124 extern void emacs_gtk_selection_handle (GtkWidget *,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
125 GtkSelectionData *selection_data,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
126 guint info,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
127 guint time_stamp,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
128 gpointer data);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
129 extern void emacs_gtk_selection_clear_event_handle (GtkWidget *widget,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
130 GdkEventSelection *event,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
131 gpointer data);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
132 extern void emacs_gtk_selection_received (GtkWidget *widget,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
133 GtkSelectionData *selection_data,
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
134 gpointer user_data);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 809
diff changeset
135
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 static CORBA_ORB orb;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140 DEFUN ("gtk-init", Fgtk_init, 1, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 Initialize the GTK subsystem.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142 ARGS is a standard list of command-line arguments.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 No effect if called more than once. Called automatically when
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145 creating the first GTK device. Must be called manually from batch
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 mode.
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 (args))
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 int argc;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 char **argv;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 static int done;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
153
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 if (done)
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 return (Qt);
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 make_argc_argv (args, &argc, &argv);
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 slow_down_interrupts ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 #ifdef HAVE_GNOME
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163 #ifdef INFODOCK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164 gnome_init ("InfoDock", EMACS_VERSION, argc, argv);
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 gnome_init ("XEmacs", EMACS_VERSION, argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167 #endif /* INFODOCK */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
168 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
169 gtk_init (&argc, &argv);
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 #ifdef HAVE_BONOBO
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
173 orb = oaf_init (argc, argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
174
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
175 if (bonobo_init (orb, NULL, NULL) == FALSE)
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 g_warning ("Could not initialize bonobo...");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
178 }
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 bonobo_activate ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
181 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
182
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 speed_up_interrupts ();
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 free_argc_argv (argv);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186 return (Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
187 }
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 gtk_init_device (struct device *d, Lisp_Object props)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192 Lisp_Object device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
193 Lisp_Object display;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194 GtkWidget *app_shell = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195 GdkVisual *visual = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
196 GdkColormap *cmap = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
197
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
198 device = wrap_device (d);
462
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 /* gtk_init() and even gtk_check_init() are so brain dead that
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
201 getting an empty argv array causes them to abort. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
202 if (NILP (Vgtk_initial_argv_list))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
204 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
205 return;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
206 }
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 allocate_gtk_device_struct (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 display = DEVICE_CONNECTION (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211 /* Attempt to load a site-specific gtkrc */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
213 Lisp_Object gtkrc = Fexpand_file_name (build_string ("gtkrc"), Vdata_directory);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
214 gchar **default_files = gtk_rc_get_default_files ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
215 gint num_files;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
216
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 if (STRINGP (gtkrc))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
219 /* Found one, load it up! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
220 gchar **new_rc_files = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
221 int ctr;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
222
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223 for (num_files = 0; default_files[num_files]; num_files++);
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 new_rc_files = xnew_array_and_zero (gchar *, num_files + 3);
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 new_rc_files[0] = XSTRING_DATA (gtkrc);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
228 for (ctr = 1; default_files[ctr-1]; ctr++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229 new_rc_files[ctr] = g_strdup (default_files[ctr-1]);
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 gtk_rc_set_default_files (new_rc_files);
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 for (ctr = 1; new_rc_files[ctr]; ctr++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
234 free(new_rc_files[ctr]);
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 xfree (new_rc_files);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 }
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 Fgtk_init (Vgtk_initial_argv_list);
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 __FreeBSD__
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 gdk_set_use_xshm (FALSE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 /* We attempt to load this file so that the user can set
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
247 ** gtk-initial-geometry and not need GNOME & session management to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
248 ** set their default frame size. It also avoids the flicker
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
249 ** associated with setting the frame size in your .emacs file.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
250 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251 call4 (Qload, build_string ("~/.xemacs/gtk-options.el"), Qt, Qt, Qt);
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 #ifdef HAVE_GDK_IMLIB_INIT
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
254 /* Some themes in Gtk are so lame (most notably the Pixmap theme)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
255 that they rely on gdk_imlib, but don't call its initialization
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256 routines. This makes them USELESS for non-gnome applications.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257 So we bend over backwards to try and make them work. Losers. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 gdk_imlib_init ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
259 #endif
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 if (NILP (DEVICE_NAME (d)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
262 DEVICE_NAME (d) = display;
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 /* Always search for the best visual */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
265 visual = gdk_visual_get_best();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
266 cmap = gdk_colormap_new (visual, TRUE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
267
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
268 DEVICE_GTK_VISUAL (d) = visual;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
269 DEVICE_GTK_COLORMAP (d) = cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
270 DEVICE_GTK_DEPTH (d) = visual->depth;
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 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
273 GtkWidget *w = gtk_window_new (GTK_WINDOW_TOPLEVEL);
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 app_shell = gtk_xemacs_new (NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
276 gtk_container_add (GTK_CONTAINER (w), app_shell);
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 gtk_widget_realize (w);
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
281 DEVICE_GTK_APP_SHELL (d) = app_shell;
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 /* Realize the app_shell so that its window exists for GC creation
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
284 purposes */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
285 gtk_widget_realize (GTK_WIDGET (app_shell));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
286
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
287 /* Need to set up some selection handlers */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
288 gtk_selection_add_target (GTK_WIDGET (app_shell), GDK_SELECTION_PRIMARY,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
289 GDK_SELECTION_TYPE_STRING, 0);
746
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
290 gtk_selection_add_target (GTK_WIDGET (app_shell),
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
291 gdk_atom_intern("CLIPBOARD", FALSE),
b13b1b7b11f1 [xemacs-hg @ 2002-02-08 13:04:18 by wmperry]
wmperry
parents: 563
diff changeset
292 GDK_SELECTION_TYPE_STRING, 0);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
293
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
294 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_get",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
295 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
296 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
297 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
298 NULL);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
299 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_received",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
300 GTK_SIGNAL_FUNC (emacs_gtk_selection_received), NULL);
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_WM_COMMAND_FRAME (d) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
303
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
304 gtk_init_modifier_mapping (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
305
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
306 gtk_device_init_x_specific_cruft (d);
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 init_baud_rate (d);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
309 init_one_device (d);
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 DEVICE_GTK_GC_CACHE (d) = make_gc_cache (GTK_WIDGET (app_shell));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
312 DEVICE_GTK_GRAY_PIXMAP (d) = NULL;
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 gtk_init_device_class (d);
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 /* Run the elisp side of the X device initialization. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
317 call0 (Qinit_pre_gtk_win);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
318 }
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
321 gtk_finish_init_device (struct device *d, Lisp_Object props)
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 call0 (Qinit_post_gtk_win);
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
327 gtk_mark_device (struct device *d)
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 mark_object (DEVICE_GTK_WM_COMMAND_FRAME (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
330 mark_object (DEVICE_GTK_DATA (d)->x_keysym_map_hashtable);
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
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 /* closing an X connection */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
336 /************************************************************************/
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
339 free_gtk_device_struct (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
340 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
341 xfree (d->device_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
342 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
343
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
344 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
345 gtk_delete_device (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
346 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
347 Lisp_Object device;
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 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
350 extern void (*__free_hook)();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
351 int checking_free;
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
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
354 device = wrap_device (d);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
355 if (1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
356 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
357 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
358 checking_free = (__free_hook != 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
359
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
360 /* Disable strict free checking, to avoid bug in X library */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
361 if (checking_free)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
362 disable_strict_free_check ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
363 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
364
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
365 free_gc_cache (DEVICE_GTK_GC_CACHE (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
366
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
367 #ifdef FREE_CHECKING
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
368 if (checking_free)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
369 enable_strict_free_check ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
370 #endif
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
373 free_gtk_device_struct (d);
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 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
378 /* handle X errors */
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 const char *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
382 gtk_event_name (GdkEventType event_type)
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 GtkEnumValue *vals = gtk_type_enum_get_values (GTK_TYPE_GDK_EVENT_TYPE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
385
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 746
diff changeset
386 while (vals && ((GdkEventType)(vals->value) != event_type)) vals++;
462
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 if (vals)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
389 return (vals->value_nick);
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 return (NULL);
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
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 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
396 /* display information functions */
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 DEFUN ("gtk-display-visual-class", Fgtk_display_visual_class, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
400 Return the visual class of the GTK display DEVICE is using.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
401 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
402 `static-color', `pseudo-color', `true-color', or `direct-color'.
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 (device))
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 GdkVisual *vis = DEVICE_GTK_VISUAL (decode_gtk_device (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
407 switch (vis->type)
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 case GDK_VISUAL_STATIC_GRAY: return intern ("static-gray");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
410 case GDK_VISUAL_GRAYSCALE: return intern ("gray-scale");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
411 case GDK_VISUAL_STATIC_COLOR: return intern ("static-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
412 case GDK_VISUAL_PSEUDO_COLOR: return intern ("pseudo-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
413 case GDK_VISUAL_TRUE_COLOR: return intern ("true-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
414 case GDK_VISUAL_DIRECT_COLOR: return intern ("direct-color");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
415 default:
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
416 invalid_state ("display has an unknown visual class", Qunbound);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
417 return Qnil; /* suppress compiler warning */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
418 }
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
421 DEFUN ("gtk-display-visual-depth", Fgtk_display_visual_depth, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
422 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
423 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
424 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
425 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
426 return make_int (DEVICE_GTK_DEPTH (decode_gtk_device (device)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
427 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
428
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
429 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
430 gtk_device_system_metrics (struct device *d,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
431 enum device_metrics m)
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 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
434 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
435
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
436 style = gtk_style_attach (style, w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
437 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
438
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
439 switch (m)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
440 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
441 case DM_size_device:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
442 return Fcons (make_int (gdk_screen_width ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
443 make_int (gdk_screen_height ()));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
444 case DM_size_device_mm:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
445 return Fcons (make_int (gdk_screen_width_mm ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
446 make_int (gdk_screen_height_mm ()));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
447 case DM_num_color_cells:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
448 return make_int (gdk_colormap_get_system_size ());
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
449 case DM_num_bit_planes:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
450 return make_int (DEVICE_GTK_DEPTH (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 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
453 case DM_color_default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
454 case DM_color_select:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
455 case DM_color_balloon:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
456 case DM_color_3d_face:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
457 case DM_color_3d_light:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
458 case DM_color_3d_dark:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
459 case DM_color_menu:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
460 case DM_color_menu_highlight:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
461 case DM_color_menu_button:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
462 case DM_color_menu_disabled:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
463 case DM_color_toolbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
464 case DM_color_scrollbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
465 case DM_color_desktop:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
466 case DM_color_workspace:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
467 case DM_font_default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
468 case DM_font_menubar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
469 case DM_font_dialog:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
470 case DM_size_cursor:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
471 case DM_size_scrollbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
472 case DM_size_menu:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
473 case DM_size_toolbar:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
474 case DM_size_toolbar_button:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
475 case DM_size_toolbar_border:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
476 case DM_size_icon:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
477 case DM_size_icon_small:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
478 case DM_size_workspace:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
479 case DM_device_dpi:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
480 case DM_mouse_buttons:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
481 case DM_swap_buttons:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
482 case DM_show_sounds:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
483 case DM_slow_device:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
484 case DM_security:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
485 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
486 default: /* No such device metric property for GTK devices */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
487 return Qunbound;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
488 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
489 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
490
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
491 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
492 Return true if KEYSYM names a key on the keyboard of DEVICE.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
493 More precisely, return true if some keystroke (possibly including modifiers)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
494 on the keyboard of DEVICE keys generates KEYSYM.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
495 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
496 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
497 The keysym name can be provided in two forms:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
498 - 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
499 - 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
500 The two names differ in capitalization and underscoring.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
501 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
502 (keysym, device))
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 struct device *d = decode_device (device);
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 if (!DEVICE_GTK_P (d))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
507 gui_error ("Not a GTK device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
508
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
509 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
510 Qnil : Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
511 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
512
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
513
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
514 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
515 /* grabs and ungrabs */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
516 /************************************************************************/
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 DEFUN ("gtk-grab-pointer", Fgtk_grab_pointer, 0, 3, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
519 Grab the pointer and restrict it to its current window.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
520 If optional DEVICE argument is nil, the default device will be used.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
521 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
522 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
523 `make-cursor-glyph' function).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
524 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
525 keyboard events during the grab.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
526 Returns t if the grab is successful, nil otherwise.
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 (device, cursor, ignore_keyboard))
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 GdkWindow *w;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
531 int result;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
532 struct device *d = decode_gtk_device (device);
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 if (!NILP (cursor))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
535 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
536 CHECK_POINTER_GLYPH (cursor);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
537 cursor = glyph_image_instance (cursor, device, ERROR_ME, 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
538 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
539
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
540 /* 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
541 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
542
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
543 result = gdk_pointer_grab (w, FALSE,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
544 GDK_POINTER_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
545 GDK_POINTER_MOTION_HINT_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
546 GDK_BUTTON1_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
547 GDK_BUTTON2_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
548 GDK_BUTTON3_MOTION_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
549 GDK_BUTTON_PRESS_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
550 GDK_BUTTON_RELEASE_MASK,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
551 w,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
552 NULL, /* #### BILL!!! Need to create a GdkCursor * as necessary! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
553 GDK_CURRENT_TIME);
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 return (result == 0) ? Qt : Qnil;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
558 DEFUN ("gtk-ungrab-pointer", Fgtk_ungrab_pointer, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
559 Release a pointer grab made with `gtk-grab-pointer'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
560 If optional first arg DEVICE is nil the default device is used.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
561 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
562 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
563 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
564 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
565 if (!EQ (device, Qt))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
566 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
567 gdk_pointer_ungrab (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 else
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 Lisp_Object devcons, concons;
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 DEVICE_LOOP_NO_BREAK (devcons, concons)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
574 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
575 struct device *d = XDEVICE (XCAR (devcons));
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 if (DEVICE_GTK_P (d))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
578 gdk_pointer_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
579 }
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 return Qnil;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
584 DEFUN ("gtk-grab-keyboard", Fgtk_grab_keyboard, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
585 Grab the keyboard on the given device (defaulting to the selected one).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
586 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
587 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
588 Ungrab the keyboard with `gtk-ungrab-keyboard' (use an unwind-protect).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
589 Returns t if the grab is successful, nil otherwise.
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 (device))
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 struct device *d = decode_gtk_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
594 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
595
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
596 gdk_keyboard_grab (w, FALSE, GDK_CURRENT_TIME );
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 return Qt;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
601 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
602 Release a keyboard grab made with `gtk-grab-keyboard'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
603 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
604 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
605 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
606 gdk_keyboard_ungrab (GDK_CURRENT_TIME);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
607 return Qnil;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
610
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 /* Style Info */
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 DEFUN ("gtk-style-info", Fgtk_style_info, 0, 1, 0, /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
615 Get the style information for a Gtk device.
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 (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
618 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
619 struct device *d = decode_device (device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
620 GtkStyle *style = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
621 Lisp_Object result = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
622 GtkWidget *app_shell = GTK_WIDGET (DEVICE_GTK_APP_SHELL (d));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
623 GdkWindow *w = GET_GTK_WIDGET_WINDOW (app_shell);
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 if (!DEVICE_GTK_P (d))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
626 return (Qnil);
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 = gtk_widget_get_style (app_shell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
629 style = gtk_style_attach (style, w);
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 if (!style) return (Qnil);
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 #define FROB_COLOR(slot, name) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
634 result = nconc2 (result, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
635 list2 (intern (name), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
636 list5 (xemacs_gtk_convert_color (&style->slot[GTK_STATE_NORMAL], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
637 xemacs_gtk_convert_color (&style->slot[GTK_STATE_ACTIVE], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
638 xemacs_gtk_convert_color (&style->slot[GTK_STATE_PRELIGHT], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
639 xemacs_gtk_convert_color (&style->slot[GTK_STATE_SELECTED], app_shell),\
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
640 xemacs_gtk_convert_color (&style->slot[GTK_STATE_INSENSITIVE], app_shell))))
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 FROB_COLOR (fg, "foreground");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
643 FROB_COLOR (bg, "background");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
644 FROB_COLOR (light, "light");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
645 FROB_COLOR (dark, "dark");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
646 FROB_COLOR (mid, "mid");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
647 FROB_COLOR (text, "text");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
648 FROB_COLOR (base, "base");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
649 #undef FROB_COLOR
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
650
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
651 result = nconc2 (result, list2 (Qfont, convert_font (style->font)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
652
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
653 #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
654
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
655 if (style->rc_style)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
656 result = nconc2 (result, list2 (Qbackground,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
657 list5 ( FROB_PIXMAP (GTK_STATE_NORMAL),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
658 FROB_PIXMAP (GTK_STATE_ACTIVE),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
659 FROB_PIXMAP (GTK_STATE_PRELIGHT),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
660 FROB_PIXMAP (GTK_STATE_SELECTED),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
661 FROB_PIXMAP (GTK_STATE_INSENSITIVE))));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
662 #undef FROB_PIXMAP
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
663
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
664 return (result);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
665 }
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
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 /* initialization */
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
672 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
673 syms_of_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
674 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
675 DEFSUBR (Fgtk_keysym_on_keyboard_p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
676 DEFSUBR (Fgtk_display_visual_class);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
677 DEFSUBR (Fgtk_display_visual_depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
678 DEFSUBR (Fgtk_style_info);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
679 DEFSUBR (Fgtk_grab_pointer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
680 DEFSUBR (Fgtk_ungrab_pointer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
681 DEFSUBR (Fgtk_grab_keyboard);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
682 DEFSUBR (Fgtk_ungrab_keyboard);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
683 DEFSUBR (Fgtk_init);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
684
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
685 DEFSYMBOL (Qinit_pre_gtk_win);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 545
diff changeset
686 DEFSYMBOL (Qinit_post_gtk_win);
462
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
689 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
690 console_type_create_device_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
691 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
692 CONSOLE_HAS_METHOD (gtk, init_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
693 CONSOLE_HAS_METHOD (gtk, finish_init_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
694 CONSOLE_HAS_METHOD (gtk, mark_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
695 CONSOLE_HAS_METHOD (gtk, delete_device);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
696 CONSOLE_HAS_METHOD (gtk, device_system_metrics);
545
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
697 /* CONSOLE_IMPLEMENTATION_FLAGS (gtk, XDEVIMPF_PIXEL_GEOMETRY); */
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
698 /* 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
699 implementation of gtk_device_implementation_flags(), which I
9a775fb11bb7 [xemacs-hg @ 2001-05-18 04:39:39 by kkm]
kkm
parents: 462
diff changeset
700 deleted, contained commented out XDEVIMPF_PIXEL_GEOMETRY - kkm*/
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
701 }
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 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
704 vars_of_device_gtk (void)
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 Fprovide (Qgtk);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
707
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
708 DEFVAR_LISP ("gtk-initial-argv-list", &Vgtk_initial_argv_list /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
709 You don't want to know.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
710 This is used during startup to communicate the remaining arguments in
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
711 `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
712 the GTK initialization code, which removes some args, and then the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
713 args are placed back into `gtk-initial-arg-list' and thence into
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
714 `command-line-args-left'. Perhaps `command-line-args-left' should
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
715 just reside in C.
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 DEFVAR_LISP ("gtk-initial-geometry", &Vgtk_initial_geometry /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
719 You don't want to know.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
720 This is used during startup to communicate the default geometry to GTK.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
721 */ );
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 Vgtk_initial_geometry = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
724 Vgtk_initial_argv_list = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
725 }
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 #include <gdk/gdkx.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
728 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
729 gtk_device_init_x_specific_cruft (struct device *d)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
730 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
731 DEVICE_INFD (d) = DEVICE_OUTFD (d) = ConnectionNumber (GDK_DISPLAY ());
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
732 }