--- a/SBrowser.st	Mon Jul 15 11:53:46 1996 +0200
+++ b/SBrowser.st	Mon Jul 15 12:01:30 1996 +0200
@@ -642,15 +642,15 @@
             |nm|
 
             nm := aClass name.
-            aClass methodDictionary keys do:[:aSelector |
+            aClass methodDictionary keysAndValuesDo:[:aSelector :aMethod |
                 (aSelectorString match:aSelector) ifTrue:[
-                    list add:(nm , ' ' , aSelector)
+                    list add:aMethod "/ (nm , ' ' , (aMethod printStringForBrowserWithSelector:aSelector))
                 ]
             ].
             aClass isMeta ifFalse:[
-                aClass class methodDictionary keys do:[:aSelector |
+                aClass class methodDictionary keysAndValuesDo:[:aSelector :aMethod |
                     (aSelectorString match:aSelector) ifTrue:[
-                        list add:(nm , ' class ' , aSelector)
+                        list add:aMethod "/ (nm , ' class ' , (aMethod printStringForBrowserWithSelector:aSelector))
                     ]
                 ]
             ]
@@ -665,15 +665,17 @@
         ].
 
         aCollectionOfClasses do:[:aClass |
-            |nm|
+            |nm mthd|
 
             nm := aClass name.
             (aClass implements:sel) ifTrue:[
-                list add:(nm , ' ' , aSelectorString)
+                mthd := aClass compiledMethodAt:sel.
+                list add:mthd "/ (nm , ' ' , (mthd printStringForBrowserWithSelector:sel))
             ].
             aClass isMeta ifFalse:[
                 (aClass class implements:sel) ifTrue:[
-                    list add:(nm , ' class ' , aSelectorString)
+                    mthd := aClass class compiledMethodAt:sel.
+                    list add:mthd "/ (nm , ' class ' , (mthd printStringForBrowserWithSelector:sel))
                 ]
             ]
         ]
@@ -689,8 +691,8 @@
     "
 
     "Modified: 4.9.1995 / 17:33:39 / claus"
-    "Modified: 10.12.1995 / 16:59:03 / cg"
     "Modified: 19.6.1996 / 14:19:02 / stefan"
+    "Modified: 15.7.1996 / 11:49:35 / cg"
 !
 
 browseImplementorsOf:aSelectorString under:aClass
@@ -1255,7 +1257,7 @@
             |who|
 
             who := entry who.
-            (who at:1) name , ' ' , (who at:2)
+            (who at:1) name , ' ' , (entry printStringForBrowserWithSelector:(who at:2))
         ]
       ].
         
@@ -1282,8 +1284,8 @@
 
     "
 
-    "Modified: 12.12.1995 / 16:34:27 / cg"
     "Modified: 17.6.1996 / 17:07:46 / stefan"
+    "Modified: 15.7.1996 / 11:47:11 / cg"
 !
 
 browseMethodsFrom:aClass where:aBlock title:title
