[Openmcl-cvs-notifications] r12674 - in /trunk/source/examples/rubix: loader.lisp rubix.lisp

[gb at clozure.com]

Author: gb
Date: Tue Aug 25 08:10:59 2009
New Revision: 12674

Log:
rubix.lisp: suppress a compiler warning
loader.lisp: commented-out call needs to run on the event thread in Cocotron
 (and it may be a good idea to do that in Cocoa, as well.)

Modified:
    trunk/source/examples/rubix/loader.lisp
    trunk/source/examples/rubix/rubix.lisp

Modified: trunk/source/examples/rubix/loader.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/examples/rubix/loader.lisp (original)
+++ trunk/source/examples/rubix/loader.lisp Tue Aug 25 08:10:59 2009
@@ -12,4 +12,4 @@
     (load-relative "rubix.lisp")))
 =

 =

-; (run-rubix-demo)
+; (gui::execute-in-gui #'run-rubix-demo)

Modified: trunk/source/examples/rubix/rubix.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/examples/rubix/rubix.lisp (original)
+++ trunk/source/examples/rubix/rubix.lisp Tue Aug 25 08:10:59 2009
@@ -19,7 +19,6 @@
 =

 (objc:defmethod (#/prepareOpenGL :void) ((self rubix-opengl-view))
   (declare (special *the-origin* *y-axis*))
-  (declare (ignore a-rect))
   (opengl:with-matrix-mode (#$GL_PROJECTION) ;; default is GL_MODELVIEW
     (#_glLoadIdentity)
     (#_glFrustum -0.6d0 0.6d0 -0.6d0 0.6d0 10.0d0 20.0d0))