[Openmcl-cvs-notifications] r9140 - /trunk/source/examples/rubix/rubix.lisp

[gb at clozure.com]

Author: gb
Date: Sat Apr 12 05:32:46 2008
New Revision: 9140

Log:
ccl -> gui package prefix.

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

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 Sat Apr 12 05:32:46 2008
@@ -220,7 +220,7 @@
 (defparameter *aluminum-margin* 5.0f0)
 =

 (defun run-rubix-demo ()
-  (let* ((w (ccl::new-cocoa-window :class (find-class 'rubix-window)
+  (let* ((w (gui::new-cocoa-window :class (find-class 'rubix-window)
 				   :title "Rubix Cube"
 				   :height 250
 				   :width 250