From 56c58c83e4111c955ce305633333dcee1e77df26 Mon Sep 17 00:00:00 2001 Message-Id: <56c58c83e4111c955ce305633333dcee1e77df26.1717617180.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 21 Oct 2001 21:55:41 +0000 Subject: [PATCH] Updated for gtk+-1.3.9 Organization: Straylight/Edgeware From: espen --- glib/gparam.lisp | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) diff --git a/glib/gparam.lisp b/glib/gparam.lisp index e02bb18..ddaeeef 100644 --- a/glib/gparam.lisp +++ b/glib/gparam.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gparam.lisp,v 1.3 2001/05/11 16:06:02 espen Exp $ +;; $Id: gparam.lisp,v 1.4 2001/10/21 21:55:41 espen Exp $ (in-package "GLIB") @@ -71,22 +71,28 @@ (defclass param (ginstance) :allocation :alien :reader param-name :type string) - (nickname - :allocation :alien - :reader param-nickname - :type string) - (documentation - :allocation :alien - :reader param-documentation - :type string) (flags :allocation :alien :reader param-flags :type param-flag-type) - (type + (value-type + :allocation :alien + :reader param-value-type + :type type-number) + (owner-type :allocation :alien - :reader param-type - :type type-number)) + :reader param-owner-type + :type type-number) + (nickname + :allocation :virtual + :getter "g_param_get_nick" + :reader param-nickname + :type string) + (documentation + :allocation :virtual + :getter "g_param_get_blurb" + :reader param-documentation + :type string)) (:metaclass ginstance-class) (:ref "g_param_spec_ref") (:unref "g_param_spec_unref"))) -- [mdw]