Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv16170/root/cells-gtk
Modified Files: drawing.lisp Log Message: The drawing work is not ready for use, but the temporary change here will at least allow it to be compiled without causing problems. Date: Fri Nov 4 16:02:05 2005 Author: pdenno
Index: root/cells-gtk/drawing.lisp diff -u root/cells-gtk/drawing.lisp:1.1 root/cells-gtk/drawing.lisp:1.2 --- root/cells-gtk/drawing.lisp:1.1 Sat Oct 8 16:26:41 2005 +++ root/cells-gtk/drawing.lisp Fri Nov 4 16:02:05 2005 @@ -25,7 +25,8 @@ ;; POD This should draw the entire backing-pixmap (gdk-draw-drawable cgtk::*window* cgtk::*gcontext* - (funcall (cgtk:draw-fn self) self) 0 0 0 0 -1 -1) + (funcall (funcall (intern "DRAW-FN" :cells-gtk) self) self) + 0 0 0 0 -1 -1) 0))