Changeset 12526


Ignore:
Timestamp:
Aug 4, 2009, 3:24:36 AM (10 years ago)
Author:
gb
Message:

Cocotron changes.

Location:
trunk/source/cocoa-ide
Files:
6 edited

Legend:

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

    r12237 r12526  
    169169  (signal-semaphore *cocoa-application-finished-launching*))
    170170
     171(objc:defmethod (#/applicationShouldOpenUntitledFile: #>BOOL)
     172    ((self lisp-application-delegate) app)
     173  t)
     174
    171175(objc:defmethod (#/applicationOpenUntitledFile: :<BOOL>)
    172176    ((self lisp-application-delegate) app)
  • trunk/source/cocoa-ide/cocoa-backtrace.lisp

    r12485 r12526  
    6464
    6565(def-cocoa-default *backtrace-font-name* :string #+darwin-target "Monaco"
    66                    #-darwin-target "Lucida Typewriter" "Name of font used in backtrace views")
     66                   #-darwin-target "Terminal" "Name of font used in backtrace views")
    6767(def-cocoa-default *backtrace-font-size* :float 9.0f0 "Size of font used in backtrace views")
    6868
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r12495 r12526  
    997997(defvar *buffer-being-edited* nil)
    998998
     999#-darwin-target
     1000(objc:defmethod (#/hasMarkedText #>BOOL) ((self hemlock-textstorage-text-view))
     1001  nil)
     1002
    9991003(objc:defmethod (#/keyDown: :void) ((self hemlock-textstorage-text-view) event)
    10001004  #+debug (#_NSLog #@"Key down event in %@  = %@" :id self :address event)
     
    11331137
    11341138(defmethod remove-paren-highlight ((self hemlock-textstorage-text-view))
     1139  #-cocotron
    11351140  (let* ((left (text-view-paren-highlight-left-pos self))
    11361141         (right (text-view-paren-highlight-right-pos self)))
     
    11531158
    11541159(defmethod compute-temporary-attributes ((self hemlock-textstorage-text-view))
     1160  #-cocotron
    11551161  (let* ((container (#/textContainer self))
    11561162         ;; If there's a containing scroll view, use its contentview         
     
    16451651                       (mapcar
    16461652                        #'(lambda (field)
    1647                             (funcall (hi::modeline-field-function field) buffer))
     1653                            (or (ignore-errors
     1654                                  (funcall (hi::modeline-field-function field) buffer))
     1655                                ""))
    16481656                        (hi::buffer-modeline-fields buffer)))))
    16491657          (#/drawAtPoint:withAttributes: (#/autorelease (%make-nsstring string))
     
    20532061  (#/setFrameAutosaveName: self #@"")
    20542062  (call-next-method))
    2055  
     2063
     2064(defun window-menubar-height ()
     2065  #+cocotron (objc:objc-message-send (ccl::@class "NSMainMenuView") "menuHeight" #>CGFloat)
     2066  #-cocotron 0.0f0)
     2067
    20562068(defun new-hemlock-document-window (class)
    20572069  (let* ((w (new-cocoa-window :class class
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r12493 r12526  
    1111                                                    #@"Monaco"
    1212                                                    #-darwin-target
    13                                                     #@"Lucida Typewriter"
     13                                                    #@"Lucida Console"
    1414                                                    10.0))
    1515                   "Default font for listener input")
     
    2020                                                     #@"Monaco"
    2121                                                     #-darwin-target
    22                                                      #@"Lucida Typewriter"
     22                                                     #@"Lucida Console"
    2323                                                     10.0))
    2424                   "Default font for listener output")
     
    450450    ;; Disabling background layout on listeners is an attempt to work
    451451    ;; around a bug.  The bug's probably gone ...
     452    #-cocotron                          ;no concept of background layout
    452453    (let* ((layout-managers (#/layoutManagers textstorage)))
    453454      (dotimes (i (#/count layout-managers))
     
    458459    (#/addWindowController: self controller)
    459460    (#/release controller)
     461    (setf (hemlock-document-process self)
     462          (new-cocoa-listener-process listener-name window))
    460463    (when path
    461464      (unless (#/setFrameAutosaveName: window path)
     
    484487          (setf *next-listener-x-pos* (ns:ns-point-x new-point)
    485488                *next-listener-y-pos* (ns:ns-point-y new-point)))))
    486     (setf (hemlock-document-process self)
    487           (new-cocoa-listener-process listener-name window))
     489   
    488490    controller))
    489491
  • trunk/source/cocoa-ide/cocoa-utils.lisp

    r12486 r12526  
    207207    (if (or (not *nsapp*) (not (#/isRunning *nsapp*)))
    208208      (error "cocoa thread not available")
    209       (let* ((return-values nil)
    210              (result-handler #'(lambda (&rest values) (setq return-values values)))
    211              (arg (make-instance 'ns:ns-number
    212                     :with-long (register-cocoa-thread-function thunk result-handler context))))
    213         (#/performSelectorOnMainThread:withObject:waitUntilDone:
    214          *nsapp*
    215          (@selector #/invokeLispFunction:)
    216          arg
    217          t)
    218         (apply #'values return-values)))))
     209      (with-autorelease-pool
     210          (let* ((return-values nil)
     211                 (result-handler #'(lambda (&rest values) (setq return-values values)))
     212                 (arg (make-instance 'ns:ns-number
     213                                     :with-long (register-cocoa-thread-function thunk result-handler context))))
     214            (#/performSelectorOnMainThread:withObject:waitUntilDone:
     215             *nsapp*
     216             (@selector #/invokeLispFunction:)
     217             arg
     218             t)
     219            (apply #'values return-values))))))
    219220
    220221
  • trunk/source/cocoa-ide/console-window.lisp

    r12489 r12526  
    172172                                        :font (default-font
    173173                                                  :name #+darwin-target "Monaco"
    174                                                   #-darwin-targe "Lucida Typewriter"
     174                                                  #-darwin-target "Lucida Console"
    175175                                                :size 10)
    176176                                        :color (#/redColor ns:ns-color))))
Note: See TracChangeset for help on using the changeset viewer.