Added new file gtkutils.lisp

diff --git a/clg.system b/clg.system
index 53d5df327053e49ca6b07766492c93586eaff7ca..9076da5cd8e33f44701ef0527173383ceadfd055 100644 (file)
--- a/clg.system
+++ b/clg.system
@@ -76,6 +76,9 @@
        (:file "gtktypes" :depends-on ("gtkenums" "gtkobject"))
        (:file "gtkwidget" :depends-on ("gtktypes"))
        (:file "gtkcontainer" :depends-on ("gtktypes"))
        (:file "gtktypes" :depends-on ("gtkenums" "gtkobject"))
        (:file "gtkwidget" :depends-on ("gtktypes"))
        (:file "gtkcontainer" :depends-on ("gtktypes"))

-       (:file "gtk" :depends-on ("gtkcontainer")))
+       (:file "gtk" :depends-on ("gtktypes"))
+       (:file "gtkutils" :depends-on ("gtk")))

       :depends-on (glib gdk "gtkglue")))))
 
       :depends-on (glib gdk "gtkglue")))))
 

+
+

diff --git a/gtk/gtk-export.lisp b/gtk/gtk-export.lisp
index a014726928ec455653765761e042152a2da3b70d..f51ad901b355c6859cfb15e53c023c181ea30d15 100644 (file)
--- a/gtk/gtk-export.lisp
+++ b/gtk/gtk-export.lisp
@@ -6,3 +6,4 @@ (export-from-file #p"clg:gtk;gtktypes.lisp")
 (export-from-file #p"clg:gtk;gtkwidget.lisp")
 (export-from-file #p"clg:gtk;gtkcontainer.lisp")
 (export-from-file #p"clg:gtk;gtk.lisp")
 (export-from-file #p"clg:gtk;gtkwidget.lisp")
 (export-from-file #p"clg:gtk;gtkcontainer.lisp")
 (export-from-file #p"clg:gtk;gtk.lisp")

+(export-from-file #p"clg:gtk;gtkutils.lisp")