--- a/Tools__TagsBrowser.st	Wed Jul 09 03:57:42 2014 +0200
+++ b/Tools__TagsBrowser.st	Wed Jul 09 04:10:00 2014 +0200
@@ -2718,7 +2718,11 @@
 
     label := item printString ? ''.
     (inSelection := self isInSelection:anIndex) ifTrue:[
-        self paint:hilightFgColor on:hilightBgColor.
+        self hasFocus ifTrue:[    
+            self paint:hilightFgColor on:hilightBgColor.
+        ] ifFalse:[
+            self paint:hilightFgColorNoFocus on:hilightBgColorNoFocus
+        ].
         label := label string.   "/ to avoid printing blue on blue
     ] ifFalse:[
         self paint:fgColor on:bgColor.
@@ -2761,8 +2765,8 @@
      wL "{ Class:SmallInteger }"
     |
     (item := list at:lnNr ifAbsent:nil) isNil ifTrue:[
-	"/ list might change during drawing; item no longer visible
-	^ self
+        "/ list might change during drawing; item no longer visible
+        ^ self
     ].
 
     "/ CLEAR THE BACKGROUND
@@ -2777,28 +2781,28 @@
 
     wL > 0 ifFalse:[^ self].
 
-    self paint:hilightBgColor.
+    self paint:(self hasFocus ifTrue:[hilightBgColor] ifFalse:[hilightBgColorNoFocus]).
     self fillRectangleX:x0 y:y0 width:wL height:hL.
 
     "/ DRAW THE FRAME
 
     hilightFrameColor notNil ifTrue:[
-	hilightLevel == 0 ifTrue:[
-	    self paint:hilightFrameColor.
-	    self displayRectangleX:x0 y:y0 width:wL height:hL.
-	  ^ self.
-	]
+        hilightLevel == 0 ifTrue:[
+            self paint:hilightFrameColor.
+            self displayRectangleX:x0 y:y0 width:wL height:hL.
+          ^ self.
+        ]
     ] ifFalse:[
-	hilightStyle == #motif ifTrue:[
-	    self paint:bgColor.
-	    y1 := y0 + 1.
-	    self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2.
-	]
+        hilightStyle == #motif ifTrue:[
+            self paint:bgColor.
+            y1 := y0 + 1.
+            self displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2.
+        ]
     ].
 
     hilightLevel ~~ 0 ifTrue:[
-	"/ draw edge
-	self drawEdgesForX:x0 y:y0 width:wL height:hL level:hilightLevel.
+        "/ draw edge
+        self drawEdgesForX:x0 y:y0 width:wL height:hL level:hilightLevel.
     ]
 ! !
 
@@ -2928,14 +2932,14 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.59 2014-07-08 21:30:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.60 2014-07-09 02:10:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.59 2014-07-08 21:30:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.60 2014-07-09 02:10:00 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagsBrowser.st,v 1.59 2014-07-08 21:30:19 cg Exp $'
+    ^ '$Id: Tools__TagsBrowser.st,v 1.60 2014-07-09 02:10:00 cg Exp $'
 ! !