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 | |
b030f2d9 |
18 | ;; $Id: gdktypes.lisp,v 1.7 2002-03-19 19:06:22 espen Exp $ |
560af5c5 |
19 | |
20 | (in-package "GDK") |
21 | |
5681ca3c |
22 | (eval-when (:compile-toplevel :load-toplevel :execute) |
b030f2d9 |
23 | (init-types-in-library "libgdk-x11-2.0.so") |
24 | (init-types-in-library "libgdk_pixbuf-2.0.so")) |
560af5c5 |
25 | |
e34e751a |
26 | (defclass color (boxed) |
560af5c5 |
27 | ((pixel |
28 | :allocation :alien |
29 | :type unsigned-long) |
30 | (red |
31 | :allocation :alien |
32 | :accessor color-red |
33 | :type unsigned-short) |
34 | (green |
35 | :allocation :alien |
ceebb351 |
36 | :accessor color-green |
560af5c5 |
37 | :type unsigned-short) |
38 | (blue |
39 | :allocation :alien |
40 | :accessor color-blue |
41 | :type unsigned-short)) |
5681ca3c |
42 | (:metaclass boxed-class) |
43 | (:alien-name "GdkColor")) |
560af5c5 |
44 | |
45 | |
5681ca3c |
46 | (eval-when (:compile-toplevel :load-toplevel :execute) |
47 | (define-types-by-introspection "Gdk" |
48 | ("GdkFunction" :type gc-function) |
49 | ("GdkGC" :type gc) |
50 | ("GdkDrawableImplX11" :ignore t) |
51 | ("GdkWindowImplX11" :ignore t) |
52 | ("GdkPixmapImplX11" :ignore t) |
53 | ("GdkGCX11" :ignore t) |
54 | ("GdkColor" :ignore t) |
55 | ("GdkEvent" :ignore t))) |
560af5c5 |
56 | |
560af5c5 |
57 | |
e34e751a |
58 | (deftype bitmap () 'pixmap) |
560af5c5 |
59 | |
e34e751a |
60 | (defclass cursor (struct) |
560af5c5 |
61 | ((type |
62 | :allocation :alien |
63 | :accessor cursor-type |
64 | :initarg :type |
65 | :type cursor-type)) |
e34e751a |
66 | (:metaclass proxy-class) |
67 | (:copy %cursor-copy) |
68 | (:free %cursor-free)) |
4fc1b6fe |
69 | |
e34e751a |
70 | (defclass device (struct) |
4fc1b6fe |
71 | () |
e34e751a |
72 | (:metaclass proxy-class)) |
560af5c5 |
73 | |