Changeset 5884

Timestamp:

Feb 10, 2007, 9:29:07 PM (18 years ago)

Author:

Gary Byers

Message:

Need to ensure that floats are CG-FLOATs when appropriate.

Location:

trunk/ccl/examples

Files:

• tiny.lisp (modified) (1 diff)
• webkit.lisp (modified) (1 diff)

trunk/ccl/examples/tiny.lisp

@@ -73 +73 @@
 (defun tiny-setup ()
   (with-autorelease-pool
-   (slet ((r (ns-make-rect 100.0 350.0 400.0 400.0)))
+   (slet ((r (ns-make-rect (float 100.0 +cgfloat-zero+)
+                           (float 350.0 +cgfloat-zero+)
+                           (float 400.0 +cgfloat-zero+)
+                           (float 400.0 +cgfloat-zero+))))
          (let ((w (make-instance 
                    'ns:ns-window

trunk/ccl/examples/webkit.lisp

@@ -56 +56 @@
 (defun browser-window (urlspec)
   ;; Content rect for window, bounds rect for view.
-  (slet ((r (ns-make-rect 100.0 100.0 800.0 600.0)))
+  (slet ((r (ns-make-rect (float 100.0 +cgfloat-zero+)
+                          (float 100.0 +cgfloat-zero+)
+                          (float 800.0 +cgfloat-zero+)
+                          (float 600.0 +cgfloat-zero+))))
         (with-autorelease-pool 
          (let* ((url (if (typep urlspec 'pathname)