@@ -1318,7 +1320,7 @@
                 ] ifFalse:[
                     cls methodDictionary keysAndValuesDo:[:sel :method |
                         (aBlock value:cls value:method value:sel) ifTrue:[
-                            list add:(cls name , ' ' , sel)
+                            list add:method "/ (cls name , ' ' , sel)
                         ]
                     ].
                     checkedClasses add:cls.
@@ -1345,8 +1347,8 @@
     ^ self browseMethods:list title:title
 
     "Created: 10.12.1995 / 15:34:57 / cg"
-    "Modified: 18.5.1996 / 15:44:58 / cg"
     "Modified: 7.6.1996 / 08:47:54 / stefan"
+    "Modified: 15.7.1996 / 11:48:10 / cg"
 !
 
 browseMethodsIn:aCollectionOfClasses where:aBlock title:title
@@ -1431,6 +1433,6 @@
 !SystemBrowser  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.66 1996-07-10 10:55:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.67 1996-07-15 10:01:30 cg Exp $'
 ! !
 SystemBrowser initialize!

--- a/SystemBrowser.st	Mon Jul 15 11:53:46 1996 +0200
+++ b/SystemBrowser.st	Mon Jul 15 12:01:30 1996 +0200
@@ -642,15 +642,15 @@
             |nm|
 
             nm := aClass name.
-            aClass methodDictionary keys do:[:aSelector |
+            aClass methodDictionary keysAndValuesDo:[:aSelector :aMethod |
                 (aSelectorString match:aSelector) ifTrue:[
-                    list add:(nm , ' ' , aSelector)
+                    list add:aMethod "/ (nm , ' ' , (aMethod printStringForBrowserWithSelector:aSelector))
                 ]
             ].
             aClass isMeta ifFalse:[
-                aClass class methodDictionary keys do:[:aSelector |
+                aClass class methodDictionary keysAndValuesDo:[:aSelector :aMethod |
                     (aSelectorString match:aSelector) ifTrue:[
-                        list add:(nm , ' class ' , aSelector)
+                        list add:aMethod "/ (nm , ' class ' , (aMethod printStringForBrowserWithSelector:aSelector))
                     ]
                 ]
             ]
@@ -665,15 +665,17 @@
         ].
 
         aCollectionOfClasses do:[:aClass |
-            |nm|
+            |nm mthd|
 
             nm := aClass name.
             (aClass implements:sel) ifTrue:[
-                list add:(nm , ' ' , aSelectorString)
+                mthd := aClass compiledMethodAt:sel.
+                list add:mthd "/ (nm , ' ' , (mthd printStringForBrowserWithSelector:sel))
             ].
             aClass isMeta ifFalse:[
                 (aClass class implements:sel) ifTrue:[
-                    list add:(nm , ' class ' , aSelectorString)
+                    mthd := aClass class compiledMethodAt:sel.
+                    list add:mthd "/ (nm , ' class ' , (mthd printStringForBrowserWithSelector:sel))
                 ]
             ]
         ]
@@ -689,8 +691,8 @@
     "
 
     "Modified: 4.9.1995 / 17:33:39 / claus"
-    "Modified: 10.12.1995 / 16:59:03 / cg"
     "Modified: 19.6.1996 / 14:19:02 / stefan"
+    "Modified: 15.7.1996 / 11:49:35 / cg"
 !
 
 browseImplementorsOf:aSelectorString under:aClass
@@ -1255,7 +1257,7 @@
             |who|
 
             who := entry who.
-            (who at:1) name , ' ' , (who at:2)
+            (who at:1) name , ' ' , (entry printStringForBrowserWithSelector:(who at:2))
         ]
       ].
         
@@ -1282,8 +1284,8 @@
 
     "
 
-    "Modified: 12.12.1995 / 16:34:27 / cg"
     "Modified: 17.6.1996 / 17:07:46 / stefan"
+    "Modified: 15.7.1996 / 11:47:11 / cg"
 !
 
 browseMethodsFrom:aClass where:aBlock title:title
@@ -1318,7 +1320,7 @@
                 ] ifFalse:[
                     cls methodDictionary keysAndValuesDo:[:sel :method |
                         (aBlock value:cls value:method value:sel) ifTrue:[
-                            list add:(cls name , ' ' , sel)
+                            list add:method "/ (cls name , ' ' , sel)
                         ]
                     ].
                     checkedClasses add:cls.
@@ -1345,8 +1347,8 @@
     ^ self browseMethods:list title:title
 
     "Created: 10.12.1995 / 15:34:57 / cg"
-    "Modified: 18.5.1996 / 15:44:58 / cg"
     "Modified: 7.6.1996 / 08:47:54 / stefan"
+    "Modified: 15.7.1996 / 11:48:10 / cg"
 !
 
 browseMethodsIn:aCollectionOfClasses where:aBlock title:title
@@ -1431,6 +1433,6 @@
 !SystemBrowser  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.66 1996-07-10 10:55:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.67 1996-07-15 10:01:30 cg Exp $'
 ! !
 SystemBrowser initialize!