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