Changeset 611

Timestamp:

Mar 3, 2004, 2:00:01 PM (21 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/examples/cocoa-editor.lisp (modified) (3 diffs)

trunk/ccl/examples/cocoa-editor.lisp

@@ -439 +439 @@
 ;;; small, but allows us to see more of the modeline fields (like the
 ;;; full pathname) in more cases.
+
 (defloadvar *modeline-text-attributes* nil)
-(defparameter *modeline-font-name* "Courier New Bold Italic")
-(defparameter *modeline-font-size* 10.0)
+
+(def-cocoa-default *modeline-font-name* :string "Courier New Bold Italic")
+(def-cocoa-default  *modeline-font-size* :float 10.0)
 
 
@@ -928 +930 @@
           (force-output)
           (send textstorage
-                :edited #$NSTextStorageEditedCharacters
+                :edited #$NSTextStorageEditedAttributes
                 :range (ns-make-range pos n)
                 :change-in-length (- n))
@@ -1138 +1140 @@
 
 (define-objc-method ((:void close) lisp-editor-document)
-  (send-super 'close)
   (let* ((textstorage (slot-value self 'textstorage)))
     (setf (slot-value self 'textstorage) (%null-ptr))
     (unless (%null-ptr-p textstorage)
-      (close-hemlock-textstorage textstorage))))
+      (close-hemlock-textstorage textstorage)))
+    (send-super 'close))