Changeset 855

Timestamp:

Aug 1, 2004, 5:54:34 PM (20 years ago)

Author:

Gary Byers

Message:

INIT-WITH-TEXT-STORAGE -> SET-TEXT-STORAGE (was initing twice.)

File:

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

trunk/ccl/examples/cocoa-editor.lisp

@@ -1659 +1659 @@
 
 
-(define-objc-method ((:id :init-with-text-storage ts)
+(define-objc-method ((:id :set-text-storage ts)
                      hemlock-editor-document)
-  (let* ((doc (send-super 'init))
+  (let* ((doc (%inc-ptr self 0))
          (string (send ts 'string))
          (cache (hemlock-buffer-string-cache string))
@@ -1676 +1676 @@
 (define-objc-method ((:id init) hemlock-editor-document)
   (let* ((doc (send-super 'init)))
-    (when doc
+    (unless  (%null-ptr-p doc)
       (send doc
-        :init-with-text-storage (make-textstorage-for-hemlock-buffer
-                                 (make-hemlock-buffer
-                                  (lisp-string-from-nsstring
-                                   (send doc 'display-name))
-                                  :modes '("Lisp" "Editor")))))
+        :set-text-storage (make-textstorage-for-hemlock-buffer
+                           (make-hemlock-buffer
+                            (lisp-string-from-nsstring
+                             (send doc 'display-name))
+                            :modes '("Lisp" "Editor")))))
     doc))