Changeset 12489


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

This file should go away, but #-cocotron the Unix-specific parts.

File:
1 edited

Legend:

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

    r12462 r12489  
    109109;;; (and to ensure that the file gets deleted when the application
    110110;;; quits.)
     111#-windows-target
    111112(defun open-logging-fds ()
    112113  (with-cstrs ((template "/tmp/logfileXXXXXX"))
     
    148149(objc:defmethod #/init ((self console-window))
    149150  (#/release self)
     151  #+windows-target +null-ptr+
     152  #-windows-target
    150153  (flet ((path-inode (path)
    151154           (nth-value 4 (ccl::%stat path)))
     
    167170               (#/setTypingAttributes: tv
    168171                                       (create-text-attributes
    169                                         :font (default-font :name "Monaco" :size 10)
     172                                        :font (default-font
     173                                                  :name #+darwin-target "Monaco"
     174                                                  #-darwin-targe "Lucida Typewriter"
     175                                                :size 10)
    170176                                        :color (#/redColor ns:ns-color))))
    171177             (#/setFrameOrigin: win (ns:make-ns-point 20 20))
Note: See TracChangeset for help on using the changeset viewer.