--- a/Tools_BrowserList.st	Mon Mar 03 10:37:28 2008 +0100
+++ b/Tools_BrowserList.st	Mon Mar 03 10:37:40 2008 +0100
@@ -816,23 +816,23 @@
 !
 
 fetchIcon:name selector:fetchSelector
-    "answer an icon to mark breakPointed methods"
+    "answer an icon to mark methods"
 
     icons isNil ifTrue:[icons := IdentityDictionary new].
     Icons isNil ifTrue:[Icons := IdentityDictionary new].
 
     ^ icons at:name ifAbsentPut:[
-	|fh icn h|
+        |fh icn h|
 
-	(icn := Icons at:name ifAbsent:nil) isNil ifTrue: [
-	    Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display).
-	    icn clearMaskedPixels.
-	].
-	h := icn height.
-	h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[
-	    icn := icn magnifiedBy:(fh / h)
-	].
-	icn onDevice:device
+        (icn := Icons at:name ifAbsent:nil) isNil ifTrue: [
+            Icons at:name put:(icn := (SystemBrowser perform:fetchSelector) onDevice:Display).
+            icn clearMaskedPixels.
+        ].
+        h := icn height.
+        h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[
+            icn := icn magnifiedBy:(fh / h)
+        ].
+        icn onDevice:device
       ]
 
     "
@@ -873,6 +873,13 @@
     ^ self fetchIcon:#image selector:#imageIcon
 !
 
+instrumentationIcon
+    "answer an icon to mark instrumented methods"
+
+"/    ^ self fetchIcon:#watch selector:#watchIcon
+    ^ self fetchIcon:#instrumentation selector:#instrumentationIcon
+!
+
 menuIcon
     "answer an icon to mark menu spec methods"
 
@@ -1337,5 +1344,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.22 2007-07-03 14:00:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.23 2008-03-03 09:37:40 cg Exp $'
 ! !