Changeset 6060


Ignore:
Timestamp:
Mar 18, 2007, 2:17:16 AM (13 years ago)
Author:
gb
Message:

Some cgfloat stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/examples/cocoa-editor.lisp

    r5901 r6060  
    10601060                                           :<NSR>ect.size.width)
    10611061                                     0.75f0)))
    1062              (declare (type cg-float single-float modeline-width))
     1062             (declare (type cgfloat modeline-width))
    10631063             (setf (pref modeline-frame :<NSR>ect.size.width)
    10641064                   modeline-width
    1065                    (the cg-float
     1065                   (the cgfloat
    10661066                     (pref scrollbar-frame :<NSR>ect.size.width))
    1067                    (- (the cg-float
     1067                   (- (the cgfloat
    10681068                        (pref scrollbar-frame :<NSR>ect.size.width))
    10691069                      modeline-width)
    10701070                   (the cg-float
    10711071                     (pref scrollbar-frame :<NSR>ect.origin.x))
    1072                    (+ (the cg-float
     1072                   (+ (the cgfloat
    10731073                        (pref scrollbar-frame :<NSR>ect.origin.x))
    10741074                      modeline-width))
Note: See TracChangeset for help on using the changeset viewer.