[cells-gtk-cvs] CVS update: root/cells-gtk/drawing.lisp

[Peter Denno]

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))