Changeset 12595

Timestamp:

Aug 16, 2009, 3:14:56 PM (15 years ago)

Author:

Gary Byers

Message:

Remove the #-cocotron from #/selectionRangeForProposedRange:granularity:,
on the assumption that the error I got when first trying to load this
code under Cocotron had more to do with the lack of structure tags on
the struct named by the #>NSRange type.

File:

• trunk/source/cocoa-ide/cocoa-editor.lisp (modified) (2 diffs)

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

@@ -1476 +1476 @@
 
 #-cocotron                             ; for now, small struct return FFI issue
+
 (objc:defmethod (#/selectionRangeForProposedRange:granularity: :ns-range)
     ((self hemlock-textstorage-text-view)
@@ -1510 +1511 @@
                               (when (hemlock::list-offset m2 -1)
                                 (ns:init-ns-range r (hi:mark-absolute-position m2) (- index (hi:mark-absolute-position m2)))
-                                (return-from HANDLED r))))))))))))
+                                (return-from HANDLED r))))))))))))       
        (call-next-method proposed g)
        #+debug