Changed define-foreign to defbinding

diff --git a/glib/gobject.lisp b/glib/gobject.lisp
index 0284ed42567c6089425497d0bc3dbbaf5e5677be..9f560d2b97de17d85b78c8ae9f87f9b5fd1ed3d7 100644 (file)
--- a/glib/gobject.lisp
+++ b/glib/gobject.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
 
 ;; 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: gobject.lisp,v 1.5 2001-04-29 20:17:27 espen Exp $
+;; $Id: gobject.lisp,v 1.6 2001-04-29 20:34:18 espen Exp $

 
 (in-package "GLIB")
 
 
 (in-package "GLIB")
 


@@ -35,34 +35,34 @@ (defmethod initialize-instance ((object gobject) &rest initargs)
    (%gobject-new (type-number-of object)))
   (call-next-method))
 
    (%gobject-new (type-number-of object)))
   (call-next-method))
 

-(define-foreign ("g_object_new" %gobject-new) () gobject
+(defbinding ("g_object_new" %gobject-new) () gobject

   (type type-number)
   (nil null))
 
 
 ;;;; Parameter stuff
 
   (type type-number)
   (nil null))
 
 
 ;;;; Parameter stuff
 

-(define-foreign %object-set-property () nil
+(defbinding %object-set-property () nil

   (object gobject)
   (name string)
   (value gvalue))
 
   (object gobject)
   (name string)
   (value gvalue))
 

-(define-foreign %object-get-property () nil
+(defbinding %object-get-property () nil

   (object gobject)
   (name string)
   (value gvalue))
 
   (object gobject)
   (name string)
   (value gvalue))
 

-(define-foreign %object-notify () nil
+(defbinding %object-notify () nil

   (object gobject)
   (name string))
 
   (object gobject)
   (name string))
 

-(define-foreign object-freeze-notify () nil
+(defbinding object-freeze-notify () nil

   (object gobject))
 
   (object gobject))
 

-(define-foreign object-thaw-notify () nil
+(defbinding object-thaw-notify () nil

   (object gobject))
 
   (object gobject))
 

-(define-foreign %object-set-qdata-full () nil
+(defbinding %object-set-qdata-full () nil

   (object gobject)
   (id quark)
   (data unsigned-long)
   (object gobject)
   (id quark)
   (data unsigned-long)


@@ -77,7 +77,7 @@ (defun (setf object-data) (data object key &key (test #'eq))
    (register-user-data data) *destroy-notify*)
   data)
 
    (register-user-data data) *destroy-notify*)
   data)
 

-(define-foreign %object-get-qdata () unsigned-long
+(defbinding %object-get-qdata () unsigned-long

   (object gobject)              
   (id quark))
 
   (object gobject)              
   (id quark))
 


@@ -98,12 +98,12 @@   (defclass effective-gobject-slot-definition
     (effective-virtual-slot-definition)))
 
 
     (effective-virtual-slot-definition)))
 
 

-; (define-foreign object-class-install-param () nil
+; (defbinding object-class-install-param () nil

 ;   (class pointer)
 ;   (id unsigned-int)
 ;   (parameter parameter))
 
 ;   (class pointer)
 ;   (id unsigned-int)
 ;   (parameter parameter))
 

-; (define-foreign object-class-find-param-spec () parameter
+; (defbinding object-class-find-param-spec () parameter

 ;   (class pointer)
 ;   (name string))
 
 ;   (class pointer)
 ;   (name string))
 


@@ -156,10 +156,4 @@ (defmethod compute-virtual-slot-location
 (defmethod validate-superclass ((class gobject-class)
                                (super pcl::standard-class))
   (subtypep (class-name super) 'gobject))
 (defmethod validate-superclass ((class gobject-class)
                                (super pcl::standard-class))
   (subtypep (class-name super) 'gobject))

-
-
-;;;;
-
-; (defmacro defclass-by-query (name)
-;   (destructuring-bind (lisp-name alien-name) name

     
\ No newline at end of file
     
\ No newline at end of file