Changeset 11320
- Timestamp:
- Nov 9, 2008, 6:23:49 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/cocoa-editor.lisp
r11313 r11320 1171 1171 (setf (ns:ns-range-location range) (+ p istart) 1172 1172 (ns:ns-range-length range) (1+ (- iend istart))) 1173 (#/addTemporaryAttribute:value:forCharacterRange: 1174 layout color-attribute color range)))))))))) 1173 (let ((attrs (#/dictionaryWithObject:forKey: 1174 ns:ns-dictionary color color-attribute))) 1175 (#/addTemporaryAttributes:forCharacterRange: 1176 layout attrs range))))))))))) 1175 1177 1176 1178 (objc:defmethod (#/drawRect: :void) ((self hemlock-text-view) (rect :<NSR>ect)) … … 1207 1209 (paren-highlight-left (text-view-paren-highlight-left-pos self)) 1208 1210 (paren-highlight-right (text-view-paren-highlight-right-pos self)) 1209 (paren-highlight-color (text-view-paren-highlight-color self))) 1210 (#/addTemporaryAttribute:value:forCharacterRange: 1211 layout background paren-highlight-color (ns:make-ns-range paren-highlight-left 1)) 1212 (#/addTemporaryAttribute:value:forCharacterRange: 1213 layout background paren-highlight-color (ns:make-ns-range paren-highlight-right 1)))) 1211 (paren-highlight-color (text-view-paren-highlight-color self)) 1212 (attrs (#/dictionaryWithObject:forKey: ns:ns-dictionary 1213 paren-highlight-color 1214 background))) 1215 (#/addTemporaryAttributes:forCharacterRange: 1216 layout attrs (ns:make-ns-range paren-highlight-left 1)) 1217 (#/addTemporaryAttributes:forCharacterRange: 1218 layout attrs (ns:make-ns-range paren-highlight-right 1)))) 1214 1219 ;; Um, don't forget to actually draw the view.. 1215 1220 (call-next-method rect)))
Note: See TracChangeset
for help on using the changeset viewer.