Changeset 12812
- Timestamp:
- Sep 11, 2009, 4:58:52 AM (15 years ago)
- File:
-
- 1 edited
-
trunk/source/cocoa-ide/cocoa-editor.lisp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/cocoa-editor.lisp
r12786 r12812 1118 1118 1.0))))) 1119 1119 1120 ;;; Note changes to the textview's background color; record them1121 ;;; as the value of the "temporary" foreground color (for paren-highlighting).1122 (objc:defmethod (#/setBackgroundColor: :void)1123 ((self hemlock-textstorage-text-view) color)1124 #+debug (#_NSLog #@"Set background color: %@" :id color)1125 (let* ((old (text-view-paren-highlight-color self)))1126 (unless (%null-ptr-p old)1127 (#/release old)))1128 (setf (text-view-paren-highlight-color self) (paren-highlight-background-color))1129 (call-next-method color))1130 1131 1120 1132 1121 … … 1798 1787 :with-frame tv-frame 1799 1788 :text-container container)))) 1789 (setf (text-view-paren-highlight-color tv) (paren-highlight-background-color)) 1800 1790 (#/setDelegate: layout tv) 1801 1791 (#/setMinSize: tv (ns:make-ns-size 0 (ns:ns-size-height contentsize)))
Note:
See TracChangeset
for help on using the changeset viewer.
