From c5d37f4af32252b43d7db6a9b049bb846e1205c1 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 7 Nov 2004 15:54:15 +0000 Subject: [PATCH] Added reader/writer/destroy methods Organization: Straylight/Edgeware From: espen --- glib/ginterface.lisp | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/glib/ginterface.lisp b/glib/ginterface.lisp index f0d3dcc..b54c665 100644 --- a/glib/ginterface.lisp +++ b/glib/ginterface.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: ginterface.lisp,v 1.4 2004-11-06 21:39:58 espen Exp $ +;; $Id: ginterface.lisp,v 1.5 2004-11-07 15:54:15 espen Exp $ (in-package "GLIB") @@ -94,6 +94,18 @@ (defmethod to-alien-function ((class ginterface-class) &rest args) (declare (ignore class args)) (to-alien-function 'gobject)) +(defmethod reader-function ((class ginterface-class) &rest args) + (declare (ignore class args)) + (reader-function 'gobject)) + +(defmethod writer-function ((class ginterface-class) &rest args) + (declare (ignore class args)) + (writer-function 'gobject)) + +(defmethod destroy-function ((class ginterface-class) &rest args) + (declare (ignore class args)) + (destroy-function 'gobject)) + ;;;; -- [mdw]