--- a/BrowserView.st	Wed Apr 01 12:19:37 1998 +0200
+++ b/BrowserView.st	Wed Apr 01 13:19:32 1998 +0200
@@ -8972,6 +8972,7 @@
         coloringProcess := nil.
     ].
     currentMethod isNil ifTrue:[^ self].
+    UserPreferences current syntaxColoring ifFalse:[^ self].
 
     oldCodeList := codeView list.
 
@@ -8986,14 +8987,28 @@
         code := SyntaxHighlighter formatMethod:code in:cls.
         code emphasis ~= oldEmp ifTrue:[
             Processor activeProcess withPriority:(Processor activePriority + 2) do:[
-                codeView setContents:code.
+                code asCollectionOfLines keysAndValuesDo:[:lNr :line |
+                    |oldLine|
+
+                    oldLine := codeView listAt:lNr.
+                    oldLine notNil ifTrue:[
+                        oldLine emphasis ~= line emphasis ifTrue:[
+"/ Transcript showCR:oldLine emphasis.
+"/ Transcript showCR:line emphasis.
+                            codeView withoutRedrawAt:lNr put:line.
+                            codeView invalidateLine:lNr.
+                            "/ codeView at:lNr put:line                        
+                        ]
+                    ]
+                ].
+                "/ codeView setContents:code.
             ].
         ].
         coloringProcess := nil.
     ] forkAt:(Processor userBackgroundPriority).
 
     "Created: / 31.3.1998 / 14:25:29 / cg"
-    "Modified: / 31.3.1998 / 23:31:51 / cg"
+    "Modified: / 1.4.1998 / 13:17:14 / cg"
 !
 
 updateCodeView
@@ -11428,6 +11443,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.377 1998-04-01 09:22:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.378 1998-04-01 11:19:32 cg Exp $'
 ! !
 BrowserView initialize!