Changeset 12758


Ignore:
Timestamp:
Sep 4, 2009, 5:22:55 PM (10 years ago)
Author:
palter
Message:

[NSTextView selectedRanges] isn't implemented in Cocotron so work around it

File:
1 edited

Legend:

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

    r12698 r12758  
    13391339         (package-name (hi::variable-value 'hemlock::current-package :buffer buffer))
    13401340         (pathname (hi::buffer-pathname buffer))
    1341          (ranges (#/selectedRanges self))
     1341         ;; Cocotron issue 380: NSTextView doesn't implement #/selectedRanges and
     1342         ;;  #/setSelectedRanges: methods.
     1343         #-cocotron (ranges (#/selectedRanges self))
     1344         #+cocotron (ranges (#/arrayWithObject: ns:ns-array
     1345                                                (#/valueWithRange: ns:ns-value
     1346                                                                   (#/selectedRange self))))
    13421347         (text (#/string self)))
    13431348    (dotimes (i (#/count ranges))
Note: See TracChangeset for help on using the changeset viewer.