Call show-widget in shared-initialize after method when initarg :visible is non NIL

[clg] / glib / export.lisp

diff --git a/glib/export.lisp b/glib/export.lisp
index 98d78bbb31b1f0f77ac3f322a857835c69f7ac7b..e5c9d3cef7e5a807fdad61718c728fa07ba9b929 100644 (file)
--- a/glib/export.lisp
+++ b/glib/export.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: export.lisp,v 1.2 2004/10/27 15:24:10 espen Exp $
+;; $Id: export.lisp,v 1.4 2005/02/14 00:40:38 espen Exp $

 
 
 ;;; Autogenerating exported symbols
 
 
 ;;; Autogenerating exported symbols


@@ -29,8 +29,16 @@   (defexport defbinding (name &rest args)
        name
       (first name)))
 
        name
       (first name)))
 

-  (defexport define-type-method-fun (name lambda-list)
-    (declare (ignore lambda-list))
+  (defexport def-type-method (name &rest args)
+    (declare (ignore args))
+    name)
+
+  (defexport define-enum-type (name &rest args)
+    (declare (ignore args))
+    name)
+
+  (defexport define-flags-type (name &rest args)
+    (declare (ignore args))

     name)
 
   (defexport define-types-by-introspection (prefix &rest args)
     name)
 
   (defexport define-types-by-introspection (prefix &rest args)


@@ -47,3 +55,4 @@ (export-from-file #p"clg:glib;gcallback.lisp")
 (export-from-file #p"clg:glib;ginterface.lisp")
 (export-from-file #p"clg:glib;gobject.lisp")
 (export-from-file #p"clg:glib;genums.lisp")
 (export-from-file #p"clg:glib;ginterface.lisp")
 (export-from-file #p"clg:glib;gobject.lisp")
 (export-from-file #p"clg:glib;genums.lisp")

+(export-from-file #p"clg:glib;gerror.lisp")