Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv30407/root/cells-gtk

Modified Files: drawing.lisp Log Message: trivial Date: Tue Jan 3 20:03:33 2006 Author: pdenno

Index: root/cells-gtk/drawing.lisp diff -u root/cells-gtk/drawing.lisp:1.2 root/cells-gtk/drawing.lisp:1.3 --- root/cells-gtk/drawing.lisp:1.2 Fri Nov 4 16:02:05 2005 +++ root/cells-gtk/drawing.lisp Tue Jan 3 20:03:33 2006 @@ -56,7 +56,6 @@ (gdk-draw-drawable cgtk::*window* cgtk::*gcontext* drawable 0 0 dx dy -1 -1))))) 0)

-;;; data is not used, AFAIK. (defun gtk-drawing-set-handlers (widget data) (gtk-signal-connect-swap widget "button-press-event" (ffx:ff-register-callable 'drawing-button-events-handler) @@ -70,7 +69,6 @@ (gtk-signal-connect-swap widget "expose-event" (ffx:ff-register-callable 'drawing-expose-event-handler) :data data)) - (export '(gtk-drawing-set-handlers))

;;;============================================================================