[cello-cvs] CVS cello

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