[cells-gtk-devel] trivial patches

[Andras Simon]

Hi Peter,

Would you commit these? Thanks,

Andras
-------------- next part --------------
Index: cells-gtk/drawing.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp,v
retrieving revision 1.7
diff -u -a -r1.7 drawing.lisp
--- cells-gtk/drawing.lisp	7 Jun 2006 16:40:06 -0000	1.7
+++ cells-gtk/drawing.lisp	19 Jun 2006 23:15:41 -0000
@@ -69,7 +69,6 @@
   (gtk-signal-connect-swap widget "expose-event"
 			   (cffi:get-callback 'drawing-expose-event-handler)
 			   :data data))
-(export '(gtk-drawing-set-handlers))
 
 ;;;============================================================================
 (in-package :cgtk)
Index: cells-gtk/packages.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/packages.lisp,v
retrieving revision 1.6
diff -u -a -r1.6 packages.lisp
--- cells-gtk/packages.lisp	7 Jun 2006 16:43:08 -0000	1.6
+++ cells-gtk/packages.lisp	19 Jun 2006 23:15:41 -0000
@@ -32,7 +32,6 @@
            #:push-message
            #:pop-message
            #:pulse
-           #:gtk-drawing-set-handlers
            #:*gcontext*
            #:with-pixmap
            #:with-gc
Index: gtk-ffi/package.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/gtk-ffi/package.lisp,v
retrieving revision 1.1
diff -u -a -r1.1 package.lisp
--- gtk-ffi/package.lisp	8 Jun 2006 14:58:24 -0000	1.1
+++ gtk-ffi/package.lisp	19 Jun 2006 23:15:42 -0000
@@ -64,5 +64,6 @@
 	   #:gtk-tree-store-set-kids
 	   #:gtk-tree-model-get-cell
 	   #:gtk-tree-view-render-cell
-	   #:gtk-file-chooser-get-filenames-strs))
+	   #:gtk-file-chooser-get-filenames-strs
+	   #:gtk-drawing-set-handlers))