annotate src/glyphs-gtk.h @ 5327:d1b17a33450b

Move the heavy lifting from cl-seq.el to C. src/ChangeLog addition: 2010-12-30 Aidan Kehoe <kehoea@parhasard.net> Move the heavy lifting from cl-seq.el to C, finally making those functions first-class XEmacs citizens, with circularity checking, built-in support for tests other than #'eql, and as much compatibility with current Common Lisp as Paul Dietz' tests require. * fns.c (check_eq_nokey, check_eq_key, check_eql_nokey) (check_eql_key, check_equal_nokey, check_equal_key) (check_equalp_nokey, check_equalp_key, check_string_match_nokey) (check_string_match_key, check_other_nokey, check_other_key) (check_if_nokey, check_if_key, check_match_eq_key) (check_match_eql_key, check_match_equal_key) (check_match_equalp_key, check_match_other_key): New. These are basically to provide function pointers to be used by Lisp functions that take TEST, TEST-NOT and KEY arguments. (get_check_match_function_1, get_check_test_function) (get_check_match_function): These functions work out which of the previous list of functions to use, given the keywords supplied by the user. (count_with_tail): New. This is the bones of #'count. (list_count_from_end, string_count_from_end): Utility functions for #'count. (Fcount): New, moved from cl-seq.el. (list_position_cons_before): New. The implementation of #'member*, and important in implementing various other functions. (FmemberX, Fadjoin, FassocX, FrassocX, Fposition, Ffind) (FdeleteX, FremoveX, Fdelete_duplicates, Fremove_duplicates) (Fnsubstitute, Fsubstitute, Fsublis, Fnsublis, Fsubst, Fnsubst) (Ftree_equal, Fmismatch, Fsearch, Fintersection, Fnintersection) (Fsubsetp, Fset_difference, Fnset_difference, Fnunion, Funion) (Fset_exclusive_or, Fnset_exclusive_or): New, moved here from cl-seq.el. (position): New. The implementation of #'find and #'position. (list_delete_duplicates_from_end, subst, sublis, nsublis) (tree_equal, mismatch_from_end, mismatch_list_list) (mismatch_list_string, mismatch_list_array) (mismatch_string_array, mismatch_string_string) (mismatch_array_array, get_mismatch_func): Helper C functions for the Lisp-visible functions. (venn, nvenn): New. The implementation of the main Lisp functions that treat lists as sets. lisp/ChangeLog addition: 2010-12-30 Aidan Kehoe <kehoea@parhasard.net> * cl-seq.el: Move the heavy lifting from this file to C. Dump the cl-parsing-keywords macro, but don't use defun* for the functions we define that do take keywords, dynamic scope lossage makes that not practical. * subr.el (sort, fillarray): Move these aliases here. (map-plist): #'nsublis is now built-in, but at this point #'eql isn't necessarily available as a test; use #'eq. * obsolete.el (cl-delete-duplicates): Make this available for old compiler macros and old code. (memql): Document that this is equivalent to #'member*, and worse. * cl.el (adjoin, subst): Removed. These are in C.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 30 Dec 2010 01:59:52 +0000
parents b3ce27ca7647
children 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
1 /* Gtk-specific glyphs and related.
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, 1996 Ben Wing
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
5 Copyright (C) 1995 Sun Microsystems, Inc.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
6
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
7 This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
8
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
10 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
11 Free Software Foundation; either version 2, or (at your option) any
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
12 later version.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
13
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
14 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
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
17 for more details.
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
18
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
23
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
24 /* Synched up with: Not in FSF. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
25 /* Gtk version by William Perry */
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 #ifndef _XEMACS_GLYPHS_GTK_H_
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
28 #define _XEMACS_GLYPHS_GTK_H_
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
29
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
30 #include "glyphs.h"
4908
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c
Ben Wing <ben@xemacs.org>
parents: 3087
diff changeset
31 #include "sysgtk.h"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
32
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
33 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
34
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
35 /****************************************************************************
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
36 * Image-Instance Object *
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
37 ****************************************************************************/
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
38
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
39 struct gtk_image_instance_data
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
40 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
41 GdkPixmap **pixmaps;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
42 GdkCursor *cursor;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
43
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
44 /* If depth>0, then that means that other colors were allocated when
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
45 this pixmap was loaded. These are they; we need to free them when
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
46 finalizing the image instance. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
47 GdkColormap *colormap;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
48 unsigned long *pixels;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
49 int npixels;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
50
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
51 /* Should we hang on to the extra info from the XpmAttributes, like
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
52 the textual color table and the comments? Is that useful? */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
53 };
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
54
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
55 struct gtk_subwindow_data
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
56 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
57 union
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
58 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
59 struct
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
60 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
61 GtkWidget *parent_window;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
62 GtkWidget *clip_window;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
63 } sub;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
64 struct
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
65 {
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
66 GtkWidget *clip_window;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
67 Lisp_Object widget;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
68 guint x_offset;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
69 guint y_offset;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
70 gboolean added_to_fixed;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
71 } wid;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
72 } data;
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
73 };
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
74
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
75 void init_image_instance_from_gdk_pixmap (struct Lisp_Image_Instance *ii,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
76 struct device *device,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
77 GdkPixmap *gdk_pixmap,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
78 int dest_mask,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
79 Lisp_Object instantiator);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
80
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
81 #define GTK_IMAGE_INSTANCE_DATA(i) ((struct gtk_image_instance_data *) (i)->data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
82
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
83 #define IMAGE_INSTANCE_GTK_PIXMAP(i) (GTK_IMAGE_INSTANCE_DATA (i)->pixmaps[0])
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
84 #define IMAGE_INSTANCE_GTK_PIXMAP_SLICE(i,slice) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
85 (GTK_IMAGE_INSTANCE_DATA (i)->pixmaps[slice])
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
86 #define IMAGE_INSTANCE_GTK_PIXMAP_SLICES(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
87 (GTK_IMAGE_INSTANCE_DATA (i)->pixmaps)
3087
dbd2a866e38a [xemacs-hg @ 2005-11-22 11:24:40 by malcolmp]
malcolmp
parents: 2082
diff changeset
88 #define IMAGE_INSTANCE_GTK_MASK(i) ((GdkPixmap*)(IMAGE_INSTANCE_PIXMAP_MASK (i)))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
89 #define IMAGE_INSTANCE_GTK_CURSOR(i) (GTK_IMAGE_INSTANCE_DATA (i)->cursor)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
90 #define IMAGE_INSTANCE_GTK_COLORMAP(i) (GTK_IMAGE_INSTANCE_DATA (i)->colormap)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
91 #define IMAGE_INSTANCE_GTK_PIXELS(i) (GTK_IMAGE_INSTANCE_DATA (i)->pixels)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
92 #define IMAGE_INSTANCE_GTK_NPIXELS(i) (GTK_IMAGE_INSTANCE_DATA (i)->npixels)
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 #define XIMAGE_INSTANCE_GTK_PIXMAP(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
95 IMAGE_INSTANCE_GTK_PIXMAP (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
96 #define XIMAGE_INSTANCE_GTK_PIXMAP_SLICE(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
97 IMAGE_INSTANCE_GTK_PIXMAP_SLICE (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
98 #define XIMAGE_INSTANCE_GTK_PIXMAP_SLICES(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
99 IMAGE_INSTANCE_GTK_PIXMAP_SLICES (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
100 #define XIMAGE_INSTANCE_GTK_MASK(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
101 IMAGE_INSTANCE_GTK_MASK (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
102 #define XIMAGE_INSTANCE_GTK_CURSOR(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
103 IMAGE_INSTANCE_GTK_CURSOR (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
104 #define XIMAGE_INSTANCE_GTK_PIXELS(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
105 IMAGE_INSTANCE_GTK_PIXELS (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
106 #define XIMAGE_INSTANCE_GTK_NPIXELS(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
107 IMAGE_INSTANCE_GTK_NPIXELS (XIMAGE_INSTANCE (i))
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 /* Subwindow / widget stuff */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
110 #define GTK_SUBWINDOW_INSTANCE_DATA(i) ((struct gtk_subwindow_data *) (i)->data)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
111
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
112 #define IMAGE_INSTANCE_GTK_SUBWINDOW_PARENT(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
113 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.sub.parent_window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
114 #define IMAGE_INSTANCE_GTK_CLIPWINDOW(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
115 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.sub.clip_window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
116 #define IMAGE_INSTANCE_GTK_WIDGET_XOFFSET(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
117 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.x_offset)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
118 #define IMAGE_INSTANCE_GTK_WIDGET_YOFFSET(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
119 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.y_offset)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
120 #define IMAGE_INSTANCE_GTK_WIDGET_LWID(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
121 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.id)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
122 #define IMAGE_INSTANCE_GTK_CLIPWIDGET(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
123 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.clip_window)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
124 #define IMAGE_INSTANCE_GTK_ALREADY_PUT(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
125 (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.added_to_fixed)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
126 #define IMAGE_INSTANCE_GTK_SUBWINDOW_ID(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
127 ((GdkWindow *) & IMAGE_INSTANCE_SUBWINDOW_ID (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
128 #define IMAGE_INSTANCE_GTK_WIDGET_ID(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
129 ((GtkWidget *) & IMAGE_INSTANCE_SUBWINDOW_ID (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
130
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
131 #define XIMAGE_INSTANCE_GTK_SUBWINDOW_PARENT(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
132 IMAGE_INSTANCE_GTK_SUBWINDOW_PARENT (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
133 #define XIMAGE_INSTANCE_GTK_SUBWINDOW_DISPLAY(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
134 IMAGE_INSTANCE_GTK_SUBWINDOW_DISPLAY (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
135 #define XIMAGE_INSTANCE_GTK_WIDGET_XOFFSET(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
136 IMAGE_INSTANCE_GTK_WIDGET_XOFFSET (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
137 #define XIMAGE_INSTANCE_GTK_WIDGET_YOFFSET(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
138 IMAGE_INSTANCE_GTK_WIDGET_YOFFSET (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
139 #define XIMAGE_INSTANCE_GTK_WIDGET_LWID(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
140 IMAGE_INSTANCE_GTK_WIDGET_LWID (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
141 #define XIMAGE_INSTANCE_GTK_CLIPWIDGET(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
142 IMAGE_INSTANCE_GTK_CLIPWIDGET (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
143 #define XIMAGE_INSTANCE_GTK_CLIPWINDOW(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
144 IMAGE_INSTANCE_GTK_CLIPWINDOW (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
145 #define XIMAGE_INSTANCE_GTK_WIDGET_ID(i) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
146 IMAGE_INSTANCE_GTK_WIDGET_ID (XIMAGE_INSTANCE (i))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
147
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
148 #define DOMAIN_GTK_WIDGET(domain) \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
149 ((IMAGE_INSTANCEP (domain) && \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
150 GTK_SUBWINDOW_INSTANCE_DATA (XIMAGE_INSTANCE (domain))) ? \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
151 XIMAGE_INSTANCE_GTK_WIDGET_ID (domain) : \
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
152 FRAME_GTK_CONTAINER_WIDGET (f) (DOMAIN_XFRAME (domain)))
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 #endif /* HAVE_GTK */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents:
diff changeset
155 #endif /* _XEMACS_GLYPHS_GTK_H_ */