[Openmcl-cvs-notifications] r12812 - /trunk/source/cocoa-ide/cocoa-editor.lisp

[gb at clozure.com]

Author: gb
Date: Fri Sep 11 07:58:52 2009
New Revision: 12812

Log:
text-view-paren-hightlight-color hasn't had anything to do with the text
view's background color in a long time.  Don't override the #/setBackground:
method, and set the paren highlight color when the text view's created.

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

Modified: trunk/source/cocoa-ide/cocoa-editor.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-editor.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp Fri Sep 11 07:58:52 2009
@@ -1112,17 +1112,6 @@
                        .8125
                        1.0)))))
                                                         =

-;;; Note changes to the textview's background color; record them
-;;; as the value of the "temporary" foreground color (for paren-highlighti=
ng).
-(objc:defmethod (#/setBackgroundColor: :void)
-    ((self hemlock-textstorage-text-view) color)
-  #+debug (#_NSLog #@"Set background color: %@" :id color)
-  (let* ((old (text-view-paren-highlight-color self)))
-    (unless (%null-ptr-p old)
-      (#/release old)))
-  (setf (text-view-paren-highlight-color self) (paren-highlight-background=
-color))
-  (call-next-method color))
-
 =

 =

 (defmethod remove-paren-highlight ((self hemlock-textstorage-text-view))
@@ -1790,6 +1779,7 @@
               (let* ((tv (#/autorelease (make-instance 'hemlock-text-view
                                                        :with-frame tv-frame
                                                        :text-container con=
tainer))))
+                (setf (text-view-paren-highlight-color tv) (paren-highligh=
t-background-color))
                 (#/setDelegate: layout tv)
                 (#/setMinSize: tv (ns:make-ns-size 0 (ns:ns-size-height co=
ntentsize)))
                 (#/setMaxSize: tv (ns:make-ns-size large-number-for-text l=
arge-number-for-text))