Changeset 12489

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:

• trunk/source/cocoa-ide/console-window.lisp (modified) (3 diffs)

trunk/source/cocoa-ide/console-window.lisp

@@ -109 +109 @@
 ;;; (and to ensure that the file gets deleted when the application
 ;;; quits.)
+#-windows-target
 (defun open-logging-fds ()
   (with-cstrs ((template "/tmp/logfileXXXXXX"))
@@ -148 +149 @@
 (objc:defmethod #/init ((self console-window))
   (#/release self)
+  #+windows-target +null-ptr+
+  #-windows-target
   (flet ((path-inode (path)
            (nth-value 4 (ccl::%stat path)))
@@ -167 +170 @@
                (#/setTypingAttributes: tv
                                        (create-text-attributes
-                                        :font (default-font :name "Monaco" :size 10)
+                                        :font (default-font
+                                                  :name #+darwin-target "Monaco"
+                                                  #-darwin-targe "Lucida Typewriter"
+                                                :size 10)
                                         :color (#/redColor ns:ns-color))))
              (#/setFrameOrigin: win (ns:make-ns-point 20 20))