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

[xemacs-hg @ 2002-05-16 13:30:23 by ben] ui fixes for things that were bothering me bytecode.c, editfns.c, lisp.h, lread.c: Fix save-restriction to use markers rather than pseudo-markers (integers representing the amount of text on either side of the region). That way, all inserts are handled correctly, not just those inside old restriction. Add buffer argument to save_restriction_save(). process.c: Clean up very dirty and kludgy code that outputs into a buffer -- use proper unwind protects, etc. font-lock.c: Do save-restriction/widen around the function -- otherwise, incorrect results will ensue when a buffer has been narrowed before a call to e.g. `buffer-syntactic-context' -- something that happens quite often. fileio.c: Look for a handler for make-temp-name. window.c, winslots.h: Try to solve this annoying problem: have two frames displaying the buffer, in different places; in one, temporarily switch away to another buffer and then back -- and you've lost your position; it's reset to the other one in the other frame. My current solution involves window-level caches of buffers and points (also a cache for window-start); when set-window-buffer is called, it looks to see if the buffer was previously visited in the window, and if so, uses the most recent point at that time. (It's a marker, so it handles changes.) #### Note: It could be argued that doing it on the frame level would be better -- e.g. if you visit a buffer temporarily through a grep, and then go back to that buffer, you presumably want the grep's position rather than some previous position provided everything was in the same frame, even though the grep was in another window in the frame. However, doing it on the frame level fails when you have two windows on the same frame. Perhaps we keep both a window and a frame cache, and use the frame cache if there are no other windows on the frame showing the buffer, else the window's cache? This is probably something to be configurable using a specifier. Suggestions please please please? window.c: Clean up a bit code that deals with the annoyance of window-point vs. point. dialog.el: Function to ask a multiple-choice question, automatically choosing a dialog box or minibuffer representation as necessary. Generalized version of yes-or-no-p, y-or-n-p. files.el: Use get-user-response to ask "yes/no/diff" question when recovering. "diff" means that a diff is displayed between the current file and the autosave. (Converts/deconverts escape-quoted as necessary. No more complaints from you, Mr. Turnbull!) One known problem: when a dialog is used, it's modal, so you can't scroll the diff. Will fix soon. lisp-mode.el: If we're filling a string, don't treat semicolon as a comment, which would give very unfriendly results. Uses `buffer-syntactic-context'. simple.el: all changes back to the beginning. (Useful if you've saved the file in the middle of the changes.) simple.el: Add option kill-word-into-kill-ring, which controls whether words deleted with kill-word, backward-kill-word, etc. are "cut" into the kill ring, or "cleared" into nothingness. (My preference is the latter, by far. I'd almost go so far as suggesting we make it the default, as you can always select a word and then cut it if you want it cut.) menubar-items.el: Add option corresponding to kill-word-into-kill-ring.
author ben
date Thu, 16 May 2002 13:30:58 +0000
parents 6728e641994e
children e7ee5f8bde58
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
714
02339d4ebed4 [xemacs-hg @ 2001-12-23 20:28:19 by wmperry]
wmperry
parents: 691
diff changeset
1 /* GTK-specific Lisp objects.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
3 Copyright (C) 1995 Board of Trustees, University of Illinois.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
4 Copyright (C) 1995 Tinker Systems
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
5 Copyright (C) 1995, 1996, 2001, 2002 Ben Wing
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6 Copyright (C) 1995 Sun Microsystems
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 This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 XEmacs is free software; you can redistribute it and/or modify it
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
11 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
12 Free Software Foundation; either version 2, or (at your option) any
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13 later version.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
15 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
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18 for more details.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 You should have received a copy of the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 along with XEmacs; see the file COPYING. If not, write to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23 Boston, MA 02111-1307, USA. */
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 /* Synched up with: Not in FSF. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
26
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
27 /* Original author: Jamie Zawinski for 19.8
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28 font-truename stuff added by Jamie Zawinski for 19.10
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29 subwindow support added by Chuck Thompson
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 additional XPM support added by Chuck Thompson
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
31 initial X-Face support added by Stig
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32 rewritten/restructured by Ben Wing for 19.12/19.13
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33 GIF/JPEG support added by Ben Wing for 19.14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
34 PNG support added by Bill Perry for 19.14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
35 Improved GIF/JPEG support added by Bill Perry for 19.14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
36 Cleanup/simplification of error handling by Ben Wing for 19.14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 Pointer/icon overhaul, more restructuring by Ben Wing for 19.14
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38 GIF support changed to external GIFlib 3.1 by Jareth Hein for 21.0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 Many changes for color work and optimizations by Jareth Hein for 21.0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
40 Switch of GIF/JPEG/PNG to new EImage intermediate code by Jareth Hein for 21.0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
41 TIFF code by Jareth Hein for 21.0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 GIF/JPEG/PNG/TIFF code moved to new glyph-eimage.c for 21.0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43 Gtk version by William Perry for 21.1
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 TODO:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46 Support the GrayScale, StaticColor and StaticGray visual classes.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 Convert images.el to C and stick it in here?
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50 #include <config.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 #include "lisp.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 #include "lstream.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 #include "console-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54 #include "glyphs.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 #include "glyphs-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 #include "objects-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 #include "gui-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58 #include "ui-gtk.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 #include "buffer.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61 #include "window.h"
809
285f13b079f3 [xemacs-hg @ 2002-04-07 16:01:30 by wmperry]
wmperry
parents: 800
diff changeset
62 #include "device.h"
285f13b079f3 [xemacs-hg @ 2002-04-07 16:01:30 by wmperry]
wmperry
parents: 800
diff changeset
63 #include "gui.h"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 #include "frame.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65 #include "insdel.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 #include "opaque.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 #include "faces.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69 #include "imgproc.h"
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 #include "sysfile.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73 #include <setjmp.h>
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 #include "file-coding.h"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 DECLARE_IMAGE_INSTANTIATOR_FORMAT (nothing);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 DECLARE_IMAGE_INSTANTIATOR_FORMAT (string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
79 DECLARE_IMAGE_INSTANTIATOR_FORMAT (formatted_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80 DECLARE_IMAGE_INSTANTIATOR_FORMAT (inherit);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 #ifdef HAVE_JPEG
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82 DECLARE_IMAGE_INSTANTIATOR_FORMAT (jpeg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84 #ifdef HAVE_TIFF
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 DECLARE_IMAGE_INSTANTIATOR_FORMAT (tiff);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 #ifdef HAVE_PNG
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
88 DECLARE_IMAGE_INSTANTIATOR_FORMAT (png);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90 #ifdef HAVE_GIF
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91 DECLARE_IMAGE_INSTANTIATOR_FORMAT (gif);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92 #endif
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 #ifdef HAVE_XFACE
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
95 DEFINE_DEVICE_IIFORMAT (gtk, xface);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
96 Lisp_Object Qxface;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 #ifdef HAVE_XPM
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100 DEFINE_DEVICE_IIFORMAT (gtk, xpm);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
101 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 DEFINE_DEVICE_IIFORMAT (gtk, xbm);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 DEFINE_DEVICE_IIFORMAT (gtk, subwindow);
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 DEFINE_IMAGE_INSTANTIATOR_FORMAT (cursor_font);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107 Lisp_Object Qcursor_font;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
108
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
109 DEFINE_IMAGE_INSTANTIATOR_FORMAT (font);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111 DEFINE_IMAGE_INSTANTIATOR_FORMAT (autodetect);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 DECLARE_IMAGE_INSTANTIATOR_FORMAT (layout);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 DEFINE_DEVICE_IIFORMAT (gtk, widget);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 DEFINE_DEVICE_IIFORMAT (gtk, native_layout);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 DEFINE_DEVICE_IIFORMAT (gtk, button);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 DEFINE_DEVICE_IIFORMAT (gtk, progress_gauge);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119 DEFINE_DEVICE_IIFORMAT (gtk, edit_field);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 DEFINE_DEVICE_IIFORMAT (gtk, combo_box);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 DEFINE_DEVICE_IIFORMAT (gtk, tab_control);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 DEFINE_DEVICE_IIFORMAT (gtk, label);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 static void update_widget_face (GtkWidget *w, Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 Lisp_Object domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 static void cursor_font_instantiate (Lisp_Object image_instance,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128 Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 Lisp_Object pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130 Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 int dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
132 Lisp_Object domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 static gint cursor_name_to_index (const char *name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 #ifndef BitmapSuccess
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 #define BitmapSuccess 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 #define BitmapOpenFailed 1
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 #define BitmapFileInvalid 2
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140 #define BitmapNoMemory 3
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 #include "bitmaps.h"
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 DEFINE_IMAGE_INSTANTIATOR_FORMAT (gtk_resource);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 Lisp_Object Qgtk_resource;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148 Lisp_Object Qgtk_widget_instantiate_internal, Qgtk_widget_property_internal;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 Lisp_Object Qgtk_widget_redisplay_internal, Qgtk_widget_set_style;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151
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 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
154 /* image instance methods */
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
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 /* convert from a series of RGB triples to an XImage formated for the */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
159 /* proper display */
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 static GdkImage *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
162 convert_EImage_to_GDKImage (Lisp_Object device, int width, int height,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
163 unsigned char *pic, unsigned long **pixtbl,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
164 int *npixels)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
165 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
166 GdkColormap *cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
167 GdkVisual *vis;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
168 GdkImage *outimg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
169 int depth, byte_cnt, i, j;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
170 int rd,gr,bl,q;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
171 unsigned char *data, *ip, *dp = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
172 quant_table *qtable = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
173 union {
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
174 UINT_32_BIT val;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
175 char cp[4];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
176 } conv;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
177
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
178 cmap = DEVICE_GTK_COLORMAP (XDEVICE(device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
179 vis = DEVICE_GTK_VISUAL (XDEVICE(device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
180 depth = DEVICE_GTK_DEPTH(XDEVICE(device));
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 if (vis->type == GDK_VISUAL_GRAYSCALE || vis->type == GDK_VISUAL_STATIC_COLOR ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
183 vis->type == GDK_VISUAL_STATIC_GRAY)
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 /* #### Implement me!!! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
186 return NULL;
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 if (vis->type == GDK_VISUAL_PSEUDO_COLOR)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
190 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
191 /* Quantize the image and get a histogram while we're at it.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
192 Do this first to save memory */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
193 qtable = build_EImage_quantable(pic, width, height, 256);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
194 if (qtable == NULL) return NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
195 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
196
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
197 /* The first parameter (GdkWindow *) is allowed to be NULL if we
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
198 ** specify the depth */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
199 outimg = gdk_image_new (GDK_IMAGE_FASTEST, vis, width, height);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
200
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
201 if (!outimg) return NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
202
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
203 byte_cnt = outimg->bpp;
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 data = (unsigned char *) outimg->mem;
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 if (!data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
208 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
209 gdk_image_destroy (outimg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
210 return NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
211 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
212
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
213 if (vis->type == GDK_VISUAL_PSEUDO_COLOR)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
214 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
215 unsigned long pixarray[256];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
216 int pixcount, n;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
217 /* use our quantize table to allocate the colors */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
218 pixcount = 32;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
219 *pixtbl = xnew_array (unsigned long, pixcount);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
220 *npixels = 0;
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 /* ### should implement a sort by popularity to assure proper allocation */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
223 n = *npixels;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
224 for (i = 0; i < qtable->num_active_colors; i++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
225 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
226 GdkColor color;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
227 int res;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
228
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
229 color.red = qtable->rm[i] ? qtable->rm[i] << 8 : 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
230 color.green = qtable->gm[i] ? qtable->gm[i] << 8 : 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
231 color.blue = qtable->bm[i] ? qtable->bm[i] << 8 : 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
232 res = allocate_nearest_color (cmap, vis, &color);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
233 if (res > 0 && res < 3)
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 DO_REALLOC(*pixtbl, pixcount, n+1, unsigned long);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
236 (*pixtbl)[n] = color.pixel;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
237 n++;
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 pixarray[i] = color.pixel;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
240 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
241 *npixels = n;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
242 ip = pic;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
243 for (i = 0; i < height; i++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
244 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
245 dp = data + (i * outimg->bpl);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
246 for (j = 0; j < width; j++)
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 rd = *ip++;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
249 gr = *ip++;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
250 bl = *ip++;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
251 conv.val = pixarray[QUANT_GET_COLOR(qtable,rd,gr,bl)];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
252 #if WORDS_BIGENDIAN
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
253 if (outimg->byte_order == GDK_MSB_FIRST)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
254 for (q = 4-byte_cnt; q < 4; q++) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
255 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
256 for (q = 3; q >= 4-byte_cnt; q--) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
257 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
258 if (outimg->byte_order == GDK_MSB_FIRST)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
259 for (q = byte_cnt-1; q >= 0; q--) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
260 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
261 for (q = 0; q < byte_cnt; q++) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
262 #endif
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 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
265 xfree(qtable);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
266 } else {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
267 unsigned long rshift,gshift,bshift,rbits,gbits,bbits,junk;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
268 junk = vis->red_mask;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
269 rshift = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
270 while ((junk & 0x1) == 0)
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 junk = junk >> 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
273 rshift ++;
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 rbits = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
276 while (junk != 0)
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 junk = junk >> 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
279 rbits++;
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 junk = vis->green_mask;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
282 gshift = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
283 while ((junk & 0x1) == 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
284 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
285 junk = junk >> 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
286 gshift ++;
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 gbits = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
289 while (junk != 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
290 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
291 junk = junk >> 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
292 gbits++;
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 junk = vis->blue_mask;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
295 bshift = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
296 while ((junk & 0x1) == 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
297 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
298 junk = junk >> 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
299 bshift ++;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
300 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
301 bbits = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
302 while (junk != 0)
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 junk = junk >> 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
305 bbits++;
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 ip = pic;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
308 for (i = 0; i < height; i++)
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 dp = data + (i * outimg->bpl);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
311 for (j = 0; j < width; j++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
312 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
313 if (rbits > 8)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
314 rd = *ip++ << (rbits - 8);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
315 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
316 rd = *ip++ >> (8 - rbits);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
317 if (gbits > 8)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
318 gr = *ip++ << (gbits - 8);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
319 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
320 gr = *ip++ >> (8 - gbits);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
321 if (bbits > 8)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
322 bl = *ip++ << (bbits - 8);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
323 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
324 bl = *ip++ >> (8 - bbits);
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 conv.val = (rd << rshift) | (gr << gshift) | (bl << bshift);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
327 #if WORDS_BIGENDIAN
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
328 if (outimg->byte_order == GDK_MSB_FIRST)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
329 for (q = 4-byte_cnt; q < 4; q++) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
330 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
331 for (q = 3; q >= 4-byte_cnt; q--) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
332 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
333 if (outimg->byte_order == GDK_MSB_FIRST)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
334 for (q = byte_cnt-1; q >= 0; q--) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
335 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
336 for (q = 0; q < byte_cnt; q++) *dp++ = conv.cp[q];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
337 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
338 }
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 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
341 return outimg;
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_print_image_instance (struct Lisp_Image_Instance *p,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
346 Lisp_Object printcharfun,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
347 int escapeflag)
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 switch (IMAGE_INSTANCE_TYPE (p))
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 case IMAGE_MONO_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
352 case IMAGE_COLOR_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
353 case IMAGE_POINTER:
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
354 write_fmt_string (printcharfun, " (0x%lx",
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
355 (unsigned long) IMAGE_INSTANCE_GTK_PIXMAP (p));
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
356 if (IMAGE_INSTANCE_GTK_MASK (p))
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
357 write_fmt_string (printcharfun, "/0x%lx",
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
358 (unsigned long) IMAGE_INSTANCE_GTK_MASK (p));
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
359 write_c_string (printcharfun, ")");
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
360 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
361 #if HAVE_SUBWINDOWS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
362 case IMAGE_SUBWINDOW:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
363 /* #### implement me */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
364 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
365 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
366 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
367 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
368 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
369
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
370 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
371 gtk_finalize_image_instance (struct Lisp_Image_Instance *p)
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 if (!p->data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
374 return;
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 if (DEVICE_LIVE_P (XDEVICE (p->device)))
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 if (0)
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 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
381 if (IMAGE_INSTANCE_TYPE (p) == IMAGE_WIDGET)
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 if (IMAGE_INSTANCE_SUBWINDOW_ID (p))
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 gtk_widget_destroy (IMAGE_INSTANCE_SUBWINDOW_ID (p));
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 /* We can release the callbacks again. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
388 /* #### FIXME! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
389 /* ungcpro_popup_callbacks (...); */
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 /* IMAGE_INSTANCE_GTK_WIDGET_ID (p) = 0; */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
392 IMAGE_INSTANCE_GTK_CLIPWIDGET (p) = 0;
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 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
396 else if (IMAGE_INSTANCE_TYPE (p) == IMAGE_SUBWINDOW)
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 abort();
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 else
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 int i;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
403 if (IMAGE_INSTANCE_PIXMAP_TIMEOUT (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
404 disable_glyph_animated_timeout (IMAGE_INSTANCE_PIXMAP_TIMEOUT (p));
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 if (IMAGE_INSTANCE_GTK_MASK (p) &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
407 IMAGE_INSTANCE_GTK_MASK (p) != IMAGE_INSTANCE_GTK_PIXMAP (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
408 gdk_pixmap_unref (IMAGE_INSTANCE_GTK_MASK (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
409 IMAGE_INSTANCE_PIXMAP_MASK (p) = 0;
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 if (IMAGE_INSTANCE_GTK_PIXMAP_SLICES (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
412 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
413 for (i = 0; i < IMAGE_INSTANCE_PIXMAP_MAXSLICE (p); i++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
414 if (IMAGE_INSTANCE_GTK_PIXMAP_SLICE (p,i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
415 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
416 gdk_pixmap_unref (IMAGE_INSTANCE_GTK_PIXMAP_SLICE (p,i));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
417 IMAGE_INSTANCE_GTK_PIXMAP_SLICE (p, i) = 0;
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 xfree (IMAGE_INSTANCE_GTK_PIXMAP_SLICES (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
420 IMAGE_INSTANCE_GTK_PIXMAP_SLICES (p) = 0;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
423 if (IMAGE_INSTANCE_GTK_CURSOR (p))
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 gdk_cursor_destroy (IMAGE_INSTANCE_GTK_CURSOR (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
426 IMAGE_INSTANCE_GTK_CURSOR (p) = 0;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
430 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
431 /* #### BILL!!! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
432 if (IMAGE_INSTANCE_GTK_NPIXELS (p) != 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
433 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
434 XFreeColors (dpy,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
435 IMAGE_INSTANCE_GTK_COLORMAP (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
436 IMAGE_INSTANCE_GTK_PIXELS (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
437 IMAGE_INSTANCE_GTK_NPIXELS (p), 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
438 IMAGE_INSTANCE_GTK_NPIXELS (p) = 0;
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 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
441 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
442
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
443 if (IMAGE_INSTANCE_TYPE (p) != IMAGE_WIDGET
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
444 && IMAGE_INSTANCE_TYPE (p) != IMAGE_SUBWINDOW
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
445 && IMAGE_INSTANCE_GTK_PIXELS (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
446 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
447 xfree (IMAGE_INSTANCE_GTK_PIXELS (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
448 IMAGE_INSTANCE_GTK_PIXELS (p) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
449 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
450
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
451 xfree (p->data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
452 p->data = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
453 }
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 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
456 gtk_image_instance_equal (struct Lisp_Image_Instance *p1,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
457 struct Lisp_Image_Instance *p2, int depth)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
458 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
459 switch (IMAGE_INSTANCE_TYPE (p1))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
460 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
461 case IMAGE_MONO_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
462 case IMAGE_COLOR_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
463 case IMAGE_POINTER:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
464 if (IMAGE_INSTANCE_GTK_COLORMAP (p1) != IMAGE_INSTANCE_GTK_COLORMAP (p2) ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
465 IMAGE_INSTANCE_GTK_NPIXELS (p1) != IMAGE_INSTANCE_GTK_NPIXELS (p2))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
466 return 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
467 #if HAVE_SUBWINDOWS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
468 case IMAGE_SUBWINDOW:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
469 /* #### implement me */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
470 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
471 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
472 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
473 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
474 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
475
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
476 return 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
477 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
478
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
479 static unsigned long
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
480 gtk_image_instance_hash (struct Lisp_Image_Instance *p, int depth)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
481 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
482 switch (IMAGE_INSTANCE_TYPE (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
483 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
484 case IMAGE_MONO_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
485 case IMAGE_COLOR_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
486 case IMAGE_POINTER:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
487 return IMAGE_INSTANCE_GTK_NPIXELS (p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
488 #if HAVE_SUBWINDOWS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
489 case IMAGE_SUBWINDOW:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
490 /* #### implement me */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
491 return 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
492 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
493 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
494 return 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
495 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
496 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
497
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
498 /* Set all the slots in an image instance structure to reasonable
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
499 default values. This is used somewhere within an instantiate
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
500 method. It is assumed that the device slot within the image
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
501 instance is already set -- this is the case when instantiate
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
502 methods are called. */
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
505 gtk_initialize_pixmap_image_instance (struct Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
506 int slices,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
507 enum image_instance_type type)
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 ii->data = xnew_and_zero (struct gtk_image_instance_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
510 IMAGE_INSTANCE_PIXMAP_MAXSLICE (ii) = slices;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
511 IMAGE_INSTANCE_GTK_PIXMAP_SLICES (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
512 xnew_array_and_zero (GdkPixmap *, slices);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
513 IMAGE_INSTANCE_TYPE (ii) = type;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
514 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
515 IMAGE_INSTANCE_PIXMAP_MASK_FILENAME (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
516 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
517 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
518 IMAGE_INSTANCE_PIXMAP_FG (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
519 IMAGE_INSTANCE_PIXMAP_BG (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
520 }
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
523 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
524 /* pixmap file functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
525 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
526
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
527 /* Where bitmaps are; initialized from resource database */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
528 Lisp_Object Vgtk_bitmap_file_path;
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 #ifndef BITMAPDIR
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
531 #define BITMAPDIR "/usr/include/X11/bitmaps"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
532 #endif
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 /* Given a pixmap filename, look through all of the "standard" places
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
535 where the file might be located. Return a full pathname if found;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
536 otherwise, return Qnil. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
537
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
538 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
539 gtk_locate_pixmap_file (Lisp_Object name)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
540 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
541 /* This function can GC if IN_REDISPLAY is false */
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 /* Check non-absolute pathnames with a directory component relative to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
544 the search path; that's the way Xt does it. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
545 /* #### Unix-specific */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
546 if (string_byte (name, 0) == '/' ||
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
547 (string_byte (name, 0) == '.' &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
548 (string_byte (name, 1) == '/' ||
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
549 (string_byte (name, 1) == '.' &&
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 809
diff changeset
550 (string_byte (name, 2) == '/')))))
462
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 if (!NILP (Ffile_readable_p (name)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
553 return name;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
554 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
555 return 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 if (NILP (Vdefault_gtk_device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
559 /* This may occur during intialization. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
560 return Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
561
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
562 if (NILP (Vgtk_bitmap_file_path))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
563 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
564 Vgtk_bitmap_file_path = nconc2 (Vgtk_bitmap_file_path,
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 771
diff changeset
565 (split_external_path (BITMAPDIR)));
462
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
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 Lisp_Object found;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
570 if (locate_file (Vgtk_bitmap_file_path, name, Qnil, &found, R_OK) < 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
571 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
572 Lisp_Object temp = list1 (Vdata_directory);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
573 struct gcpro gcpro1;
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 GCPRO1 (temp);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
576 locate_file (temp, name, Qnil, &found, R_OK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
577 UNGCPRO;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
580 return found;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
581 }
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 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
585 locate_pixmap_file (Lisp_Object name)
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 return gtk_locate_pixmap_file (name);
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
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 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
592 /* cursor functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
593 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
594
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
595 /* Check that this server supports cursors of size WIDTH * HEIGHT. If
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
596 not, signal an error. INSTANTIATOR is only used in the error
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
597 message. */
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
600 check_pointer_sizes (unsigned int width, unsigned int height,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
601 Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
602 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
603 /* #### BILL!!! There is no way to call XQueryBestCursor from Gdk! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
604 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
605 unsigned int best_width, best_height;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
606 if (! XQueryBestCursor (DisplayOfScreen (xs), RootWindowOfScreen (xs),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
607 width, height, &best_width, &best_height))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
608 /* this means that an X error of some sort occurred (we trap
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
609 these so they're not fatal). */
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
610 gui_error ("XQueryBestCursor() failed?", instantiator);
462
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 if (width > best_width || height > best_height)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
613 signal_ferror_with_frob (Qgui_error, instantiator,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
614 "pointer too large (%dx%d): "
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
615 "server requires %dx%d or smaller",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
616 width, height, best_width, best_height);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
617 #endif
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
620 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
621 generate_cursor_fg_bg (Lisp_Object device, Lisp_Object *foreground,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
622 Lisp_Object *background, GdkColor *xfg, GdkColor *xbg)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
623 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
624 if (!NILP (*foreground) && !COLOR_INSTANCEP (*foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
625 *foreground =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
626 Fmake_color_instance (*foreground, device,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
627 encode_error_behavior_flag (ERROR_ME));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
628 if (COLOR_INSTANCEP (*foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
629 *xfg = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (*foreground));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
630 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
631 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
632 xfg->pixel = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
633 xfg->red = xfg->green = xfg->blue = 0;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
636 if (!NILP (*background) && !COLOR_INSTANCEP (*background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
637 *background =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
638 Fmake_color_instance (*background, device,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
639 encode_error_behavior_flag (ERROR_ME));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
640 if (COLOR_INSTANCEP (*background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
641 *xbg = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (*background));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
642 else
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 xbg->pixel = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
645 xbg->red = xbg->green = xbg->blue = ~0;
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 }
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 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
650 maybe_recolor_cursor (Lisp_Object image_instance, Lisp_Object foreground,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
651 Lisp_Object background)
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 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
654 /* #### BILL!!! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
655 Lisp_Object device = XIMAGE_INSTANCE_DEVICE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
656 GdkColor xfg, xbg;
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 generate_cursor_fg_bg (device, &foreground, &background, &xfg, &xbg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
659 if (!NILP (foreground) || !NILP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
660 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
661 XRecolorCursor (DEVICE_X_DISPLAY (XDEVICE (device)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
662 XIMAGE_INSTANCE_GTK_CURSOR (image_instance),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
663 &xfg, &xbg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
664 XIMAGE_INSTANCE_PIXMAP_FG (image_instance) = foreground;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
665 XIMAGE_INSTANCE_PIXMAP_BG (image_instance) = background;
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 #else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
668 /* stderr_out ("Don't know how to recolor cursors in Gtk!\n"); */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
669 #endif
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
673 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
674 /* color pixmap functions */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
675 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
676
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
677 /* Initialize an image instance from an XImage.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
678
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
679 DEST_MASK specifies the mask of allowed image types.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
680
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
681 PIXELS and NPIXELS specify an array of pixels that are used in
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
682 the image. These need to be kept around for the duration of the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
683 image. When the image instance is freed, XFreeColors() will
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
684 automatically be called on all the pixels specified here; thus,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
685 you should have allocated the pixels yourself using XAllocColor()
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
686 or the like. The array passed in is used directly without
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
687 being copied, so it should be heap data created with xmalloc().
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
688 It will be freed using xfree() when the image instance is
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
689 destroyed.
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 If this fails, signal an error. INSTANTIATOR is only used
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
692 in the error message.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
693
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
694 #### This should be able to handle conversion into `pointer'.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
695 Use the same code as for `xpm'. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
696
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
697 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
698 init_image_instance_from_gdk_image (struct Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
699 GdkImage *gdk_image,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
700 int dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
701 GdkColormap *cmap,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
702 unsigned long *pixels,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
703 int npixels,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
704 int slices,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
705 Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
706 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
707 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
708 GdkGC *gc;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
709 GdkWindow *d;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
710 GdkPixmap *pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
711
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
712 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
713 gui_error ("Not a Gtk device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
714
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
715 d = GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (XDEVICE (device)));
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 if (!(dest_mask & IMAGE_COLOR_PIXMAP_MASK))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
718 incompatible_image_types (instantiator, dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
719 IMAGE_COLOR_PIXMAP_MASK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
720
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
721 pixmap = gdk_pixmap_new (d, gdk_image->width, gdk_image->height, gdk_image->depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
722 if (!pixmap)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
723 gui_error ("Unable to create pixmap", instantiator);
462
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 gc = gdk_gc_new (pixmap);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
726 if (!gc)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
727 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
728 gdk_pixmap_unref (pixmap);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
729 gui_error ("Unable to create GC", instantiator);
462
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
732 gdk_draw_image (GDK_DRAWABLE (pixmap), gc, gdk_image,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
733 0, 0, 0, 0, gdk_image->width, gdk_image->height);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
734
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
735 gdk_gc_destroy (gc);
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 gtk_initialize_pixmap_image_instance (ii, slices, IMAGE_COLOR_PIXMAP);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
738
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
739 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
740 find_keyword_in_vector (instantiator, Q_file);
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 IMAGE_INSTANCE_GTK_PIXMAP (ii) = pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
743 IMAGE_INSTANCE_GTK_MASK (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
744 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = gdk_image->width;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
745 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = gdk_image->height;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
746 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = gdk_image->depth;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
747 IMAGE_INSTANCE_GTK_COLORMAP (ii) = cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
748 IMAGE_INSTANCE_GTK_PIXELS (ii) = pixels;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
749 IMAGE_INSTANCE_GTK_NPIXELS (ii) = npixels;
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
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
752 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
753 void init_image_instance_from_gdk_pixmap (struct Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
754 struct device *device,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
755 GdkPixmap *gdk_pixmap,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
756 int dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
757 Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
758 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
759 GdkWindow *d;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
760 gint width, height, depth;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
761
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
762 if (!DEVICE_GTK_P (device))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
763 abort ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
764
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
765 IMAGE_INSTANCE_DEVICE (ii) = device;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
766 IMAGE_INSTANCE_TYPE (ii) = IMAGE_COLOR_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
767
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
768 d = GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
769
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
770 if (!(dest_mask & IMAGE_COLOR_PIXMAP_MASK))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
771 incompatible_image_types (instantiator, dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
772 IMAGE_COLOR_PIXMAP_MASK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
773
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
774 gtk_initialize_pixmap_image_instance (ii, IMAGE_COLOR_PIXMAP);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
775
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
776 gdk_window_get_geometry (gdk_pixmap, NULL, NULL, &width, &height, &depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
777
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
778 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
779 IMAGE_INSTANCE_GTK_PIXMAP (ii) = gdk_pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
780 IMAGE_INSTANCE_GTK_MASK (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
781 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = width;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
782 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = height;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
783 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = depth;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
784 IMAGE_INSTANCE_GTK_COLORMAP (ii) = gdk_window_get_colormap (gdk_pixmap);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
785 IMAGE_INSTANCE_GTK_PIXELS (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
786 IMAGE_INSTANCE_GTK_NPIXELS (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
787 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
788 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
789
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
790 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
791 image_instance_add_gdk_image (Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
792 GdkImage *gdk_image,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
793 int slice,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
794 Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
795 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
796 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
797 GdkWindow *d;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
798 GdkPixmap *pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
799 GdkGC *gc;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
800
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
801 d = GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (XDEVICE (device)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
802
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
803 pixmap = gdk_pixmap_new (d, gdk_image->width, gdk_image->height, gdk_image->depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
804
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
805 if (!pixmap)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
806 gui_error ("Unable to create pixmap", instantiator);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
807
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
808 gc = gdk_gc_new (pixmap);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
809
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
810 if (!gc)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
811 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
812 gdk_pixmap_unref (pixmap);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
813 gui_error ("Unable to create GC", instantiator);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
814 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
815
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
816 gdk_draw_image (GDK_DRAWABLE (pixmap), gc, gdk_image, 0, 0, 0, 0,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
817 gdk_image->width, gdk_image->height);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
818
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
819 gdk_gc_destroy (gc);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
820
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
821 IMAGE_INSTANCE_GTK_PIXMAP_SLICE (ii, slice) = pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
822 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
823
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
824 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
825 gtk_init_image_instance_from_eimage (struct Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
826 int width, int height,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
827 int slices,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
828 unsigned char *eimage,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
829 int dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
830 Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
831 Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
832 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
833 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
834 GdkColormap *cmap = DEVICE_GTK_COLORMAP (XDEVICE(device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
835 unsigned long *pixtbl = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
836 int npixels = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
837 int slice;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
838 GdkImage* gdk_image;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
839
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
840
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
841 for (slice = 0; slice < slices; slice++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
842 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
843 gdk_image = convert_EImage_to_GDKImage (device, width, height, eimage,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
844 &pixtbl, &npixels);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
845 if (!gdk_image)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
846 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
847 if (pixtbl) xfree (pixtbl);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
848 signal_image_error("EImage to GdkImage conversion failed", instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
849 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
850
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
851 if (slice == 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
852 /* Now create the pixmap and set up the image instance */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
853 init_image_instance_from_gdk_image (ii, gdk_image, dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
854 cmap, pixtbl, npixels, slices,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
855 instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
856 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
857 image_instance_add_gdk_image (ii, gdk_image, slice, instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
858
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
859 if (gdk_image)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
860 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
861 gdk_image_destroy (gdk_image);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
862 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
863 gdk_image = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
864 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
865 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
866
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
867 /* Given inline data for a mono pixmap, create and return the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
868 corresponding X object. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
869
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
870 static GdkPixmap *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
871 pixmap_from_xbm_inline (Lisp_Object device, int width, int height,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
872 /* Note that data is in ext-format! */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
873 const Extbyte *bits)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
874 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
875 return (gdk_bitmap_create_from_data (GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (XDEVICE (device))),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
876 (char *) bits, width, height));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
877 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
878
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
879 /* Given inline data for a mono pixmap, initialize the given
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
880 image instance accordingly. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
881
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
882 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
883 init_image_instance_from_xbm_inline (struct Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
884 int width, int height,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
885 /* Note that data is in ext-format! */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
886 const char *bits,
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
887 Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
888 Lisp_Object pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
889 Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
890 int dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
891 GdkPixmap *mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
892 Lisp_Object mask_filename)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
893 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
894 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
895 Lisp_Object foreground = find_keyword_in_vector (instantiator, Q_foreground);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
896 Lisp_Object background = find_keyword_in_vector (instantiator, Q_background);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
897 GdkColor fg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
898 GdkColor bg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
899 enum image_instance_type type;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
900 GdkWindow *draw = GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (XDEVICE (device)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
901 GdkColormap *cmap = DEVICE_GTK_COLORMAP (XDEVICE(device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
902 GdkColor black;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
903 GdkColor white;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
904
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
905 gdk_color_black(cmap, &black);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
906 gdk_color_white(cmap, &white);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
907
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
908 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
909 gui_error ("Not a Gtk device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
910
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
911 if ((dest_mask & IMAGE_MONO_PIXMAP_MASK) &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
912 (dest_mask & IMAGE_COLOR_PIXMAP_MASK))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
913 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
914 if (!NILP (foreground) || !NILP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
915 type = IMAGE_COLOR_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
916 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
917 type = IMAGE_MONO_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
918 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
919 else if (dest_mask & IMAGE_MONO_PIXMAP_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
920 type = IMAGE_MONO_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
921 else if (dest_mask & IMAGE_COLOR_PIXMAP_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
922 type = IMAGE_COLOR_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
923 else if (dest_mask & IMAGE_POINTER_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
924 type = IMAGE_POINTER;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
925 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
926 incompatible_image_types (instantiator, dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
927 IMAGE_MONO_PIXMAP_MASK | IMAGE_COLOR_PIXMAP_MASK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
928 | IMAGE_POINTER_MASK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
929
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
930 gtk_initialize_pixmap_image_instance (ii, 1, type);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
931 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = width;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
932 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = height;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
933 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
934 find_keyword_in_vector (instantiator, Q_file);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
935
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
936 switch (type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
937 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
938 case IMAGE_MONO_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
939 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
940 IMAGE_INSTANCE_GTK_PIXMAP (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
941 pixmap_from_xbm_inline (device, width, height, (Extbyte *) bits);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
942 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
943 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
944
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
945 case IMAGE_COLOR_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
946 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
947 gint d = DEVICE_GTK_DEPTH (XDEVICE(device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
948
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
949 if (!NILP (foreground) && !COLOR_INSTANCEP (foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
950 foreground =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
951 Fmake_color_instance (foreground, device,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
952 encode_error_behavior_flag (ERROR_ME));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
953
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
954 if (COLOR_INSTANCEP (foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
955 fg = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (foreground));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
956
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
957 if (!NILP (background) && !COLOR_INSTANCEP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
958 background =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
959 Fmake_color_instance (background, device,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
960 encode_error_behavior_flag (ERROR_ME));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
961
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
962 if (COLOR_INSTANCEP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
963 bg = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (background));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
964
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
965 /* We used to duplicate the pixels using XAllocColor(), to protect
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
966 against their getting freed. Just as easy to just store the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
967 color instances here and GC-protect them, so this doesn't
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
968 happen. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
969 IMAGE_INSTANCE_PIXMAP_FG (ii) = foreground;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
970 IMAGE_INSTANCE_PIXMAP_BG (ii) = background;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
971 IMAGE_INSTANCE_GTK_PIXMAP (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
972 gdk_pixmap_create_from_data (draw, (char *) bits, width, height, d, &fg, &bg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
973 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = d;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
974 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
975 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
976
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
977 case IMAGE_POINTER:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
978 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
979 GdkColor fg_color, bg_color;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
980 GdkPixmap *source;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
981
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
982 check_pointer_sizes (width, height, instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
983
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
984 source = gdk_pixmap_create_from_data (draw, (char *) bits, width, height, 1, &black, &white);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
985
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
986 if (NILP (foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
987 foreground = pointer_fg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
988 if (NILP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
989 background = pointer_bg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
990 generate_cursor_fg_bg (device, &foreground, &background,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
991 &fg_color, &bg_color);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
992
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
993 IMAGE_INSTANCE_PIXMAP_FG (ii) = foreground;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
994 IMAGE_INSTANCE_PIXMAP_BG (ii) = background;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
995 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
996 find_keyword_in_vector (instantiator, Q_hotspot_x);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
997 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
998 find_keyword_in_vector (instantiator, Q_hotspot_y);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
999 IMAGE_INSTANCE_GTK_CURSOR (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1000 gdk_cursor_new_from_pixmap (source, mask, &fg_color, &bg_color,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1001 !NILP (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii)) ?
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1002 XINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii)) : 0,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1003 !NILP (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii)) ?
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1004 XINT (IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii)) : 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1005 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1006 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1007
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1008 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1009 abort ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1010 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1011 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1012
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1013 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1014 xbm_instantiate_1 (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1015 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1016 int dest_mask, int width, int height,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1017 /* Note that data is in ext-format! */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1018 const char *bits)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1019 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1020 Lisp_Object mask_data = find_keyword_in_vector (instantiator, Q_mask_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1021 Lisp_Object mask_file = find_keyword_in_vector (instantiator, Q_mask_file);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1022 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1023 GdkPixmap *mask = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1024 const char *gcc_may_you_rot_in_hell;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1025
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1026 if (!NILP (mask_data))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1027 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1028 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (XCDR (XCDR (mask_data))),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1029 C_STRING_ALLOCA, gcc_may_you_rot_in_hell,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1030 Qfile_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1031 mask =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1032 pixmap_from_xbm_inline (IMAGE_INSTANCE_DEVICE (ii),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1033 XINT (XCAR (mask_data)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1034 XINT (XCAR (XCDR (mask_data))),
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1035 (const unsigned char *)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1036 gcc_may_you_rot_in_hell);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1037 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1038
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1039 init_image_instance_from_xbm_inline (ii, width, height, bits,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1040 instantiator, pointer_fg, pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1041 dest_mask, mask, mask_file);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1042 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1043
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1044 /* Instantiate method for XBM's. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1045
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1046 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1047 gtk_xbm_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1048 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1049 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1050 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1051 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1052 const char *gcc_go_home;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1053
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1054 assert (!NILP (data));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1055
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1056 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (XCDR (XCDR (data))),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1057 C_STRING_ALLOCA, gcc_go_home,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1058 Qbinary);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1059
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1060 xbm_instantiate_1 (image_instance, instantiator, pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1061 pointer_bg, dest_mask, XINT (XCAR (data)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1062 XINT (XCAR (XCDR (data))), gcc_go_home);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1063 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1064
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1065
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1066 #ifdef HAVE_XPM
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1067 /**********************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1068 * XPM *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1069 **********************************************************************/
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1070 static Lisp_Object
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1071 write_lisp_string_to_temp_file (Lisp_Object string)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1072 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1073 Lisp_Object instream, outstream;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1074 Lstream *istr, *ostr;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1075 Char_Binary tempbuf[1024]; /* some random amount */
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1076 int fubar = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1077 FILE *tmpfil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1078 static Extbyte_dynarr *conversion_out_dynarr;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1079 Bytecount bstart, bend;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1080 Lisp_Object tempfile;
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 771
diff changeset
1081 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1082 Lisp_Object conv_out_stream;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1083 Lstream *costr;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1084
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1085 /* This function can GC */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1086 if (!conversion_out_dynarr)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1087 conversion_out_dynarr = Dynarr_new (Extbyte);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1088 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1089 Dynarr_reset (conversion_out_dynarr);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1090
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1091 /* Create the temporary file ... */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1092 tempfile = Fmake_temp_name (build_string ("/tmp/emacs"));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1093 tmpfil = qxe_fopen (XSTRING_DATA (tempfile), "w");
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1094 if (!tmpfil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1095 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1096 if (tmpfil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1097 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1098 int old_errno = errno;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1099 retry_fclose (tmpfil);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1100 qxe_unlink (XSTRING_DATA (tempfile));
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1101 errno = old_errno;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1102 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1103 report_file_error ("Creating temp file", tempfile);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1104 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1105
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1106 CHECK_STRING (string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1107 get_string_range_byte (string, Qnil, Qnil, &bstart, &bend,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1108 GB_HISTORICAL_STRING_BEHAVIOR);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1109 instream = make_lisp_string_input_stream (string, bstart, bend);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1110 istr = XLSTREAM (instream);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1111 /* setup the out stream */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1112 outstream =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1113 make_dynarr_output_stream ((unsigned_char_dynarr *) conversion_out_dynarr);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1114 ostr = XLSTREAM (outstream);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1115 /* setup the conversion stream */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1116 conv_out_stream =
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1117 make_coding_output_stream (ostr, Qbinary, CODING_ENCODE, 0);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1118 costr = XLSTREAM (conv_out_stream);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1119 GCPRO4 (tempfile, instream, outstream, conv_out_stream);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1120
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1121 /* Get the data while doing the conversion */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1122 while (1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1123 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1124 int size_in_bytes = Lstream_read (istr, tempbuf, sizeof (tempbuf));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1125 if (!size_in_bytes)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1126 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1127 /* It does seem the flushes are necessary... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1128 Lstream_write (costr, tempbuf, size_in_bytes);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1129 Lstream_flush (costr);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1130 Lstream_flush (ostr);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1131 if (retry_fwrite ((unsigned char *)Dynarr_atp(conversion_out_dynarr, 0),
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1132 Dynarr_length(conversion_out_dynarr), 1, tmpfil) != 1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1133 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1134 fubar = 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1135 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1136 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1137 /* reset the dynarr */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1138 Lstream_rewind(ostr);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1139 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1140
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1141 if (retry_fclose (tmpfil) != 0)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1142 fubar = 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1143 Lstream_close (istr);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1144 Lstream_close (costr);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1145 Lstream_close (ostr);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1146
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1147 Lstream_delete (istr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1148 Lstream_delete (ostr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1149 Lstream_delete (costr);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1150
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1151 if (fubar)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1152 report_file_error ("Writing temp file", tempfile);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1153
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1154 UNGCPRO;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1155 return tempfile;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1156 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1157
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1158 struct color_symbol
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1159 {
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1160 char* name;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1161 GdkColor color;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1162 };
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1163
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1164 static struct color_symbol*
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1165 extract_xpm_color_names (Lisp_Object device,
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1166 Lisp_Object domain,
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1167 Lisp_Object color_symbol_alist,
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1168 int* nsymbols)
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1169 {
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1170 /* This function can GC */
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1171 Lisp_Object rest;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1172 Lisp_Object results = Qnil;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1173 int i, j;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1174 struct color_symbol *colortbl;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1175 struct gcpro gcpro1, gcpro2;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1176
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1177 GCPRO2 (results, device);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1178
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1179 /* We built up results to be (("name" . #<color>) ...) so that if an
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1180 error happens we don't lose any malloc()ed data, or more importantly,
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1181 leave any pixels allocated in the server. */
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1182 i = 0;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1183 LIST_LOOP (rest, color_symbol_alist)
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1184 {
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1185 Lisp_Object cons = XCAR (rest);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1186 Lisp_Object name = XCAR (cons);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1187 Lisp_Object value = XCDR (cons);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1188 if (NILP (value))
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1189 continue;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1190 if (STRINGP (value))
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1191 value =
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1192 Fmake_color_instance
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
1193 (value, device, encode_error_behavior_flag (ERROR_ME_DEBUG_WARN));
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1194 else
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1195 {
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1196 assert (COLOR_SPECIFIERP (value));
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1197 value = Fspecifier_instance (value, domain, Qnil, Qnil);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1198 }
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1199
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1200 if (NILP (value))
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1201 continue;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1202 results = noseeum_cons (noseeum_cons (name, value), results);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1203 i++;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1204 }
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1205 UNGCPRO; /* no more evaluation */
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1206
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1207 *nsymbols=i;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1208 if (i == 0) return 0;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1209
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1210 colortbl = xnew_array_and_zero (struct color_symbol, i);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1211
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1212 for (j=0; j<i; j++)
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1213 {
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1214 Lisp_Object cons = XCAR (results);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1215 colortbl[j].color =
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1216 * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (XCDR (cons)));
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1217
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1218 colortbl[j].name = (char *) XSTRING_DATA (XCAR (cons));
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1219 free_cons (XCONS (cons));
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1220 cons = results;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1221 results = XCDR (results);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1222 free_cons (XCONS (cons));
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1223 }
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1224 return colortbl;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1225 }
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1226
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1227 static void
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1228 gtk_xpm_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1229 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1230 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1231 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1232 /* This function can GC */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1233 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1234 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1235 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1236 GdkColormap *cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1237 int depth;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1238 GdkVisual *visual;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1239 GdkPixmap *pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1240 GdkPixmap *mask = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1241 GdkWindow *window = 0;
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1242 int nsymbols = 0, i = 0;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1243 struct color_symbol *color_symbols = NULL;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1244 GdkColor *transparent_color = NULL;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1245 Lisp_Object color_symbol_alist = find_keyword_in_vector (instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1246 Q_color_symbols);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1247 enum image_instance_type type;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1248 int force_mono;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1249 unsigned int w, h;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1250 Lisp_Object tempfile = Qnil;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1251 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1252
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1253 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1254 gui_error ("Not a Gtk device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1255
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1256 if (dest_mask & IMAGE_COLOR_PIXMAP_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1257 type = IMAGE_COLOR_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1258 else if (dest_mask & IMAGE_MONO_PIXMAP_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1259 type = IMAGE_MONO_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1260 else if (dest_mask & IMAGE_POINTER_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1261 type = IMAGE_POINTER;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1262 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1263 incompatible_image_types (instantiator, dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1264 IMAGE_MONO_PIXMAP_MASK | IMAGE_COLOR_PIXMAP_MASK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1265 | IMAGE_POINTER_MASK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1266 force_mono = (type != IMAGE_COLOR_PIXMAP);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1267
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1268 GCPRO4 (device, data, color_symbol_alist, tempfile);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1269
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1270 window = GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (XDEVICE (device)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1271 cmap = DEVICE_GTK_COLORMAP (XDEVICE (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1272 depth = DEVICE_GTK_DEPTH (XDEVICE (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1273 visual = DEVICE_GTK_VISUAL (XDEVICE (device));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1274
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1275 gtk_initialize_pixmap_image_instance (ii, 1, type);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1276
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1277 assert (!NILP (data));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1278
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1279 /* Need to get the transparent color here */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1280 color_symbols = extract_xpm_color_names (device, domain, color_symbol_alist,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1281 &nsymbols);
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1282 for (i = 0; i < nsymbols; i++)
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1283 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1284 if (!qxestrcasecmp ("BgColor", color_symbols[i].name) ||
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1285 !qxestrcasecmp ("None", color_symbols[i].name))
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1286 {
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1287 transparent_color = &color_symbols[i].color;
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1288 }
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1289 }
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1290
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1291 tempfile = write_lisp_string_to_temp_file (data);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1292 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1293 Extbyte *tempfileout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1294
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1295 LISP_STRING_TO_EXTERNAL (tempfile, tempfileout, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1296 pixmap = gdk_pixmap_create_from_xpm (window, &mask, transparent_color,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1297 tempfileout);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1298 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1299 qxe_unlink (XSTRING_DATA (tempfile));
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1300
739
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1301 if (color_symbols) xfree (color_symbols);
2e5e2ccbeed2 [xemacs-hg @ 2002-02-02 13:42:53 by wmperry]
wmperry
parents: 714
diff changeset
1302
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1303 if (!pixmap)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1304 signal_image_error ("Error reading pixmap", data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1305
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1306 gdk_window_get_geometry (pixmap, NULL, NULL, &w, &h, &depth);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1307
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1308 IMAGE_INSTANCE_GTK_PIXMAP (ii) = pixmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1309 IMAGE_INSTANCE_GTK_MASK (ii) = mask;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1310 IMAGE_INSTANCE_GTK_COLORMAP (ii) = cmap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1311 IMAGE_INSTANCE_GTK_PIXELS (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1312 IMAGE_INSTANCE_GTK_NPIXELS (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1313 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = w;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1314 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = h;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1315 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1316 find_keyword_in_vector (instantiator, Q_file);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1317
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1318 switch (type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1319 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1320 case IMAGE_MONO_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1321 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1322
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1323 case IMAGE_COLOR_PIXMAP:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1324 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = depth;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1325 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1326
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1327 case IMAGE_POINTER:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1328 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1329 GdkColor fg, bg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1330 unsigned int xhot, yhot;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1331
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1332 /* #### Gtk does not give us access to the hotspots of a pixmap */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1333 xhot = yhot = 1;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
1334 IMAGE_INSTANCE_PIXMAP_HOTSPOT_X (ii) = make_int (xhot);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
1335 IMAGE_INSTANCE_PIXMAP_HOTSPOT_Y (ii) = make_int (yhot);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1336
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1337 check_pointer_sizes (w, h, instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1338
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1339 /* If the loaded pixmap has colors allocated (meaning it came from an
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1340 XPM file), then use those as the default colors for the cursor we
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1341 create. Otherwise, default to pointer_fg and pointer_bg.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1342 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1343 if (depth > 1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1344 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1345 warn_when_safe (Qunimplemented, Qnotice,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1346 "GTK does not support XPM cursors...\n");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1347 IMAGE_INSTANCE_GTK_CURSOR (ii) = gdk_cursor_new (GDK_COFFEE_MUG);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1348 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1349 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1350 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1351 generate_cursor_fg_bg (device, &pointer_fg, &pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1352 &fg, &bg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1353 IMAGE_INSTANCE_PIXMAP_FG (ii) = pointer_fg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1354 IMAGE_INSTANCE_PIXMAP_BG (ii) = pointer_bg;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1355 IMAGE_INSTANCE_GTK_CURSOR (ii) =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1356 gdk_cursor_new_from_pixmap (pixmap, mask, &fg, &bg, xhot, yhot);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1357 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1358 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1359
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1360 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1361
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1362 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1363 abort ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1364 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1365
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1366 UNGCPRO;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1367 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1368 #endif /* HAVE_XPM */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1369
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1370
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1371 #ifdef HAVE_XFACE
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1372
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1373 /**********************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1374 * X-Face *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1375 **********************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1376 #if defined(EXTERN)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1377 /* This is about to get redefined! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1378 #undef EXTERN
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1379 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1380 /* We have to define SYSV32 so that compface.h includes string.h
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1381 instead of strings.h. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1382 #define SYSV32
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1383 #ifdef __cplusplus
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1384 extern "C" {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1385 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1386 #include <compface.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1387 #ifdef __cplusplus
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1388 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1389 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1390 /* JMP_BUF cannot be used here because if it doesn't get defined
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1391 to jmp_buf we end up with a conflicting type error with the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1392 definition in compface.h */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1393 extern jmp_buf comp_env;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1394 #undef SYSV32
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1395
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1396 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1397 gtk_xface_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1398 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1399 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1400 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1401 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1402 int i, stattis;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1403 char *p, *bits, *bp;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1404 const char * volatile emsg = 0;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1405 const char * volatile dstring;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1406
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1407 assert (!NILP (data));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1408
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1409 LISP_STRING_TO_EXTERNAL (data, dstring, Qbinary);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1410
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1411 if ((p = strchr (dstring, ':')))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1412 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1413 dstring = p + 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1414 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1415
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1416 /* Must use setjmp not SETJMP because we used jmp_buf above not JMP_BUF */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1417 if (!(stattis = setjmp (comp_env)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1418 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1419 UnCompAll ((char *) dstring);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1420 UnGenFace ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1421 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1422
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1423 switch (stattis)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1424 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1425 case -2:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1426 emsg = "uncompface: internal error";
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1427 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1428 case -1:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1429 emsg = "uncompface: insufficient or invalid data";
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1430 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1431 case 1:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1432 emsg = "uncompface: excess data ignored";
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1433 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1434 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1435
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1436 if (emsg)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1437 gui_error_2 (emsg, data, Qimage);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1438
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1439 bp = bits = (char *) alloca (PIXELS / 8);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1440
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1441 /* the compface library exports char F[], which uses a single byte per
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1442 pixel to represent a 48x48 bitmap. Yuck. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1443 for (i = 0, p = F; i < (PIXELS / 8); ++i)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1444 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1445 int n, b;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1446 /* reverse the bit order of each byte... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1447 for (b = n = 0; b < 8; ++b)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1448 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1449 n |= ((*p++) << b);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1450 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1451 *bp++ = (char) n;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1452 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1453
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1454 xbm_instantiate_1 (image_instance, instantiator, pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1455 pointer_bg, dest_mask, 48, 48, bits);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1456 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1457
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1458 #endif /* HAVE_XFACE */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1459
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1460 /**********************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1461 * RESOURCES *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1462 **********************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1463
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1464 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1465 gtk_resource_validate (Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1466 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1467 if ((NILP (find_keyword_in_vector (instantiator, Q_file))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1468 &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1469 NILP (find_keyword_in_vector (instantiator, Q_resource_id)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1470 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1471 NILP (find_keyword_in_vector (instantiator, Q_resource_type)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1472 sferror ("Must supply :file, :resource-id and :resource-type",
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1473 instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1474 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1475
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1476 static Lisp_Object
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1477 gtk_resource_normalize (Lisp_Object inst, Lisp_Object console_type,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1478 Lisp_Object dest_mask)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1479 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1480 return shared_resource_normalize (inst, console_type, dest_mask,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1481 Qgtk_resource);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1482 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1483
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1484 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1485 gtk_resource_possible_dest_types (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1486 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1487 return IMAGE_POINTER_MASK | IMAGE_COLOR_PIXMAP_MASK;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1488 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1489
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1490 extern guint symbol_to_enum (Lisp_Object, GtkType);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1491
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1492 static guint resource_name_to_resource (Lisp_Object name, int type)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1493 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1494 if (type == IMAGE_POINTER)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1495 return (symbol_to_enum (name, GTK_TYPE_GDK_CURSOR_TYPE));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1496 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1497 return (0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1498 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1499
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1500 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1501 resource_symbol_to_type (Lisp_Object data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1502 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1503 if (EQ (data, Qcursor))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1504 return IMAGE_POINTER;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1505 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1506 else if (EQ (data, Qicon))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1507 return IMAGE_ICON;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1508 else if (EQ (data, Qbitmap))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1509 return IMAGE_BITMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1510 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1511 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1512 return 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1513 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1514
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1515 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1516 gtk_resource_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1517 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1518 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1519 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1520 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1521 GdkCursor *c = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1522 unsigned int type = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1523 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1524 Lisp_Object resource_type = find_keyword_in_vector (instantiator, Q_resource_type);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1525 Lisp_Object resource_id = find_keyword_in_vector (instantiator, Q_resource_id);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1526
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1527 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1528 gui_error ("Not a GTK device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1529
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1530 type = resource_symbol_to_type (resource_type);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1531
595
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1532 #if 0
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1533 if (dest_mask & IMAGE_POINTER_MASK && type == IMAGE_POINTER_MASK)
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1534 iitype = IMAGE_POINTER;
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1535 else if (dest_mask & IMAGE_COLOR_PIXMAP_MASK)
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1536 iitype = IMAGE_COLOR_PIXMAP;
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1537 else
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1538 incompatible_image_types (instantiator, dest_mask,
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1539 IMAGE_COLOR_PIXMAP_MASK | IMAGE_POINTER_MASK);
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1540 #endif
fec27b06b4e5 [xemacs-hg @ 2001-05-31 14:45:08 by wmperry]
wmperry
parents: 563
diff changeset
1541
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1542 /* mess with the keyword info we were provided with */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1543 gtk_initialize_pixmap_image_instance (ii, 1, type);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1544 c = gdk_cursor_new (resource_name_to_resource (resource_id, type));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1545 IMAGE_INSTANCE_GTK_CURSOR (ii) = c;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1546 IMAGE_INSTANCE_PIXMAP_FILENAME (ii) = resource_id;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1547 IMAGE_INSTANCE_PIXMAP_WIDTH (ii) = 10;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1548 IMAGE_INSTANCE_PIXMAP_HEIGHT (ii) = 10;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1549 IMAGE_INSTANCE_PIXMAP_DEPTH (ii) = 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1550 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1551
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1552 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1553 check_valid_resource_symbol (Lisp_Object data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1554 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1555 CHECK_SYMBOL (data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1556 if (!resource_symbol_to_type (data))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1557 invalid_constant ("invalid resource type", data);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1558 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1559
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1560 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1561 check_valid_resource_id (Lisp_Object data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1562 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1563 if (!resource_name_to_resource (data, IMAGE_POINTER)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1564 &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1565 !resource_name_to_resource (data, IMAGE_COLOR_PIXMAP)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1566 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1567 &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1568 !resource_name_to_resource (data, IMAGE_BITMAP)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1569 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1570 )
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1571 invalid_constant ("invalid resource identifier", data);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1572 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1573
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1574 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1575 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1576 check_valid_string_or_int (Lisp_Object data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1577 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1578 if (!INTP (data))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1579 CHECK_STRING (data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1580 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1581 CHECK_INT (data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1582 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1583 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1584
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1585
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1586 /**********************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1587 * Autodetect *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1588 **********************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1589
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1590 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1591 autodetect_validate (Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1592 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1593 data_must_be_present (instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1594 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1595
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1596 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1597 autodetect_normalize (Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1598 Lisp_Object console_type,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1599 Lisp_Object dest_mask)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1600 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1601 Lisp_Object file = find_keyword_in_vector (instantiator, Q_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1602 Lisp_Object filename = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1603 Lisp_Object data = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1604 struct gcpro gcpro1, gcpro2, gcpro3;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1605 Lisp_Object alist = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1606
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1607 GCPRO3 (filename, data, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1608
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1609 if (NILP (file)) /* no conversion necessary */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1610 RETURN_UNGCPRO (instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1611
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1612 alist = tagged_vector_to_alist (instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1613
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1614 filename = locate_pixmap_file (file);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1615 if (!NILP (filename))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1616 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1617 int xhot, yhot;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1618 /* #### Apparently some versions of XpmReadFileToData, which is
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1619 called by pixmap_to_lisp_data, don't return an error value
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1620 if the given file is not a valid XPM file. Instead, they
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1621 just seg fault. It is definitely caused by passing a
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1622 bitmap. To try and avoid this we check for bitmaps first. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1623
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1624 data = bitmap_to_lisp_data (filename, &xhot, &yhot, 1);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1625
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1626 if (!EQ (data, Qt))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1627 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1628 alist = remassq_no_quit (Q_data, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1629 alist = Fcons (Fcons (Q_file, filename),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1630 Fcons (Fcons (Q_data, data), alist));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1631 if (xhot != -1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1632 alist = Fcons (Fcons (Q_hotspot_x, make_int (xhot)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1633 alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1634 if (yhot != -1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1635 alist = Fcons (Fcons (Q_hotspot_y, make_int (yhot)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1636 alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1637
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1638 alist = xbm_mask_file_munging (alist, filename, Qnil, console_type);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1639
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1640 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1641 Lisp_Object result = alist_to_tagged_vector (Qxbm, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1642 free_alist (alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1643 RETURN_UNGCPRO (result);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1644 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1645 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1646
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1647 #ifdef HAVE_XPM
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1648 data = pixmap_to_lisp_data (filename, 1);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1649
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1650 if (!EQ (data, Qt))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1651 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1652 alist = remassq_no_quit (Q_data, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1653 alist = Fcons (Fcons (Q_file, filename),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1654 Fcons (Fcons (Q_data, data), alist));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1655 alist = Fcons (Fcons (Q_color_symbols,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1656 evaluate_xpm_color_symbols ()),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1657 alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1658 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1659 Lisp_Object result = alist_to_tagged_vector (Qxpm, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1660 free_alist (alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1661 RETURN_UNGCPRO (result);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1662 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1663 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1664 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1665 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1666
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1667 /* If we couldn't convert it, just put it back as it is.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1668 We might try to further frob it later as a cursor-font
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1669 specification. (We can't do that now because we don't know
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1670 what dest-types it's going to be instantiated into.) */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1671 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1672 Lisp_Object result = alist_to_tagged_vector (Qautodetect, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1673 free_alist (alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1674 RETURN_UNGCPRO (result);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1675 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1676 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1677
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1678 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1679 autodetect_possible_dest_types (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1680 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1681 return
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1682 IMAGE_MONO_PIXMAP_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1683 IMAGE_COLOR_PIXMAP_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1684 IMAGE_POINTER_MASK |
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1685 IMAGE_TEXT_MASK;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1686 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1687
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1688 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1689 autodetect_instantiate (Lisp_Object image_instance,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1690 Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1691 Lisp_Object pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1692 Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1693 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1694 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1695 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1696 struct gcpro gcpro1, gcpro2, gcpro3;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1697 Lisp_Object alist = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1698 Lisp_Object result = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1699 int is_cursor_font = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1700
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1701 GCPRO3 (data, alist, result);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1702
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1703 alist = tagged_vector_to_alist (instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1704 if (dest_mask & IMAGE_POINTER_MASK)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1705 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1706 const char *name_ext;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1707
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1708 TO_EXTERNAL_FORMAT (LISP_STRING, data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1709 C_STRING_ALLOCA, name_ext,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1710 Qfile_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1711
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1712 if (cursor_name_to_index (name_ext) != -1)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1713 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1714 result = alist_to_tagged_vector (Qcursor_font, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1715 is_cursor_font = 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1716 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1717 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1718
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1719 if (!is_cursor_font)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1720 result = alist_to_tagged_vector (Qstring, alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1721 free_alist (alist);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1722
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1723 if (is_cursor_font)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1724 cursor_font_instantiate (image_instance, result, pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1725 pointer_bg, dest_mask, domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1726 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1727 string_instantiate (image_instance, result, pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1728 pointer_bg, dest_mask, domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1729
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1730 UNGCPRO;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1731 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1732
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1733
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1734 /**********************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1735 * Font *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1736 **********************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1737
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1738 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1739 font_validate (Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1740 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1741 data_must_be_present (instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1742 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1743
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1744 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1745 font_possible_dest_types (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1746 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1747 return IMAGE_POINTER_MASK;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1748 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1749
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1750 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1751 font_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1752 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1753 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1754 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1755 /* This function can GC */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1756 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1757 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1758 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1759 GdkColor fg, bg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1760 GdkFont *source, *mask;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1761 char source_name[PATH_MAX], mask_name[PATH_MAX], dummy;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1762 int source_char, mask_char;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1763 int count;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1764 Lisp_Object foreground, background;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1765
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1766 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1767 gui_error ("Not a Gtk device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1768
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1769 if (!STRINGP (data) ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1770 strncmp ("FONT ", (char *) XSTRING_DATA (data), 5))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1771 invalid_argument ("Invalid font-glyph instantiator",
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1772 instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1773
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1774 if (!(dest_mask & IMAGE_POINTER_MASK))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1775 incompatible_image_types (instantiator, dest_mask, IMAGE_POINTER_MASK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1776
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1777 foreground = find_keyword_in_vector (instantiator, Q_foreground);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1778 if (NILP (foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1779 foreground = pointer_fg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1780 background = find_keyword_in_vector (instantiator, Q_background);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1781 if (NILP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1782 background = pointer_bg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1783
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1784 generate_cursor_fg_bg (device, &foreground, &background, &fg, &bg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1785
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1786 count = sscanf ((char *) XSTRING_DATA (data),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1787 "FONT %s %d %s %d %c",
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1788 source_name, &source_char,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1789 mask_name, &mask_char, &dummy);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1790 /* Allow "%s %d %d" as well... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1791 if (count == 3 && (1 == sscanf (mask_name, "%d %c", &mask_char, &dummy)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1792 count = 4, mask_name[0] = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1793
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1794 if (count != 2 && count != 4)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1795 syntax_error ("invalid cursor specification", data);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1796 source = gdk_font_load (source_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1797 if (! source)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1798 gui_error_2 ("couldn't load font",
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1799 build_string (source_name),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1800 data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1801 if (count == 2)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1802 mask = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1803 else if (!mask_name[0])
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1804 mask = source;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1805 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1806 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1807 mask = gdk_font_load (mask_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1808 if (!mask)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1809 /* continuable */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1810 Fsignal (Qgui_error, list3 (build_msg_string ("couldn't load font"),
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1811 build_string (mask_name), data));
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1812 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1813 if (!mask)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1814 mask_char = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1815
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1816 /* #### call XQueryTextExtents() and check_pointer_sizes() here. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1817
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1818 gtk_initialize_pixmap_image_instance (ii, 1, IMAGE_POINTER);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1819
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1820 IMAGE_INSTANCE_GTK_CURSOR (ii) = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1821
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1822 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1823 /* #### BILL!!! There is no way to call this function from Gdk */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1824 XCreateGlyphCursor (dpy, source, mask, source_char, mask_char,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1825 &fg, &bg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1826 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1827 XIMAGE_INSTANCE_PIXMAP_FG (image_instance) = foreground;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1828 XIMAGE_INSTANCE_PIXMAP_BG (image_instance) = background;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1829
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1830 gdk_font_unref (source);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1831 if (mask && mask != source) gdk_font_unref (mask);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1832 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1833
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1834
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1835 /**********************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1836 * Cursor-Font *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1837 **********************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1838
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1839 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1840 cursor_font_validate (Lisp_Object instantiator)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1841 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1842 data_must_be_present (instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1843 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1844
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1845 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1846 cursor_font_possible_dest_types (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1847 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1848 return IMAGE_POINTER_MASK;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1849 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1850
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1851 static char *__downcase (const char *name)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1852 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1853 char *converted = strdup(name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1854 char *work = converted;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1855
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1856 while (*work)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1857 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1858 *work = tolower(*work);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1859 work++;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1860 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1861 return(converted);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1862 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1863
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1864 /* This is basically the equivalent of XmuCursorNameToIndex */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1865 static gint
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1866 cursor_name_to_index (const char *name)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1867 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1868 int i;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1869 static char *the_gdk_cursors[GDK_NUM_GLYPHS];
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1870
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1871 if (!the_gdk_cursors[GDK_BASED_ARROW_UP])
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1872 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1873 /* Need to initialize the array */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1874 /* Supposedly since this array is static it should be
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1875 initialized to NULLs for us, but I'm very paranoid. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1876 for (i = 0; i < GDK_NUM_GLYPHS; i++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1877 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1878 the_gdk_cursors[i] = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1879 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1880
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1881 #define FROB_CURSOR(x) the_gdk_cursors[GDK_##x] = __downcase(#x)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1882 FROB_CURSOR(ARROW); FROB_CURSOR(BASED_ARROW_DOWN);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1883 FROB_CURSOR(BASED_ARROW_UP); FROB_CURSOR(BOAT);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1884 FROB_CURSOR(BOGOSITY); FROB_CURSOR(BOTTOM_LEFT_CORNER);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1885 FROB_CURSOR(BOTTOM_RIGHT_CORNER); FROB_CURSOR(BOTTOM_SIDE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1886 FROB_CURSOR(BOTTOM_TEE); FROB_CURSOR(BOX_SPIRAL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1887 FROB_CURSOR(CENTER_PTR); FROB_CURSOR(CIRCLE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1888 FROB_CURSOR(CLOCK); FROB_CURSOR(COFFEE_MUG);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1889 FROB_CURSOR(CROSS); FROB_CURSOR(CROSS_REVERSE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1890 FROB_CURSOR(CROSSHAIR); FROB_CURSOR(DIAMOND_CROSS);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1891 FROB_CURSOR(DOT); FROB_CURSOR(DOTBOX);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1892 FROB_CURSOR(DOUBLE_ARROW); FROB_CURSOR(DRAFT_LARGE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1893 FROB_CURSOR(DRAFT_SMALL); FROB_CURSOR(DRAPED_BOX);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1894 FROB_CURSOR(EXCHANGE); FROB_CURSOR(FLEUR);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1895 FROB_CURSOR(GOBBLER); FROB_CURSOR(GUMBY);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1896 FROB_CURSOR(HAND1); FROB_CURSOR(HAND2);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1897 FROB_CURSOR(HEART); FROB_CURSOR(ICON);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1898 FROB_CURSOR(IRON_CROSS); FROB_CURSOR(LEFT_PTR);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1899 FROB_CURSOR(LEFT_SIDE); FROB_CURSOR(LEFT_TEE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1900 FROB_CURSOR(LEFTBUTTON); FROB_CURSOR(LL_ANGLE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1901 FROB_CURSOR(LR_ANGLE); FROB_CURSOR(MAN);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1902 FROB_CURSOR(MIDDLEBUTTON); FROB_CURSOR(MOUSE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1903 FROB_CURSOR(PENCIL); FROB_CURSOR(PIRATE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1904 FROB_CURSOR(PLUS); FROB_CURSOR(QUESTION_ARROW);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1905 FROB_CURSOR(RIGHT_PTR); FROB_CURSOR(RIGHT_SIDE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1906 FROB_CURSOR(RIGHT_TEE); FROB_CURSOR(RIGHTBUTTON);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1907 FROB_CURSOR(RTL_LOGO); FROB_CURSOR(SAILBOAT);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1908 FROB_CURSOR(SB_DOWN_ARROW); FROB_CURSOR(SB_H_DOUBLE_ARROW);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1909 FROB_CURSOR(SB_LEFT_ARROW); FROB_CURSOR(SB_RIGHT_ARROW);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1910 FROB_CURSOR(SB_UP_ARROW); FROB_CURSOR(SB_V_DOUBLE_ARROW);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1911 FROB_CURSOR(SHUTTLE); FROB_CURSOR(SIZING);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1912 FROB_CURSOR(SPIDER); FROB_CURSOR(SPRAYCAN);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1913 FROB_CURSOR(STAR); FROB_CURSOR(TARGET);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1914 FROB_CURSOR(TCROSS); FROB_CURSOR(TOP_LEFT_ARROW);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1915 FROB_CURSOR(TOP_LEFT_CORNER); FROB_CURSOR(TOP_RIGHT_CORNER);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1916 FROB_CURSOR(TOP_SIDE); FROB_CURSOR(TOP_TEE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1917 FROB_CURSOR(TREK); FROB_CURSOR(UL_ANGLE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1918 FROB_CURSOR(UMBRELLA); FROB_CURSOR(UR_ANGLE);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1919 FROB_CURSOR(WATCH); FROB_CURSOR(XTERM);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1920 FROB_CURSOR(X_CURSOR);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1921 #undef FROB_CURSOR
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1922 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1923
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1924 for (i = 0; i < GDK_NUM_GLYPHS; i++)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1925 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1926 if (!the_gdk_cursors[i]) continue;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1927 if (!strcmp (the_gdk_cursors[i], name))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1928 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1929 return (i);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1930 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1931 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1932 return(-1);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1933 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1934
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1935 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1936 cursor_font_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1937 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1938 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1939 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1940 /* This function can GC */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1941 Lisp_Object data = find_keyword_in_vector (instantiator, Q_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1942 struct Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1943 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1944 int i;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 739
diff changeset
1945 const char *name_ext;
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1946 Lisp_Object foreground, background;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1947
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1948 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1949 gui_error ("Not a Gtk device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1950
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1951 if (!(dest_mask & IMAGE_POINTER_MASK))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1952 incompatible_image_types (instantiator, dest_mask, IMAGE_POINTER_MASK);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1953
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1954 TO_EXTERNAL_FORMAT (LISP_STRING, data,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1955 C_STRING_ALLOCA, name_ext,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1956 Qfile_name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1957
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1958 if ((i = cursor_name_to_index (name_ext)) == -1)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
1959 invalid_argument ("Unrecognized cursor-font name", data);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1960
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1961 gtk_initialize_pixmap_image_instance (ii, 1, IMAGE_POINTER);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1962 IMAGE_INSTANCE_GTK_CURSOR (ii) = gdk_cursor_new (i);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1963 foreground = find_keyword_in_vector (instantiator, Q_foreground);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1964 if (NILP (foreground))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1965 foreground = pointer_fg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1966 background = find_keyword_in_vector (instantiator, Q_background);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1967 if (NILP (background))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1968 background = pointer_bg;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1969 maybe_recolor_cursor (image_instance, foreground, background);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1970 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1971
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1972 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1973 gtk_colorize_image_instance (Lisp_Object image_instance,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1974 Lisp_Object foreground, Lisp_Object background);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1975
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1976
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1977 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1978 /* subwindow and widget support */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1979 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1980
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1981 /* unmap the image if it is a widget. This is used by redisplay via
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1982 redisplay_unmap_subwindows */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1983 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1984 gtk_unmap_subwindow (Lisp_Image_Instance *p)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1985 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1986 if (IMAGE_INSTANCE_TYPE (p) == IMAGE_SUBWINDOW)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1987 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1988 /* We don't support subwindows, but we do support widgets... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1989 abort ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1990 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1991 else /* must be a widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1992 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1993 /* Since we are being unmapped we want the enclosing frame to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1994 get focus. The losing with simple scrolling but is the safest
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1995 thing to do. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1996 if (IMAGE_INSTANCE_GTK_CLIPWIDGET (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1997 gtk_widget_unmap (IMAGE_INSTANCE_GTK_CLIPWIDGET (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1998 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1999 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2000
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2001 /* map the subwindow. This is used by redisplay via
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2002 redisplay_output_subwindow */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2003 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2004 gtk_map_subwindow (Lisp_Image_Instance *p, int x, int y,
691
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2005 struct display_glyph_area* dga)
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2006 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2007 assert (dga->width > 0 && dga->height > 0);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2008
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2009 if (IMAGE_INSTANCE_TYPE (p) == IMAGE_SUBWINDOW)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2010 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2011 /* No subwindow support... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2012 abort ();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2013 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2014 else /* must be a widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2015 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2016 struct frame *f = XFRAME (IMAGE_INSTANCE_FRAME (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2017 GtkWidget *wid = IMAGE_INSTANCE_GTK_CLIPWIDGET (p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2018 GtkAllocation a;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2019
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2020 if (!wid) return;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2021
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2022 a.x = x + IMAGE_INSTANCE_GTK_WIDGET_XOFFSET (p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2023 a.y = y + IMAGE_INSTANCE_GTK_WIDGET_YOFFSET (p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2024 a.width = dga->width;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2025 a.height = dga->height;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2026
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2027 if ((a.width != wid->allocation.width) ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2028 (a.height != wid->allocation.height))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2029 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2030 gtk_widget_size_allocate (IMAGE_INSTANCE_GTK_CLIPWIDGET (p), &a);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2031 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2032
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2033 /* #### FIXME DAMMIT */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2034 if ((wid->allocation.x != -dga->xoffset) ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2035 (wid->allocation.y != -dga->yoffset))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2036 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2037 guint32 old_flags = GTK_WIDGET_FLAGS (FRAME_GTK_TEXT_WIDGET (f));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2038
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2039 /* Fucking GtkFixed widget queues a resize when you add a widget.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2040 ** But only if it is visible.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2041 ** losers.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2042 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2043 GTK_WIDGET_FLAGS(FRAME_GTK_TEXT_WIDGET (f)) &= ~GTK_VISIBLE;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2044 if (IMAGE_INSTANCE_GTK_ALREADY_PUT(p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2045 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2046 gtk_fixed_move (GTK_FIXED (FRAME_GTK_TEXT_WIDGET (f)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2047 wid,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2048 -dga->xoffset, -dga->yoffset);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2049 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2050 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2051 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2052 IMAGE_INSTANCE_GTK_ALREADY_PUT(p) = TRUE;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2053 gtk_fixed_put (GTK_FIXED (FRAME_GTK_TEXT_WIDGET (f)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2054 wid,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2055 -dga->xoffset, -dga->yoffset);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2056 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2057 GTK_WIDGET_FLAGS(FRAME_GTK_TEXT_WIDGET (f)) = old_flags;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2058 }
691
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2059 else
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2060 {
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2061 if (IMAGE_INSTANCE_GTK_ALREADY_PUT(p))
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2062 {
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2063 /* Do nothing... */
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2064 }
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2065 else
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2066 {
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2067 /* Must make sure we have put the image at least once! */
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2068 IMAGE_INSTANCE_GTK_ALREADY_PUT(p) = TRUE;
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2069 gtk_fixed_put (GTK_FIXED (FRAME_GTK_TEXT_WIDGET (f)),
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2070 wid,
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2071 -dga->xoffset, -dga->yoffset);
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2072 }
1df69dc58840 [xemacs-hg @ 2001-12-13 20:53:20 by wmperry]
wmperry
parents: 608
diff changeset
2073 }
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2074
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2075 if (!IMAGE_INSTANCE_SUBWINDOW_DISPLAYEDP (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2076 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2077 gtk_widget_map (wid);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2078 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2079
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2080 gtk_widget_draw (wid, NULL);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2081 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2082 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2083
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2084 /* when you click on a widget you may activate another widget this
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2085 needs to be checked and all appropriate widgets updated */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2086 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2087 gtk_redisplay_subwindow (Lisp_Image_Instance *p)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2088 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2089 /* Update the subwindow size if necessary. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2090 if (IMAGE_INSTANCE_SIZE_CHANGED (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2091 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2092 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2093 XResizeWindow (IMAGE_INSTANCE_X_SUBWINDOW_DISPLAY (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2094 IMAGE_INSTANCE_X_SUBWINDOW_ID (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2095 IMAGE_INSTANCE_WIDTH (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2096 IMAGE_INSTANCE_HEIGHT (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2097 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2098 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2099 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2100
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2101 /* Update all attributes that have changed. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2102 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2103 gtk_redisplay_widget (Lisp_Image_Instance *p)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2104 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2105 /* This function can GC if IN_REDISPLAY is false. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2106
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2107 if (!IMAGE_INSTANCE_GTK_CLIPWIDGET (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2108 return;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2109
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2110 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2111 /* First get the items if they have changed since this is a
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2112 structural change. As such it will nuke all added values so we
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2113 need to update most other things after the items have changed.*/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2114 gtk_widget_show_all (IMAGE_INSTANCE_GTK_CLIPWIDGET (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2115 if (IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2116 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
2117 Lisp_Object image_instance = wrap_image_instance (p);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 778
diff changeset
2118
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2119
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2120 /* Need to update GtkArgs that might have changed... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2121 /* #### FIXME!!! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2122 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2123 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2124 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2125 /* #### FIXME!!! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2126 /* No items changed, so do nothing, right? */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2127 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2128
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2129 /* Possibly update the colors and font */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2130 if (IMAGE_INSTANCE_WIDGET_FACE_CHANGED (p)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2131 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2132 /* #### This is not sufficient because it will not cope with widgets
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2133 that are not currently visible. Once redisplay has done the
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2134 visible ones it will clear this flag so that when new ones
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2135 become visible they will not be updated. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2136 XFRAME (IMAGE_INSTANCE_FRAME (p))->faces_changed
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2137 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2138 XFRAME (IMAGE_INSTANCE_FRAME (p))->frame_changed
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2139 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2140 IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2141 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2142 /* #### Write this function BILL! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2143 update_widget_face (NULL, p, IMAGE_INSTANCE_FRAME (p));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2144 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2145
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2146 /* Possibly update the text. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2147 if (IMAGE_INSTANCE_TEXT_CHANGED (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2148 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2149 char* str;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2150 Lisp_Object val = IMAGE_INSTANCE_WIDGET_TEXT (p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2151 LISP_STRING_TO_EXTERNAL (val, str, Qnative);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2152
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2153 /* #### Need to special case each type of GtkWidget here! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2154 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2155
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2156 /* Possibly update the size. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2157 if (IMAGE_INSTANCE_SIZE_CHANGED (p)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2158 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2159 IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (p)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2160 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2161 IMAGE_INSTANCE_TEXT_CHANGED (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2162 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2163 assert (IMAGE_INSTANCE_GTK_WIDGET_ID (p) &&
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2164 IMAGE_INSTANCE_GTK_CLIPWIDGET (p)) ;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2165
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2166 /* #### Resize the widget! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2167 /* gtk_widget_size_allocate () */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2168 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2169
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2170 /* Adjust offsets within the frame. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2171 if (XFRAME (IMAGE_INSTANCE_FRAME (p))->size_changed)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2172 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2173 /* I don't think we need to do anything for Gtk here... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2174 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2175
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2176 /* now modify the widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2177 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2178 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2179
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2180 /* instantiate and gtk type subwindow */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2181 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2182 gtk_subwindow_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2183 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2184 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2185 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2186 /* This function can GC */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2187 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2188 Lisp_Object device = IMAGE_INSTANCE_DEVICE (ii);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2189
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2190 if (!DEVICE_GTK_P (XDEVICE (device)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2191 gui_error ("Not a GTK device", device);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2192
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2193 IMAGE_INSTANCE_TYPE (ii) = IMAGE_SUBWINDOW;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2194
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2195 ii->data = xnew_and_zero (struct gtk_subwindow_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2196
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2197 /* Create a window for clipping */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2198 IMAGE_INSTANCE_GTK_CLIPWINDOW (ii) = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2199
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2200 /* Now put the subwindow inside the clip window. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2201 IMAGE_INSTANCE_SUBWINDOW_ID (ii) = (void *) NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2202 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2203
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2204 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2205
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2206 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2207 /* widgets */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2208 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2209 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2210 update_widget_face (GtkWidget *w, Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2211 Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2212 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2213 if (0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2214 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2215 GtkStyle *style = gtk_widget_get_style (w);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2216 Lisp_Object pixel = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2217 GdkColor *fcolor, *bcolor;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2218
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2219 style = gtk_style_copy (style);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2220
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2221 /* Update the foreground. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2222 pixel = FACE_FOREGROUND (IMAGE_INSTANCE_WIDGET_FACE (ii), domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2223 fcolor = COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (pixel));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2224
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2225 /* Update the background. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2226 pixel = FACE_BACKGROUND (IMAGE_INSTANCE_WIDGET_FACE (ii), domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2227 bcolor = COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (pixel));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2228
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2229 /* Update the font */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2230 /* #### FIXME!!! Need to copy the widgets style, dick with it, and
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2231 ** set the widgets style to the new style...
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2232 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2233 gtk_widget_set_style (w, style);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2234
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2235 /* #### Megahack - but its just getting too complicated to do this
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2236 in the right place. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2237 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2238 if (EQ (IMAGE_INSTANCE_WIDGET_TYPE (ii), Qtab_control))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2239 update_tab_widget_face (wv, ii, domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2240 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2241 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2242 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2243
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2244 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2245 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2246 update_tab_widget_face (GtkWidget *w, Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2247 Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2248 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2249 if (wv->contents)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2250 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2251 widget_value* val = wv->contents, *cur;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2252
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2253 /* Give each child label the correct foreground color. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2254 Lisp_Object pixel = FACE_FOREGROUND
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2255 (IMAGE_INSTANCE_WIDGET_FACE (ii),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2256 domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2257 XColor fcolor = COLOR_INSTANCE_X_COLOR (XCOLOR_INSTANCE (pixel));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2258 lw_add_widget_value_arg (val, XtNtabForeground, fcolor.pixel);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2259 wv->change = VISIBLE_CHANGE;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2260 val->change = VISIBLE_CHANGE;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2261
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2262 for (cur = val->next; cur; cur = cur->next)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2263 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2264 cur->change = VISIBLE_CHANGE;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2265 if (cur->value)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2266 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2267 lw_copy_widget_value_args (val, cur);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2268 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2269 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2270 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2271 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2272 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2273
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2274 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2275 gtk_widget_instantiate_1 (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2276 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2277 Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2278 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2279 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2280 Lisp_Object widget = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2281 char *nm = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2282 GtkWidget *w = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2283 struct gcpro gcpro1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2284
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2285 IMAGE_INSTANCE_TYPE (ii) = IMAGE_WIDGET;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2286
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2287 if (!NILP (IMAGE_INSTANCE_WIDGET_TEXT (ii)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2288 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2289 LISP_STRING_TO_EXTERNAL (IMAGE_INSTANCE_WIDGET_TEXT (ii), nm, Qnative);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2290 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2291
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2292 ii->data = xnew_and_zero (struct gtk_subwindow_data);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2293
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2294 /* Create a clipping widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2295 IMAGE_INSTANCE_GTK_CLIPWIDGET (ii) = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2296 IMAGE_INSTANCE_GTK_ALREADY_PUT(ii) = FALSE;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2297
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2298 /* Create the actual widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2299 GCPRO1 (widget);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2300 widget = call5 (Qgtk_widget_instantiate_internal,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2301 image_instance, instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2302 pointer_fg, pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2303 domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2304
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2305 if (!NILP (widget))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2306 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2307 CHECK_GTK_OBJECT (widget);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2308 w = GTK_WIDGET (XGTK_OBJECT (widget)->object);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2309 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2310 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2311 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2312 stderr_out ("Lisp-level creation of widget failed... falling back\n");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2313 w = gtk_label_new ("Widget Creation Failed...");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2314 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2315
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2316 UNGCPRO;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2317
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2318 IMAGE_INSTANCE_SUBWINDOW_ID (ii) = (void *) w;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2319
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2320 /* #### HACK!!!! We should make this do the right thing if we
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2321 ** really need a clip widget!
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2322 */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2323 IMAGE_INSTANCE_GTK_CLIPWIDGET (ii) = w;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2324
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2325 return (Qt);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2326 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2327
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2328 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2329 gtk_widget_instantiate (Lisp_Object image_instance, Lisp_Object instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2330 Lisp_Object pointer_fg, Lisp_Object pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2331 int dest_mask, Lisp_Object domain)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2332 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2333 call_with_suspended_errors ((lisp_fn_t) gtk_widget_instantiate_1,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2334 Qnil, Qimage,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2335 ERROR_ME_WARN, 5,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2336 image_instance, instantiator,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2337 pointer_fg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2338 pointer_bg,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2339 domain);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2340 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2341
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2342 /* get properties of a control */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2343 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2344 gtk_widget_property (Lisp_Object image_instance, Lisp_Object prop)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2345 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2346 /* Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance); */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2347
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2348 /* get the text from a control */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2349 if (EQ (prop, Q_text))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2350 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2351 return Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2352 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2353 return Qunbound;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2354 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2355
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2356 #define FAKE_GTK_WIDGET_INSTANTIATOR(x) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2357 static void \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2358 gtk_##x##_instantiate (Lisp_Object image_instance, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2359 Lisp_Object instantiator, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2360 Lisp_Object pointer_fg, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2361 Lisp_Object pointer_bg, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2362 int dest_mask, Lisp_Object domain) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2363 { \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2364 gtk_widget_instantiate (image_instance, instantiator, pointer_fg, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2365 pointer_bg, dest_mask, domain); \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2366 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2367
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2368 FAKE_GTK_WIDGET_INSTANTIATOR(native_layout);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2369 FAKE_GTK_WIDGET_INSTANTIATOR(button);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2370 FAKE_GTK_WIDGET_INSTANTIATOR(progress_gauge);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2371 FAKE_GTK_WIDGET_INSTANTIATOR(edit_field);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2372 FAKE_GTK_WIDGET_INSTANTIATOR(combo_box);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2373 FAKE_GTK_WIDGET_INSTANTIATOR(tab_control);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2374 FAKE_GTK_WIDGET_INSTANTIATOR(label);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2375
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2376 /* Update a button's clicked state. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2377 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2378 gtk_button_redisplay (Lisp_Object image_instance)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2379 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2380 /* This function can GC if IN_REDISPLAY is false. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2381 Lisp_Image_Instance *p = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2382 GtkWidget *w = IMAGE_INSTANCE_GTK_CLIPWIDGET (p);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2383
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2384 if (GTK_WIDGET_TYPE (w) == gtk_button_get_type ())
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2385 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2386 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2387 else if (GTK_WIDGET_TYPE (w) == gtk_check_button_get_type ())
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2388 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2389 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2390 else if (GTK_WIDGET_TYPE (w) == gtk_radio_button_get_type ())
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2391 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2392 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2393 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2394 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2395 /* Unknown button type... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2396 abort();
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2397 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2398 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2399
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2400 /* get properties of a button */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2401 static Lisp_Object
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2402 gtk_button_property (Lisp_Object image_instance, Lisp_Object prop)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2403 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2404 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2405
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2406 /* check the state of a button */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2407 if (EQ (prop, Q_selected))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2408 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2409 if (GTK_WIDGET_HAS_FOCUS (IMAGE_INSTANCE_SUBWINDOW_ID (ii)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2410 return Qt;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2411 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2412 return Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2413 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2414 return Qunbound;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2415 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2416
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2417 /* set the properties of a progress gauge */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2418 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2419 gtk_progress_gauge_redisplay (Lisp_Object image_instance)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2420 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2421 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2422
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2423 if (IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (ii))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2424 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2425 gfloat f;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2426 Lisp_Object val;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2427
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2428 val = XGUI_ITEM (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (ii))->value;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2429 f = XFLOATINT (val);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2430
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2431 gtk_progress_set_value (GTK_PROGRESS (IMAGE_INSTANCE_SUBWINDOW_ID (ii)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2432 f);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2433 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2434 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2435
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2436 /* Set the properties of a tab control */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2437 static void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2438 gtk_tab_control_redisplay (Lisp_Object image_instance)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2439 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2440 /* #### Convert this to GTK baby! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2441 Lisp_Image_Instance *ii = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2442
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2443 if (IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (ii) ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2444 IMAGE_INSTANCE_WIDGET_ACTION_OCCURRED (ii))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2445 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2446 /* If only the order has changed then simply select the first
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2447 one of the pending set. This stops horrendous rebuilding -
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2448 and hence flicker - of the tabs each time you click on
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2449 one. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2450 if (tab_control_order_only_changed (image_instance))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2451 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2452 Lisp_Object rest, selected =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2453 gui_item_list_find_selected
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2454 (NILP (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (ii)) ?
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2455 XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)) :
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2456 XCDR (IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (ii)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2457
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2458 LIST_LOOP (rest, XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2459 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2460 if (gui_item_equal_sans_selected (XCAR (rest), selected, 0))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2461 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2462 Lisp_Object old_selected =gui_item_list_find_selected
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2463 (XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2464
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2465 /* Need to focus on the widget... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2466 stderr_out ("Hey, change the tab-focus you boob...\n");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2467
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2468 /* Pick up the new selected item. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2469 XGUI_ITEM (old_selected)->selected =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2470 XGUI_ITEM (XCAR (rest))->selected;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2471 XGUI_ITEM (XCAR (rest))->selected =
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2472 XGUI_ITEM (selected)->selected;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2473 /* We're not actually changing the items anymore. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2474 IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (ii) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2475 IMAGE_INSTANCE_WIDGET_PENDING_ITEMS (ii) = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2476 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2477 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2478 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2479 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2480 else
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2481 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2482 /* More than just the order has changed... let's get busy! */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2483 GtkNotebook *nb = GTK_NOTEBOOK (IMAGE_INSTANCE_GTK_CLIPWIDGET (ii));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2484 guint num_pages = g_list_length (nb->children);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2485 Lisp_Object rest;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2486
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2487 if (num_pages >= 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2488 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2489 int i;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2490 for (i = num_pages; i >= 0; --i)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2491 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2492 gtk_notebook_remove_page (nb, i);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2493 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2494 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2495
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2496 LIST_LOOP (rest, XCDR (IMAGE_INSTANCE_WIDGET_ITEMS (ii)))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2497 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2498 Lisp_Gui_Item *pgui = XGUI_ITEM (XCAR (rest));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2499 char *c_name = NULL;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2500
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2501 if (!STRINGP (pgui->name))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2502 pgui->name = Feval (pgui->name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2503
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2504 CHECK_STRING (pgui->name);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2505
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2506 TO_EXTERNAL_FORMAT (LISP_STRING, pgui->name,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2507 C_STRING_ALLOCA, c_name,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2508 Qctext);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2509
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2510 gtk_notebook_append_page (nb,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2511 gtk_vbox_new (FALSE, 3),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2512 gtk_label_new (c_name));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2513 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2514
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2515 /* Show all the new widgets we just added... */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2516 gtk_widget_show_all (GTK_WIDGET (nb));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2517 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2518 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2519
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2520 /* Possibly update the face. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2521 #if 0
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2522 if (IMAGE_INSTANCE_WIDGET_FACE_CHANGED (ii)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2523 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2524 XFRAME (IMAGE_INSTANCE_FRAME (ii))->faces_changed
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2525 ||
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2526 IMAGE_INSTANCE_WIDGET_ITEMS_CHANGED (ii))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2527 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2528 update_tab_widget_face (wv, ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2529 IMAGE_INSTANCE_FRAME (ii));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2530 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2531 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2532 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2533 #endif /* HAVE_WIDGETS */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2534
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2535
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2536 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2537 /* initialization */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2538 /************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2539 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2540 syms_of_glyphs_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2541 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2542 #ifdef HAVE_WIDGETS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2543 DEFSYMBOL (Qgtk_widget_instantiate_internal);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2544 DEFSYMBOL (Qgtk_widget_property_internal);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2545 DEFSYMBOL (Qgtk_widget_redisplay_internal);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2546 DEFSYMBOL (Qgtk_widget_set_style);
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2547 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2548 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2549
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2550 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2551 console_type_create_glyphs_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2552 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2553 /* image methods */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2554 CONSOLE_HAS_METHOD (gtk, print_image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2555 CONSOLE_HAS_METHOD (gtk, finalize_image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2556 CONSOLE_HAS_METHOD (gtk, image_instance_equal);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2557 CONSOLE_HAS_METHOD (gtk, image_instance_hash);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2558 CONSOLE_HAS_METHOD (gtk, colorize_image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2559 CONSOLE_HAS_METHOD (gtk, init_image_instance_from_eimage);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2560 CONSOLE_HAS_METHOD (gtk, locate_pixmap_file);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2561 CONSOLE_HAS_METHOD (gtk, unmap_subwindow);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2562 CONSOLE_HAS_METHOD (gtk, map_subwindow);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2563 CONSOLE_HAS_METHOD (gtk, redisplay_widget);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2564 CONSOLE_HAS_METHOD (gtk, redisplay_subwindow);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2565 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2566
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2567 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2568 image_instantiator_format_create_glyphs_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2569 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2570 IIFORMAT_VALID_CONSOLE (gtk, nothing);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2571 IIFORMAT_VALID_CONSOLE (gtk, string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2572 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2573 IIFORMAT_VALID_CONSOLE (gtk, layout);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2574 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2575 IIFORMAT_VALID_CONSOLE (gtk, formatted_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2576 IIFORMAT_VALID_CONSOLE (gtk, inherit);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2577 #ifdef HAVE_XPM
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2578 INITIALIZE_DEVICE_IIFORMAT (gtk, xpm);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2579 IIFORMAT_HAS_DEVMETHOD (gtk, xpm, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2580 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2581 #ifdef HAVE_JPEG
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2582 IIFORMAT_VALID_CONSOLE (gtk, jpeg);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2583 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2584 #ifdef HAVE_TIFF
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2585 IIFORMAT_VALID_CONSOLE (gtk, tiff);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2586 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2587 #ifdef HAVE_PNG
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2588 IIFORMAT_VALID_CONSOLE (gtk, png);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2589 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2590 #ifdef HAVE_GIF
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2591 IIFORMAT_VALID_CONSOLE (gtk, gif);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2592 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2593
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2594 INITIALIZE_DEVICE_IIFORMAT (gtk, subwindow);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2595 IIFORMAT_HAS_DEVMETHOD (gtk, subwindow, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2596
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2597 #ifdef HAVE_WIDGETS
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2598 /* layout widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2599 INITIALIZE_DEVICE_IIFORMAT (gtk, native_layout);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2600 IIFORMAT_HAS_DEVMETHOD (gtk, native_layout, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2601
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2602 /* button widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2603 INITIALIZE_DEVICE_IIFORMAT (gtk, button);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2604 IIFORMAT_HAS_DEVMETHOD (gtk, button, property);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2605 IIFORMAT_HAS_DEVMETHOD (gtk, button, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2606 IIFORMAT_HAS_DEVMETHOD (gtk, button, redisplay);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2607 /* general widget methods. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2608 INITIALIZE_DEVICE_IIFORMAT (gtk, widget);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2609 IIFORMAT_HAS_DEVMETHOD (gtk, widget, property);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2610
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2611 /* progress gauge */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2612 INITIALIZE_DEVICE_IIFORMAT (gtk, progress_gauge);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2613 IIFORMAT_HAS_DEVMETHOD (gtk, progress_gauge, redisplay);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2614 IIFORMAT_HAS_DEVMETHOD (gtk, progress_gauge, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2615 /* text field */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2616 INITIALIZE_DEVICE_IIFORMAT (gtk, edit_field);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2617 IIFORMAT_HAS_DEVMETHOD (gtk, edit_field, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2618 INITIALIZE_DEVICE_IIFORMAT (gtk, combo_box);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2619 IIFORMAT_HAS_DEVMETHOD (gtk, combo_box, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2620 IIFORMAT_HAS_SHARED_DEVMETHOD (gtk, combo_box, redisplay, tab_control);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2621 /* tab control widget */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2622 INITIALIZE_DEVICE_IIFORMAT (gtk, tab_control);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2623 IIFORMAT_HAS_DEVMETHOD (gtk, tab_control, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2624 IIFORMAT_HAS_DEVMETHOD (gtk, tab_control, redisplay);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2625 /* label */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2626 INITIALIZE_DEVICE_IIFORMAT (gtk, label);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2627 IIFORMAT_HAS_DEVMETHOD (gtk, label, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2628 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2629
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2630 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (cursor_font, "cursor-font");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2631 IIFORMAT_VALID_CONSOLE (gtk, cursor_font);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2632
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2633 IIFORMAT_HAS_METHOD (cursor_font, validate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2634 IIFORMAT_HAS_METHOD (cursor_font, possible_dest_types);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2635 IIFORMAT_HAS_METHOD (cursor_font, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2636
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2637 IIFORMAT_VALID_KEYWORD (cursor_font, Q_data, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2638 IIFORMAT_VALID_KEYWORD (cursor_font, Q_foreground, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2639 IIFORMAT_VALID_KEYWORD (cursor_font, Q_background, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2640
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2641 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (font, "font");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2642 IIFORMAT_VALID_CONSOLE (gtk, font);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2643
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2644 IIFORMAT_HAS_METHOD (font, validate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2645 IIFORMAT_HAS_METHOD (font, possible_dest_types);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2646 IIFORMAT_HAS_METHOD (font, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2647
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2648 IIFORMAT_VALID_KEYWORD (font, Q_data, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2649 IIFORMAT_VALID_KEYWORD (font, Q_foreground, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2650 IIFORMAT_VALID_KEYWORD (font, Q_background, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2651
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2652 #ifdef HAVE_XPM
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2653 INITIALIZE_DEVICE_IIFORMAT (gtk, xpm);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2654 IIFORMAT_HAS_DEVMETHOD (gtk, xpm, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2655 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2656
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2657 #ifdef HAVE_XFACE
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2658 INITIALIZE_DEVICE_IIFORMAT (gtk, xface);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2659 IIFORMAT_HAS_DEVMETHOD (gtk, xface, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2660 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2661
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2662 INITIALIZE_DEVICE_IIFORMAT (gtk, xbm);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2663 IIFORMAT_HAS_DEVMETHOD (gtk, xbm, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2664 IIFORMAT_VALID_CONSOLE (gtk, xbm);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2665
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2666 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (gtk_resource, "gtk-resource");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2667 IIFORMAT_VALID_CONSOLE (gtk, gtk_resource);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2668
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2669 IIFORMAT_HAS_METHOD (gtk_resource, validate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2670 IIFORMAT_HAS_METHOD (gtk_resource, normalize);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2671 IIFORMAT_HAS_METHOD (gtk_resource, possible_dest_types);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2672 IIFORMAT_HAS_METHOD (gtk_resource, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2673
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2674 IIFORMAT_VALID_KEYWORD (gtk_resource, Q_resource_type, check_valid_resource_symbol);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2675 IIFORMAT_VALID_KEYWORD (gtk_resource, Q_resource_id, check_valid_resource_id);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2676 IIFORMAT_VALID_KEYWORD (gtk_resource, Q_file, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2677
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2678 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (autodetect, "autodetect");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2679 IIFORMAT_VALID_CONSOLE (gtk, autodetect);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2680
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2681 IIFORMAT_HAS_METHOD (autodetect, validate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2682 IIFORMAT_HAS_METHOD (autodetect, normalize);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2683 IIFORMAT_HAS_METHOD (autodetect, possible_dest_types);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2684 IIFORMAT_HAS_METHOD (autodetect, instantiate);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2685
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2686 IIFORMAT_VALID_KEYWORD (autodetect, Q_data, check_valid_string);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2687 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2688
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2689 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2690 vars_of_glyphs_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2691 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2692 #ifdef HAVE_XFACE
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2693 Fprovide (Qxface);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2694 #endif
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2695
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2696 DEFVAR_LISP ("gtk-bitmap-file-path", &Vgtk_bitmap_file_path /*
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2697 A list of the directories in which X bitmap files may be found.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2698 If nil, this is initialized from the "*bitmapFilePath" resource.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2699 This is used by the `make-image-instance' function (however, note that if
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2700 the environment variable XBMLANGPATH is set, it is consulted first).
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2701 */ );
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2702 Vgtk_bitmap_file_path = Qnil;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2703 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2704
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2705 void
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2706 complex_vars_of_glyphs_gtk (void)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2707 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2708 #define BUILD_GLYPH_INST(variable, name) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2709 Fadd_spec_to_specifier \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2710 (GLYPH_IMAGE (XGLYPH (variable)), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2711 vector3 (Qxbm, Q_data, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2712 list3 (make_int (name##_width), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2713 make_int (name##_height), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2714 make_ext_string (name##_bits, \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2715 sizeof (name##_bits), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2716 Qbinary))), \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2717 Qglobal, Qgtk, Qnil)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2718
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2719 BUILD_GLYPH_INST (Vtruncation_glyph, truncator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2720 BUILD_GLYPH_INST (Vcontinuation_glyph, continuer);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2721 BUILD_GLYPH_INST (Vxemacs_logo, xemacs);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2722 BUILD_GLYPH_INST (Vhscroll_glyph, hscroll);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2723
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2724 #undef BUILD_GLYPH_INST
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2725 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2726
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2727 /* X specific crap */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2728 #include <gdk/gdkx.h>
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2729 /* #### Should remove all this X specific stuff when GTK/GDK matures a
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2730 bit more and provides an abstraction for it. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2731 static int
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2732 gtk_colorize_image_instance (Lisp_Object image_instance,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2733 Lisp_Object foreground, Lisp_Object background)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2734 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2735 struct Lisp_Image_Instance *p;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2736
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2737 p = XIMAGE_INSTANCE (image_instance);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2738
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2739 switch (IMAGE_INSTANCE_TYPE (p))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2740 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2741 case IMAGE_MONO_PIXMAP:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2742 IMAGE_INSTANCE_TYPE (p) = IMAGE_COLOR_PIXMAP;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2743 /* Make sure there aren't two pointers to the same mask, causing
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2744 it to get freed twice. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2745 IMAGE_INSTANCE_GTK_MASK (p) = 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2746 break;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2747
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2748 default:
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2749 return 0;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2750 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2751
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2752 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2753 GdkWindow *draw = GET_GTK_WIDGET_WINDOW (DEVICE_GTK_APP_SHELL (XDEVICE (IMAGE_INSTANCE_DEVICE (p))));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2754 GdkPixmap *new_pxmp = gdk_pixmap_new (draw,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2755 IMAGE_INSTANCE_PIXMAP_WIDTH (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2756 IMAGE_INSTANCE_PIXMAP_HEIGHT (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2757 DEVICE_GTK_DEPTH (XDEVICE (IMAGE_INSTANCE_DEVICE (p))));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2758 GdkGCValues gcv;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2759 GdkGC *gc;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2760
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2761 gcv.foreground = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (foreground));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2762 gcv.background = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (background));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2763 gc = gdk_gc_new_with_values (new_pxmp, &gcv, GDK_GC_BACKGROUND | GDK_GC_FOREGROUND);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2764
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2765 XCopyPlane (GDK_WINDOW_XDISPLAY (draw),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2766 GDK_WINDOW_XWINDOW (IMAGE_INSTANCE_GTK_PIXMAP (p)),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2767 GDK_WINDOW_XWINDOW (new_pxmp),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2768 GDK_GC_XGC (gc), 0, 0,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2769 IMAGE_INSTANCE_PIXMAP_WIDTH (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2770 IMAGE_INSTANCE_PIXMAP_HEIGHT (p),
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2771 0, 0, 1);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2772
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2773 gdk_gc_destroy (gc);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2774 IMAGE_INSTANCE_GTK_PIXMAP (p) = new_pxmp;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2775 IMAGE_INSTANCE_PIXMAP_DEPTH (p) = DEVICE_GTK_DEPTH (XDEVICE (IMAGE_INSTANCE_DEVICE (p)));
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2776 IMAGE_INSTANCE_PIXMAP_FG (p) = foreground;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2777 IMAGE_INSTANCE_PIXMAP_BG (p) = background;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2778 return 1;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2779 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2780 }
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
2781