Changeset 12494

Timestamp:

Jul 31, 2009, 12:24:00 PM (10 years ago)

Author:

gb

Message:

Separate #+/#-cocotron versions of #/initWithString:, for now.

I have no idea what happened to the welcome banner in the listener.

File:

• trunk/source/cocoa-ide/cocoa-editor.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-editor.lisp

@@ -705 +705 @@
    +null-ptr+))
 
+
+#-cocotron
+(objc:defmethod #/initWithString: ((self hemlock-text-storage) s)
+  (setq s (%inc-ptr s 0))
+  (let* ((newself (#/init self))
+         (styles (make-editor-style-map))
+         (mirror (make-instance ns:ns-mutable-attributed-string
+                                   :with-string s
+                                   :attributes (#/objectAtIndex: styles 0))))
+    (declare (type hemlock-text-storage newself))
+    (setf (slot-value newself 'styles) styles)
+    (setf (slot-value newself 'hemlock-string) s)
+    (setf (slot-value newself 'mirror) mirror)
+    (setf (slot-value newself 'string) (#/retain (#/string mirror)))
+    newself))
+
+#+cocotron
 (objc:defmethod #/initWithString: ((self hemlock-text-storage) s)
   (setq s (%inc-ptr s 0))