Changeset 611


Ignore:
Timestamp:
Mar 3, 2004, 10:00:01 PM (16 years ago)
Author:
gb
Message:

CLOSE message: close document before invoking SUPER method, not after.
Insertion/deletion fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa-editor.lisp

    r597 r611  
    439439;;; small, but allows us to see more of the modeline fields (like the
    440440;;; full pathname) in more cases.
     441
    441442(defloadvar *modeline-text-attributes* nil)
    442 (defparameter *modeline-font-name* "Courier New Bold Italic")
    443 (defparameter *modeline-font-size* 10.0)
     443
     444(def-cocoa-default *modeline-font-name* :string "Courier New Bold Italic")
     445(def-cocoa-default  *modeline-font-size* :float 10.0)
    444446
    445447
     
    928930          (force-output)
    929931          (send textstorage
    930                 :edited #$NSTextStorageEditedCharacters
     932                :edited #$NSTextStorageEditedAttributes
    931933                :range (ns-make-range pos n)
    932934                :change-in-length (- n))
     
    11381140
    11391141(define-objc-method ((:void close) lisp-editor-document)
    1140   (send-super 'close)
    11411142  (let* ((textstorage (slot-value self 'textstorage)))
    11421143    (setf (slot-value self 'textstorage) (%null-ptr))
    11431144    (unless (%null-ptr-p textstorage)
    1144       (close-hemlock-textstorage textstorage))))
     1145      (close-hemlock-textstorage textstorage)))
     1146    (send-super 'close))
    11451147
    11461148
Note: See TracChangeset for help on using the changeset viewer.