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.7 2004-10-27 14:59:00 espen Exp $
22 (deftype gvalue () 'pointer)
24 (eval-when (:compile-toplevel :load-toplevel :execute)
25 (defbinding (size-of-gvalue "size_of_gvalue") () unsigned-int))
27 (defconstant +gvalue-size+ (+ (size-of 'type-number) (* 2 (size-of 'double-float))))
28 (defconstant +gvalue-size+ #.(size-of-gvalue))
30 (defconstant +gvalue-value-offset+ (size-of 'type-number))
32 (defbinding (gvalue-init "g_value_init") () nil
36 (defun gvalue-new (type &optional (value nil value-p))
37 (let ((gvalue (allocate-memory +gvalue-size+)))
38 (gvalue-init gvalue (find-type-number type))
40 (gvalue-set gvalue value))
43 (defun gvalue-free (gvalue free-content)
44 (unless (null-pointer-p gvalue)
47 (intern-destroy-function (gvalue-type gvalue))
48 gvalue +gvalue-value-offset+))
49 (deallocate-memory gvalue)))
51 (defun gvalue-type (gvalue)
52 (type-from-number (system:sap-ref-32 gvalue 0)))
54 (defun gvalue-get (gvalue)
56 (intern-reader-function (gvalue-type gvalue))
57 gvalue +gvalue-value-offset+))
59 (defun gvalue-set (gvalue value)
61 (intern-writer-function (gvalue-type gvalue))
62 value gvalue +gvalue-value-offset+)
66 (deftype-method unreference-alien gvalue (type-spec location)
67 `(gvalue-free ,location nil))
71 (deftype param-flag-type ()
80 ;(eval-when (:compile-toplevel :load-toplevel :execute)
81 ;; TODO: rename to param-spec
82 (defclass param (ginstance)
90 :type param-flag-type)
93 :reader param-value-type
97 :reader param-owner-type
101 :getter "g_param_spec_get_nick"
102 :reader param-nickname
106 :getter "g_param_spec_get_blurb"
107 :reader param-documentation
109 (:metaclass ginstance-class)
110 (:ref "g_param_spec_ref")
111 (:unref "g_param_spec_unref"));)
114 (defclass param-char (param)
117 :reader param-char-minimum
121 :reader param-char-maximum
125 :reader param-char-default-value
127 (:metaclass ginstance-class))
129 (defclass param-unsigned-char (param)
133 ; :reader param-unsigned-char-minimum
134 ; :type unsigned-char)
137 ; :reader param-unsigned-char-maximum
138 ; :type unsigned-char)
141 ; :reader param-unsigned-char-default-value
142 ; :type unsigned-char)
144 (:metaclass ginstance-class)
145 (:alien-name "GParamUChar"))
147 (defclass param-boolean (param)
150 :reader param-boolean-default-value
152 (:metaclass ginstance-class))
154 (defclass param-int (param)
157 :reader param-int-minimum
161 :reader param-int-maximum
165 :reader param-int-default-value
167 (:metaclass ginstance-class))
169 (defclass param-unsigned-int (param)
172 :reader param-unsigned-int-minimum
176 :reader param-unsigned-int-maximum
180 :reader param-unsigned-int-default-value
182 (:metaclass ginstance-class)
183 (:alien-name "GParamUInt"))
185 (defclass param-long (param)
188 :reader param-long-minimum
192 :reader param-long-maximum
196 :reader param-long-default-value
198 (:metaclass ginstance-class))
200 (defclass param-unsigned-long (param)
203 :reader param-unsigned-long-minimum
207 :reader param-unsigned-long-maximum
211 :reader param-unsigned-long-default-value
212 :type unsigned-long))
213 (:metaclass ginstance-class)
214 (:alien-name "GParamULong"))
216 (defclass param-unichar (param)
218 (:metaclass ginstance-class))
220 (defclass param-enum (param)
223 :reader param-enum-class
227 :reader param-enum-default-value
229 (:metaclass ginstance-class))
231 (defclass param-flags (param)
234 :reader param-flags-class
238 :reader param-flags-default-value
240 (:metaclass ginstance-class))
242 (defclass param-single-float (param)
245 :reader param-single-float-minimum
249 :reader param-single-float-maximum
253 :reader param-single-float-default-value
257 :reader param-single-float-epsilon
259 (:metaclass ginstance-class)
260 (:alien-name "GParamFloat"))
262 (defclass param-double-float (param)
265 :reader param-double-float-minimum
269 :reader param-double-float-maximum
273 :reader param-double-float-default-value
277 :reader param-double-float-epsilon
279 (:metaclass ginstance-class)
280 (:alien-name "GParamDouble"))
282 (defclass param-string (param)
285 :reader param-string-default-value
287 (:metaclass ginstance-class))
289 (defclass param-param (param)
291 (:metaclass ginstance-class))
293 (defclass param-boxed (param)
295 (:metaclass ginstance-class))
297 (defclass param-pointer (param)
299 (:metaclass ginstance-class))
301 (defclass param-value-array (param)
304 :reader param-value-array-element-spec
308 :reader param-value-array-length
310 (:metaclass ginstance-class))
312 ;; (defclass param-closure (param)
314 ;; (:metaclass ginstance-class))
316 (defclass param-object (param)
318 (:metaclass ginstance-class))