1 ;; Common Lisp bindings for GTK+ v2.0
2 ;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
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.
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.
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
18 ;; $Id: gdktypes.lisp,v 1.3 2001-05-11 16:17:21 espen Exp $
22 (init-types-in-library "/opt/gnome/lib/libgdk-x11-1.3.so")
24 (defclass color (boxed)
39 :type unsigned-short))
40 (:metaclass boxed-class))
44 (define-types-by-introspection "Gdk"
45 ("GdkFunction" :type gc-function)
47 ("GdkDrawableImplX11" :ignore t)
48 ("GdkWindowImplX11" :ignore t)
49 ("GdkPixmapImplX11" :ignore t)
50 ("GdkGCX11" :ignore t)
51 ("GdkColor" :ignore t)
52 ("GdkEvent" :ignore t))
55 (deftype bitmap () 'pixmap)
57 (defclass cursor (struct)
63 (:metaclass proxy-class)
67 (defclass device (struct)
69 (:metaclass proxy-class))