[cello-cvs] CVS cello

[ktilton]

Update of /project/cello/cvsroot/cello
In directory clnet:/tmp/cvs-serv8357

Modified Files:
	ix-paint.lisp 
Log Message:


--- /project/cello/cvsroot/cello/ix-paint.lisp	2006/10/02 02:59:18	1.6
+++ /project/cello/cvsroot/cello/ix-paint.lisp	2006/10/02 03:55:23	1.7
@@ -55,10 +55,6 @@
   (declare (ignorable self))
   (trc nil "ix-paint fell through" self (class-of self)))
 
-(defmacro with-ogl-isolation (&body body)
-  `(with-attrib (gl_lighting_bit gl_texture_bit gl_enable_bit gl_hint_bit gl_line_bit gl_color_buffer_bit)
-     , at body))
-
 (let ((ixr-box (mkr 0 0 0 0)))
   (defmethod ix-paint :around ((self ix-view) &aux (n (gl-name self)))
     (trc nil "painting, shifting bitmap" self n (^px)(^py) (pre-layer self))