Changeset 7684


Ignore:
Timestamp:
Nov 20, 2007, 12:40:45 AM (12 years ago)
Author:
rme
Message:

Add preference option so that bitmap screen font substitution can be
disabled.

Location:
trunk/ccl/cocoa-ide
Files:
3 edited

Legend:

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

    r7616 r7684  
    3030(def-cocoa-default *wrap-lines-to-window* :bool nil
    3131                   "Soft wrap lines to window width")
     32
     33(def-cocoa-default *use-screen-fonts* :bool t "Use bitmap screen fonts when available")
    3234
    3335(defmacro nsstring-encoding-to-nsinteger (n)
     
    15371539      (#/setTypesetter: layout (make-instance 'hemlock-ats-typesetter))
    15381540      (#/addLayoutManager: textstorage layout)
    1539       (#/setUsesScreenFonts: layout t)
     1541      (#/setUsesScreenFonts: layout *use-screen-fonts*)
    15401542      (#/release layout)
    15411543      (let* ((contentsize (#/contentSize scrollview)))
     
    21492151(defun size-of-char-in-font (f)
    21502152  (let* ((sf (#/screenFont f))
    2151          (screen-p t))
     2153         (screen-p *use-screen-fonts*))
    21522154    (if (%null-ptr-p sf) (setq sf f screen-p nil))
    21532155    (let* ((layout (#/autorelease (#/init (#/alloc ns:ns-layout-manager)))))
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/preferences.nib/info.nib

    r7604 r7684  
    99        <key>IBOpenObjects</key>
    1010        <array>
    11                 <integer>1500858</integer>
     11                <integer>1501086</integer>
    1212        </array>
    1313        <key>IBSystem Version</key>
    14         <string>9A581</string>
     14        <string>9B18</string>
    1515        <key>targetFramework</key>
    1616        <string>IBCocoaFramework</string>
Note: See TracChangeset for help on using the changeset viewer.