1 ;; Common Lisp bindings for GTK+ v2.0
2 ;; Copyright (C) 1999-2000 Espen S. Johnsen <espejohn@online.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.1 2000/08/14 16:44:41 espen Exp $
23 (defclass color (alien-object)
38 :type unsigned-short))
39 (:metaclass alien-class)
40 (:alien-name "GdkColor"))
43 (defclass visual (static-structure)
45 (:metaclass alien-class)
46 (:alien-name "GdkVisual"))
49 (defclass colormap (gobject)
51 (:metaclass gobject-class)
52 (:alien-name "GdkColormap"))
55 (defclass drawable (gobject)
57 (:metaclass gobject-class)
58 (:alien-name "GdkDrawable"))
61 (defclass window (drawable)
63 (:metaclass gobject-class)
64 (:alien-name "GdkWindow")
65 (:type-init "gdk_window_object_get_type"))
68 (defclass pixmap (drawable)
70 (:metaclass gobject-class)
71 (:alien-name "GdkPixmap"))
73 ; (defclass bitmap (drawable))
74 (deftype bitmap () 'pointer)
76 ; (defclass geometry (alien-structure)
79 ; :accessor geometry-min-width
84 ; :accessor geometry-min-height
85 ; :initarg :min-heigth
89 ; :accessor geometry-max-width
94 ; :accessor geometry-max-height
95 ; :initarg :max-heigth
99 ; :accessor geometry-base-width
100 ; :initarg :base-width
104 ; :accessor geometry-base-height
105 ; :initarg :base-heigth
109 ; :accessor geometry-width-inc
110 ; :initarg :width-inc
114 ; :accessor geometry-height-inc
115 ; :initarg :heigth-inc
119 ; :accessor geometry-min-aspect
120 ; :initarg :min-aspect
121 ; :type double-float)
124 ; :accessor geometry-max-aspect
125 ; :initarg :max-aspect
126 ; :type double-float))
127 ; (:metaclass alien-class))
130 (defclass image (gobject)
132 (:metaclass gobject-class)
133 (:alien-name "GdkImage"))
136 (defclass gc (gobject)
138 (:metaclass gobject-class)
139 (:alien-name "GdkGC"))
142 (defclass font (alien-object)
144 (:metaclass alien-class)
145 (:alien-name "GdkFont"))
148 (defclass cursor (alien-object)
151 :accessor cursor-type
154 (:metaclass alien-class))
157 (defclass drag-context (gobject)
159 (:metaclass gobject-class)
160 (:alien-name "GdkDragContext"))
163 (defclass event (alien-structure)
166 ; :accessor event-type
170 :accessor event-window
175 :accessor event-send-event
178 (:metaclass alien-class)
179 (:alien-name "GdkEvent"))
182 (defclass expose-event (event)
184 (:metaclass alien-class))
187 (defclass delete-event (event)
189 (:metaclass alien-class))
194 ;(define-boxed device-key)
195 ;(define-boxed device-info)
196 ;(define-boxed time-coord)
198 ;(define-boxed ic-attr)