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.8 2004-10-28 09:33:56 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 (defbinding (gvalue-unset "g_value_unset") () nil
40 (defun gvalue-new (type &optional (value nil value-p))
41 (let ((gvalue (allocate-memory +gvalue-size+)))
42 (gvalue-init gvalue (find-type-number type))
44 (gvalue-set gvalue value))
47 (defun gvalue-free (gvalue &optional unset-p)
48 (unless (null-pointer-p gvalue)
50 (gvalue-unset gvalue))
51 (deallocate-memory gvalue)))
53 (defun gvalue-type (gvalue)
54 (type-from-number (system:sap-ref-32 gvalue 0)))
56 (defun gvalue-get (gvalue)
58 (intern-reader-function (gvalue-type gvalue))
59 gvalue +gvalue-value-offset+))
61 (defun gvalue-set (gvalue value)
63 (intern-writer-function (gvalue-type gvalue))
64 value gvalue +gvalue-value-offset+)
68 (deftype-method unreference-alien gvalue (type-spec location)
69 `(gvalue-free ,location nil))
73 (deftype param-flag-type ()
82 ;(eval-when (:compile-toplevel :load-toplevel :execute)
83 ;; TODO: rename to param-spec
84 (defclass param (ginstance)
92 :type param-flag-type)
95 :reader param-value-type
99 :reader param-owner-type
103 :getter "g_param_spec_get_nick"
104 :reader param-nickname
108 :getter "g_param_spec_get_blurb"
109 :reader param-documentation
111 (:metaclass ginstance-class)
112 (:ref "g_param_spec_ref")
113 (:unref "g_param_spec_unref"));)
116 (defclass param-char (param)
119 :reader param-char-minimum
123 :reader param-char-maximum
127 :reader param-char-default-value
129 (:metaclass ginstance-class))
131 (defclass param-unsigned-char (param)
135 ; :reader param-unsigned-char-minimum
136 ; :type unsigned-char)
139 ; :reader param-unsigned-char-maximum
140 ; :type unsigned-char)
143 ; :reader param-unsigned-char-default-value
144 ; :type unsigned-char)
146 (:metaclass ginstance-class)
147 (:alien-name "GParamUChar"))
149 (defclass param-boolean (param)
152 :reader param-boolean-default-value
154 (:metaclass ginstance-class))
156 (defclass param-int (param)
159 :reader param-int-minimum
163 :reader param-int-maximum
167 :reader param-int-default-value
169 (:metaclass ginstance-class))
171 (defclass param-unsigned-int (param)
174 :reader param-unsigned-int-minimum
178 :reader param-unsigned-int-maximum
182 :reader param-unsigned-int-default-value
184 (:metaclass ginstance-class)
185 (:alien-name "GParamUInt"))
187 (defclass param-long (param)
190 :reader param-long-minimum
194 :reader param-long-maximum
198 :reader param-long-default-value
200 (:metaclass ginstance-class))
202 (defclass param-unsigned-long (param)
205 :reader param-unsigned-long-minimum
209 :reader param-unsigned-long-maximum
213 :reader param-unsigned-long-default-value
214 :type unsigned-long))
215 (:metaclass ginstance-class)
216 (:alien-name "GParamULong"))
218 (defclass param-unichar (param)
220 (:metaclass ginstance-class))
222 (defclass param-enum (param)
225 :reader param-enum-class
229 :reader param-enum-default-value
231 (:metaclass ginstance-class))
233 (defclass param-flags (param)
236 :reader param-flags-class
240 :reader param-flags-default-value
242 (:metaclass ginstance-class))
244 (defclass param-single-float (param)
247 :reader param-single-float-minimum
251 :reader param-single-float-maximum
255 :reader param-single-float-default-value
259 :reader param-single-float-epsilon
261 (:metaclass ginstance-class)
262 (:alien-name "GParamFloat"))
264 (defclass param-double-float (param)
267 :reader param-double-float-minimum
271 :reader param-double-float-maximum
275 :reader param-double-float-default-value
279 :reader param-double-float-epsilon
281 (:metaclass ginstance-class)
282 (:alien-name "GParamDouble"))
284 (defclass param-string (param)
287 :reader param-string-default-value
289 (:metaclass ginstance-class))
291 (defclass param-param (param)
293 (:metaclass ginstance-class))
295 (defclass param-boxed (param)
297 (:metaclass ginstance-class))
299 (defclass param-pointer (param)
301 (:metaclass ginstance-class))
303 (defclass param-value-array (param)
306 :reader param-value-array-element-spec
310 :reader param-value-array-length
312 (:metaclass ginstance-class))
314 ;; (defclass param-closure (param)
316 ;; (:metaclass ginstance-class))
318 (defclass param-object (param)
320 (:metaclass ginstance-class))