0d07716f |
1 | ;; Common Lisp bindings for GTK+ v2.0 |
d6a0064f |
2 | ;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no> |
0d07716f |
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 | |
79527bbe |
18 | ;; $Id: gdktypes.lisp,v 1.6 2002/01/20 14:14:38 espen Exp $ |
0d07716f |
19 | |
20 | (in-package "GDK") |
21 | |
8ca42cb1 |
22 | (eval-when (:compile-toplevel :load-toplevel :execute) |
8b69b878 |
23 | (init-types-in-library "libgdk-x11-1.3.so") |
24 | (init-types-in-library "libgdk_pixbuf-1.3.so")) |
0d07716f |
25 | |
d6a0064f |
26 | (defclass color (boxed) |
0d07716f |
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 |
79527bbe |
36 | :accessor color-green |
0d07716f |
37 | :type unsigned-short) |
38 | (blue |
39 | :allocation :alien |
40 | :accessor color-blue |
41 | :type unsigned-short)) |
8ca42cb1 |
42 | (:metaclass boxed-class) |
43 | (:alien-name "GdkColor")) |
0d07716f |
44 | |
45 | |
8ca42cb1 |
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))) |
0d07716f |
56 | |
0d07716f |
57 | |
d6a0064f |
58 | (deftype bitmap () 'pixmap) |
0d07716f |
59 | |
d6a0064f |
60 | (defclass cursor (struct) |
0d07716f |
61 | ((type |
62 | :allocation :alien |
63 | :accessor cursor-type |
64 | :initarg :type |
65 | :type cursor-type)) |
d6a0064f |
66 | (:metaclass proxy-class) |
67 | (:copy %cursor-copy) |
68 | (:free %cursor-free)) |
e49839f2 |
69 | |
d6a0064f |
70 | (defclass device (struct) |
e49839f2 |
71 | () |
d6a0064f |
72 | (:metaclass proxy-class)) |
0d07716f |
73 | |