X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.functions.lisp;h=f4005336283cca60aa02a5f15732f40bcf059ea0;hb=89b8d7f826c33afc4f8b14a0c7f284c975551dec;hp=89843eb0533e6fee0e90e261d0c862515877491a;hpb=7f492b85a1e45dc9218b8281b63156c96759158a;p=cl-gtk2.git

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index 89843eb..f400533 100644
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -19,6 +19,8 @@
 (defun (setf gdk-window-events) (new-value window)
   (gdk-window-set-events window new-value))
 
+(export 'gdk-window-events)
+
 (defcfun gdk-gc-new (g-object graphics-context :already-referenced)
   (drawable (g-object drawable)))
 
@@ -45,7 +47,7 @@
     (gdk-drawable-get-size drawable x y)
     (values (mem-ref x :int) (mem-ref y :int))))
 
-(define-g-object-class "PangoLayout" pango-layout (:type-initializer "pango_layout_get_type") ())
+(export 'drawable-get-size)
 
 (defcfun gdk-draw-layout :void
   (drawable (g-object drawable))