1 ;; Common Lisp bindings for GTK+ v2.0
2 ;; Copyright (C) 2000 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: gparam.lisp,v 1.2 2001/04/29 20:17:52 espen Exp $
22 (deftype gvalue () 'pointer)
24 (defconstant +gvalue-size+ (+ (size-of 'type-number) (* 4 (size-of 'double-float))))
25 (defconstant +gvalue-value-offset+ (size-of 'type-number))
27 (define-foreign ("g_value_init" gvalue-init) () nil
30 (defun gvalue-new (type)
31 (let ((gvalue (allocate-memory +gvalue-size+)))
32 (setf (system:sap-ref-32 gvalue 0) type)
33 ; (gvalue-init (type-number-of type))
36 (defun gvalue-free (gvalue free-content)
37 (unless (null-pointer-p gvalue)
40 (intern-destroy-function (gvalue-type gvalue))
41 gvalue +gvalue-value-offset+))
42 (deallocate-memory gvalue)))
44 (defun gvalue-type (gvalue)
45 (type-from-number (system:sap-ref-32 gvalue 0)))
47 (defun gvalue-get (gvalue)
49 (intern-reader-function (gvalue-type gvalue))
50 gvalue +gvalue-value-offset+))
52 (defun gvalue-set (gvalue value)
54 (intern-writer-function (gvalue-type gvalue))
55 value gvalue +gvalue-value-offset+)
59 (deftype param-flag-type ()
68 (eval-when (:compile-toplevel :load-toplevel :execute)
69 (defclass param (ginstance)
76 :reader param-nickname
80 :reader param-documentation
85 :type param-flag-type)
90 (:metaclass ginstance-class)
91 (:ref "g_param_spec_ref")
92 (:unref "g_param_spec_unref")))
95 (defclass param-char (param)
98 :reader param-char-minimum
102 :reader param-char-maximum
106 :reader param-char-default-value
108 (:metaclass ginstance-class))
110 (defclass param-unsigned-char (param)
114 ; :reader param-unsigned-char-minimum
115 ; :type unsigned-char)
118 ; :reader param-unsigned-char-maximum
119 ; :type unsigned-char)
122 ; :reader param-unsigned-char-default-value
123 ; :type unsigned-char)
125 (:metaclass ginstance-class)
126 (:alien-name "GParamUChar"))
128 (defclass param-boolean (param)
131 :reader param-boolean-default-value
133 (:metaclass ginstance-class))
135 (defclass param-int (param)
138 :reader param-int-minimum
142 :reader param-int-maximum
146 :reader param-int-default-value
148 (:metaclass ginstance-class))
150 (defclass param-unsigned-int (param)
153 :reader param-unsigned-int-minimum
157 :reader param-unsigned-int-maximum
161 :reader param-unsigned-int-default-value
163 (:metaclass ginstance-class)
164 (:alien-name "GParamUInt"))
166 (defclass param-long (param)
169 :reader param-long-minimum
173 :reader param-long-maximum
177 :reader param-long-default-value
179 (:metaclass ginstance-class))
181 (defclass param-unsigned-long (param)
184 :reader param-unsigned-long-minimum
188 :reader param-unsigned-long-maximum
192 :reader param-unsigned-long-default-value
193 :type unsigned-long))
194 (:metaclass ginstance-class)
195 (:alien-name "GParamULong"))
197 (defclass param-unichar (param)
199 (:metaclass ginstance-class))
201 (defclass param-enum (param)
204 :reader param-enum-class
208 :reader param-enum-default-value
210 (:metaclass ginstance-class))
212 (defclass param-flags (param)
215 :reader param-flags-class
219 :reader param-flags-default-value
221 (:metaclass ginstance-class))
223 (defclass param-single-float (param)
226 :reader param-single-float-minimum
230 :reader param-single-float-maximum
234 :reader param-single-float-default-value
238 :reader param-single-float-epsilon
240 (:metaclass ginstance-class)
241 (:alien-name "GParamFloat"))
243 (defclass param-double-float (param)
246 :reader param-double-float-minimum
250 :reader param-double-float-maximum
254 :reader param-double-float-default-value
258 :reader param-double-float-epsilon
260 (:metaclass ginstance-class)
261 (:alien-name "GParamDouble"))
263 (defclass param-string (param)
266 :reader param-string-default-value
268 (:metaclass ginstance-class))
270 (defclass param-param (param)
272 (:metaclass ginstance-class))
274 (defclass param-boxed (param)
276 (:metaclass ginstance-class))
278 (defclass param-pointer (param)
280 (:metaclass ginstance-class))
282 (defclass param-value-array (param)
285 :reader param-value-array-element-spec
289 :reader param-value-array-length
291 (:metaclass ginstance-class))
293 (defclass param-closure (param)
295 (:metaclass ginstance-class))
297 (defclass param-object (param)
299 (:metaclass ginstance-class))