Changeset 12489
- Timestamp:
- Jul 31, 2009, 12:03:47 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/console-window.lisp
r12462 r12489 109 109 ;;; (and to ensure that the file gets deleted when the application 110 110 ;;; quits.) 111 #-windows-target 111 112 (defun open-logging-fds () 112 113 (with-cstrs ((template "/tmp/logfileXXXXXX")) … … 148 149 (objc:defmethod #/init ((self console-window)) 149 150 (#/release self) 151 #+windows-target +null-ptr+ 152 #-windows-target 150 153 (flet ((path-inode (path) 151 154 (nth-value 4 (ccl::%stat path))) … … 167 170 (#/setTypingAttributes: tv 168 171 (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) 170 176 :color (#/redColor ns:ns-color)))) 171 177 (#/setFrameOrigin: win (ns:make-ns-point 20 20))
Note: See TracChangeset
for help on using the changeset viewer.