--- a/BrowserView.st	Fri Sep 28 17:54:48 2001 +0200
+++ b/BrowserView.st	Fri Sep 28 18:08:16 2001 +0200
@@ -13606,7 +13606,7 @@
 
     self warnLabel:whatHappened.
     codeView contents:(codeView contents asText 
-			emphasizeAllWith:(#color->Color red))
+                        emphasizeAllWith:(SystemBrowser emphasisForObsoleteCode))
 
     "Modified: / 17.6.1998 / 12:40:46 / cg"
     "Created: / 17.6.1998 / 12:42:12 / cg"
@@ -14597,31 +14597,31 @@
 !BrowserView methodsFor:'variable stuff'!
 
 hilightEntryFor:entry
-    "helper; given a list itme, highlight it"
+    "helper; given a list item, highlight it"
 
     |e|
 
     methodCategoryListView font bold ifTrue:[
-	"/ already bold; use different color then
-	methodCategoryListView foregroundColor brightness > 0.5 ifTrue:[
-	    methodCategoryListView backgroundColor brightness < 0.25 ifTrue:[
-		e := #color->Color blue
-	    ] ifFalse:[
-		e := #color->Color black
-	    ]
-	] ifFalse:[
-	    methodCategoryListView backgroundColor brightness > 0.75 ifTrue:[
-		e := #color->Color red darkened
-	    ] ifFalse:[
-		e := #color->Color white.
-	    ]
-	]
+        "/ already bold; use different color then
+        methodCategoryListView foregroundColor brightness > 0.5 ifTrue:[
+            methodCategoryListView backgroundColor brightness < 0.25 ifTrue:[
+                e := #color->Color blue
+            ] ifFalse:[
+                e := #color->Color black
+            ]
+        ] ifFalse:[
+            methodCategoryListView backgroundColor brightness > 0.75 ifTrue:[
+                e := #color->Color red darkened
+            ] ifFalse:[
+                e := #color->Color white.
+            ]
+        ]
     ] ifFalse:[
-	e := #bold.
+        e := #bold.
     ].
 
     entry isString ifTrue:[
-	^ entry asText emphasizeAllWith:e.
+        ^ entry asText emphasizeAllWith:e.
     ].
     ^ entry copy string:(entry string asText emphasizeAllWith:e)
 
@@ -14908,6 +14908,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.679 2001-09-24 09:46:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.680 2001-09-28 16:08:16 cg Exp $'
 ! !
 BrowserView initialize!