Changeset 5914

Timestamp:

Feb 13, 2007, 5:10:24 PM (18 years ago)

Author:

Gary Byers

Message:

A little bit of cgfloat stuff; there are more/other float-size issues
deeper down in the code.

File:

• trunk/ccl/examples/rubix/rubix.lisp (modified) (1 diff)

trunk/ccl/examples/rubix/rubix.lisp

@@ -226 +226 @@
     ;; Q: why slet here?
     (ccl::slet ((w-frame (ccl::send w-content-view 'frame)))
-      (ccl::slet ((glview-rect (ccl::ns-make-rect *aluminum-margin*
-                                        *aluminum-margin*
-                                        (- (pref w-frame :<NSR>ect.size.width)
-                                           (* 2 *aluminum-margin*))
-                                        (- (pref w-frame :<NSR>ect.size.height)
-                                           *aluminum-margin*))))
+      (ccl::slet ((glview-rect (ccl::ns-make-rect
+                                (float *aluminum-margin* ccl::+cgfloat-zero+)
+                                (float *aluminum-margin* ccl::+cgfloat-zero+)
+                                (- (pref w-frame :<NSR>ect.size.width)
+                                   (* 2 *aluminum-margin*))
+                                (- (pref w-frame :<NSR>ect.size.height)
+                                   *aluminum-margin*))))
         ;; Q: why make-objc-instance here?
         (let ((glview (ccl::send (ccl::send (ccl::@class rubix-opengl-view) 'alloc)