Changeset 12758

Timestamp:

Sep 4, 2009, 10:22:55 AM (15 years ago)

Author:

Gary Palter

Message:

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

File:

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

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

@@ -1339 +1339 @@
          (package-name (hi::variable-value 'hemlock::current-package :buffer buffer))
          (pathname (hi::buffer-pathname buffer))
-         (ranges (#/selectedRanges self))
+         ;; Cocotron issue 380: NSTextView doesn't implement #/selectedRanges and
+         ;;  #/setSelectedRanges: methods.
+         #-cocotron (ranges (#/selectedRanges self))
+         #+cocotron (ranges (#/arrayWithObject: ns:ns-array 
+                                                (#/valueWithRange: ns:ns-value
+                                                                   (#/selectedRange self))))
          (text (#/string self)))
     (dotimes (i (#/count ranges))