chiark / gitweb /
Changes necessary to allow saving of core images with clg.
[clg] / gdk / gdktypes.lisp
CommitLineData
560af5c5 1;; Common Lisp bindings for GTK+ v2.0
e34e751a 2;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
560af5c5 3;;
4;; This library is free software; you can redistribute it and/or
5;; modify it under the terms of the GNU Lesser General Public
6;; License as published by the Free Software Foundation; either
7;; version 2 of the License, or (at your option) any later version.
8;;
9;; This library is distributed in the hope that it will be useful,
10;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12;; Lesser General Public License for more details.
13;;
14;; You should have received a copy of the GNU Lesser General Public
15;; License along with this library; if not, write to the Free Software
16;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17
dfa4f314 18;; $Id: gdktypes.lisp,v 1.16 2005-03-06 17:26:22 espen Exp $
560af5c5 19
20(in-package "GDK")
21
5681ca3c 22(eval-when (:compile-toplevel :load-toplevel :execute)
9adccb27 23 (init-types-in-library #.(concatenate 'string
24 (pkg-config:pkg-variable "gtk+-2.0" "libdir")
dfa4f314 25 "/libgdk-x11-2.0.so") :prefix ("gdk_" "_gdk_"))
9adccb27 26 (init-types-in-library #.(concatenate 'string
27 (pkg-config:pkg-variable "gtk+-2.0" "libdir")
28 "/libgdk_pixbuf-2.0.so") :prefix "gdk_"))
29
560af5c5 30
e34e751a 31(defclass color (boxed)
560af5c5 32 ((pixel
33 :allocation :alien
34 :type unsigned-long)
35 (red
36 :allocation :alien
37 :accessor color-red
38 :type unsigned-short)
39 (green
40 :allocation :alien
ceebb351 41 :accessor color-green
560af5c5 42 :type unsigned-short)
43 (blue
44 :allocation :alien
45 :accessor color-blue
46 :type unsigned-short))
dfa4f314 47 (:metaclass boxed-class))
560af5c5 48
49
06cb4af7 50(deftype point () '(vector int 2))
51(deftype segment () '(vector int 4))
52(deftype trapezoid () '(vector double-float 6))
628fd576 53(deftype atom () 'unsigned-int)
06cb4af7 54
55
56;; Could this just as well have been a vector?
57(defclass rectangle (boxed)
58 ((x
59 :allocation :alien
60 :accessor rectangle-x
61 :initarg :x
62 :type int)
63 (y
64 :allocation :alien
65 :accessor rectangle-y
66 :initarg :y
67 :type int)
68 (width
69 :allocation :alien
70 :accessor rectangle-width
71 :initarg :width
72 :type int)
73 (height
74 :allocation :alien
75 :accessor rectangle-height
76 :initarg :height
77 :type int))
dfa4f314 78 (:metaclass boxed-class))
06cb4af7 79
80
73572c12 81(define-types-by-introspection "Gdk"
82 ("GdkFunction" :type gc-function)
83 ("GdkWMDecoration" :type wm-decoration)
84 ("GdkWMFunction" :type wm-function)
85 ("GdkGC" :type gc)
86 ("GdkGCX11" :type gc-x11)
87 ("GdkGCValuesMask" :type gc-values-mask)
88 ("GdkDrawableImplX11" :ignore t)
89 ("GdkWindowImplX11" :ignore t)
90 ("GdkPixmapImplX11" :ignore t)
91 ("GdkGCX11" :ignore t)
92 ("GdkColor" :ignore t)
93 ("GdkEvent" :ignore t)
94 ("GdkRectngle" :ignore t)
95 ("GdkCursor" :ignore t)
96 ("GdkFont" :ignore t) ; deprecated
4280ef98 97 ("GdkEventMask" :ignore t) ; manually defined
98
4fac77f8 99 ("GdkDisplay"
100 :slots
101 ((name
102 :allocation :virtual
103 :getter "gdk_display_get_name"
104 :reader display-name
105 :type (copy-of string))
106 (screens
107 :allocation :virtual
108 :getter display-screens)
109 (devices
110 :allocation :virtual
111 :getter "gdk_display_list_devices"
112 :reader display-devices
113 :type (copy-of (glist device)))))
114
73572c12 115 ("GdkDrawable"
116 :slots
117 ((display
118 :allocation :virtual
119 :getter "gdk_drawable_get_display"
120 :reader drawable-display
121 :type display)
122 (screen
123 :allocation :virtual
124 :getter "gdk_drawable_get_screen"
125 :reader drawable-screen
126 :type screen)
127 (visual
128 :allocation :virtual
129 :getter "gdk_drawable_get_visual"
130 :reader drawable-visual
131 :type visual)
132 (colormap
133 :allocation :virtual
134 :getter "gdk_drawable_get_colormap"
135 :setter "gdk_drawable_set_colormap"
136 :unbound nil
137 :accessor drawable-colormap
138 :initarg :colormap
139 :type colormap)
140 (depth
141 :allocation :virtual
142 :getter "gdk_drawable_get_depth"
143 :reader drawable-depth
144 :type int)
145 (with
146 :allocation :virtual
147 :getter drawable-width)
148 (height
149 :allocation :virtual
150 :getter drawable-height)))
151
152 ("GdkWindow"
153 :slots
154 ((state
155 :allocation :virtual
156 :getter "gdk_window_get_state"
157 :reader window-state
158 :type window-state)
159 (parent
160 :allocation :virtual
161 :getter "gdk_window_get_parent"
162 :reader window-parent
163 :type window)
164 (toplevel
165 :allocation :virtual
166 :getter "gdk_window_get_toplevel"
167 :reader window-toplevel
168 :type window)
169 (children
170 :allocation :virtual
171 :getter "gdk_window_get_children"
172 :reader window-children
173 :type (glist window))
174 (events
175 :allocation :virtual
176 :getter "gdk_window_get_events"
177 :setter "gdk_window_set_events"
178 :accessor window-events
179 :type event-mask)
180 (group
181 :allocation :virtual
182 :getter "gdk_window_get_group"
183 :setter "gdk_window_set_group"
184 :unbound nil
185 :accessor window-group
186 :type window))))
560af5c5 187
560af5c5 188
e34e751a 189(deftype bitmap () 'pixmap)
560af5c5 190
73572c12 191(defclass cursor (boxed)
560af5c5 192 ((type
193 :allocation :alien
06cb4af7 194 :reader cursor-type
195 :type cursor-type)
196 (ref-count
197 :allocation :alien
198 :type unsigned-int)
199 (display
200 :allocation :virtual
201 :getter "gdk_cursor_get_display"
202 :reader cursor-display
203 :type display))
dfa4f314 204 (:metaclass boxed-class))
4fc1b6fe 205
3a63ef2a 206
207(defclass geometry (struct)
208 ((min-width
209 :allocation :alien
210 :accessor geometry-min-width
211 :initarg :min-width
212 :type int)
213 (min-height
214 :allocation :alien
215 :accessor geometry-min-height
216 :initarg :min-height
217 :type int)
218 (max-width
219 :allocation :alien
220 :accessor geometry-max-width
221 :initarg :max-width
222 :type int)
223 (max-height
224 :allocation :alien
225 :accessor geometry-max-height
226 :initarg :max-height
227 :type int)
228 (base-width
229 :allocation :alien
230 :accessor geometry-base-width
231 :initarg :base-width
232 :type int)
233 (base-height
234 :allocation :alien
235 :accessor geometry-base-height
236 :initarg :base-height
237 :type int)
238 (width-inc
239 :allocation :alien
240 :accessor geometry-width-inc
241 :initarg :width-inc
242 :type int)
243 (height-inc
244 :allocation :alien
245 :accessor geometry-height-inc
246 :initarg :height-inc
247 :type int)
248 (min-aspect
249 :allocation :alien
250 :accessor geometry-min-aspect
251 :initarg :min-aspect
252 :type double-float)
253 (max-aspect
254 :allocation :alien
255 :accessor geometry-max-aspect
256 :initarg :max-aspect
257 :type double-float)
258 (gravity
259 :allocation :alien
260 :accessor geometry-gravity
261 :initarg :gravity
262 :type gravity))
263 (:metaclass struct-class))