Changeset 7347 for branches/easygui/ccl/examples/cocoa/easygui/views.lisp

Timestamp:

Oct 4, 2007, 3:02:08 PM (13 years ago)

Author:

af

Message:

Initial work on an interface to selections in text fields.

NB: Not entirely working yet.

File:

• branches/easygui/ccl/examples/cocoa/easygui/views.lisp (modified) (2 diffs)

branches/easygui/ccl/examples/cocoa/easygui/views.lisp

@@ -44 +44 @@
   (check-type editable-p boolean)
   (dcc (#/setEditable: (cocoa-ref view) editable-p)))
+
+(defclass one-selection-mixin () ())
+
+(defmethod (setf selection) (selection (view one-selection-mixin))
+  (dcc (#/setSelectedRange: (cocoa-ref view) (range-nsrange selection))))
+
+(defmethod selection ((view one-selection-mixin))
+  (let ((range (dcc (#/selectedRange (cocoa-ref view)))))
+    (if (= (ns:ns-range-location range) #$NSNotFound)
+        nil
+        (range (ns:ns-range-location range)
+               (ns:ns-range-length range)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -66 +78 @@
 (defclass static-text-view (view view-text-via-stringvalue-mixin) ())
 
-(defclass text-input-view (view editable-mixin view-text-via-stringvalue-mixin)
+(defclass text-input-view (view editable-mixin view-text-via-stringvalue-mixin
+                                ;; XXX: requires NSTextView, but this is an
+                                ;; NSTextField:
+                                #+not-yet one-selection-mixin)
      ((input-locked-p :initform nil :initarg :input-locked-p
                       :reader text-input-locked-p)))