Changeset 12595


Ignore:
Timestamp:
Aug 16, 2009, 10:14:56 PM (10 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r12571 r12595  
    14761476
    14771477#-cocotron                             ; for now, small struct return FFI issue
     1478
    14781479(objc:defmethod (#/selectionRangeForProposedRange:granularity: :ns-range)
    14791480    ((self hemlock-textstorage-text-view)
     
    15101511                              (when (hemlock::list-offset m2 -1)
    15111512                                (ns:init-ns-range r (hi:mark-absolute-position m2) (- index (hi:mark-absolute-position m2)))
    1512                                 (return-from HANDLED r))))))))))))
     1513                                (return-from HANDLED r))))))))))))       
    15131514       (call-next-method proposed g)
    15141515       #+debug
Note: See TracChangeset for help on using the changeset viewer.