Changeset 7347 for branches/easygui/ccl/examples/cocoa/easygui/views.lisp
- Timestamp:
- Oct 4, 2007, 3:02:08 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/easygui/ccl/examples/cocoa/easygui/views.lisp
r7346 r7347 44 44 (check-type editable-p boolean) 45 45 (dcc (#/setEditable: (cocoa-ref view) editable-p))) 46 47 (defclass one-selection-mixin () ()) 48 49 (defmethod (setf selection) (selection (view one-selection-mixin)) 50 (dcc (#/setSelectedRange: (cocoa-ref view) (range-nsrange selection)))) 51 52 (defmethod selection ((view one-selection-mixin)) 53 (let ((range (dcc (#/selectedRange (cocoa-ref view))))) 54 (if (= (ns:ns-range-location range) #$NSNotFound) 55 nil 56 (range (ns:ns-range-location range) 57 (ns:ns-range-length range))))) 46 58 47 59 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; … … 66 78 (defclass static-text-view (view view-text-via-stringvalue-mixin) ()) 67 79 68 (defclass text-input-view (view editable-mixin view-text-via-stringvalue-mixin) 80 (defclass text-input-view (view editable-mixin view-text-via-stringvalue-mixin 81 ;; XXX: requires NSTextView, but this is an 82 ;; NSTextField: 83 #+not-yet one-selection-mixin) 69 84 ((input-locked-p :initform nil :initarg :input-locked-p 70 85 :reader text-input-locked-p)))
Note: See TracChangeset
for help on using the changeset viewer.