Ignore:
Timestamp:
Jul 31, 2009, 12:04:30 PM (10 years ago)
Author:
gb
Message:

Cocotron conditionalization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-window.lisp

    r12179 r12490  
    117117
    118118
    119 #+apple-objc
    120119(defun enable-foreground ()
     120  #+apple-objc
    121121  (rlet ((psn :<P>rocess<S>erial<N>umber))
    122122    (#_GetCurrentProcess psn)
     
    147147                 (#/setTitle: item #@"Show System Console"))
    148148               t)))
    149           (t (call-next-method item)))))
     149          (t #+cocotron t #-cocotron (call-next-method item)))))
    150150
    151151(defmethod ccl::process-exit-application ((process appkit-process) thunk)
     
    193193             (enable-foreground)
    194194             (or *NSApp* (setq *NSApp* (init-cocoa-application)))
     195             #-cocotron
    195196             (let* ((icon (#/imageNamed: ns:ns-image #@"NSApplicationIcon")))
    196197               (unless (%null-ptr-p icon)
     
    221222;;; of the #\m glyph.
    222223
     224#-cocotron
    223225(defun is-fixed-pitch-font (font)
    224226  (= (ns:ns-size-width (#/advancementForGlyph: font (#/glyphWithName: font #@"i")))
    225227     (ns:ns-size-width (#/advancementForGlyph: font (#/glyphWithName: font #@"m")))))
     228
     229#+cocotron
     230(defun is-fixed-pitch-font (font)
     231  (#/isFixedPitch font))
    226232
    227233;;; Try to find the specified font.  If it doesn't exist (or isn't
Note: See TracChangeset for help on using the changeset viewer.