Changeset 7568


Ignore:
Timestamp:
Oct 31, 2007, 3:18:04 AM (12 years ago)
Author:
rme
Message:

Correct 32/64 bit portability error.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/preferences.lisp

    r7566 r7568  
    6767  (let* ((font (#/unarchiveObjectWithData: ns:ns-unarchiver value))
    6868         (name (#/displayName font))
    69          (size (#/pointSize font)))
    70     (#/stringWithFormat: ns:ns-string #@"%@ %.0f" :id name :<CGF>loat size)))
     69         (size (float (#/pointSize font) 0.0d0)))
     70    (#/stringWithFormat: ns:ns-string #@"%@ %.0f" :id name :double-float size)))
    7171
    7272(defclass preferences-window-controller (ns:ns-window-controller)
Note: See TracChangeset for help on using the changeset viewer.