--- a/SystemBrowser.st	Wed Jun 12 20:28:14 1996 +0200
+++ b/SystemBrowser.st	Thu Jun 13 00:14:15 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 11-jun-1996 at 16:32:26'                   !
+
 ApplicationModel subclass:#SystemBrowser
 	instanceVariableNames:'currentClass currentMethodCategory currentMethod currentSelector
 		showInstance actualClasslastMethodCategory aspect lockUpdates
@@ -594,13 +596,13 @@
             |nm|
 
             nm := aClass name.
-            aClass selectorArray do:[:aSelector |
+            aClass methodDictionary keys do:[:aSelector |
                 (aSelectorString match:aSelector) ifTrue:[
                     list add:(nm , ' ' , aSelector)
                 ]
             ].
             aClass isMeta ifFalse:[
-                aClass class selectorArray do:[:aSelector |
+                aClass class methodDictionary keys do:[:aSelector |
                     (aSelectorString match:aSelector) ifTrue:[
                         list add:(nm , 'class ' , aSelector)
                     ]
@@ -642,6 +644,7 @@
 
     "Modified: 4.9.1995 / 17:33:39 / claus"
     "Modified: 10.12.1995 / 16:59:03 / cg"
+    "Modified: 7.6.1996 / 08:45:17 / stefan"
 !
 
 browseImplementorsOf:aSelectorString under:aClass
@@ -1232,20 +1235,11 @@
         list := OrderedCollection new.
 
         checkBlock := [:cls |
-            |methodArray selectorArray| 
-
             (checkedClasses includes:cls) ifFalse:[
                 cls isObsolete ifTrue:[
                     Transcript showCR:'skipping obsolete class: ' , cls displayString
                 ] ifFalse:[
-                    methodArray := cls methodArray.
-                    selectorArray := cls selectorArray.
-
-                    1 to:methodArray size do:[:index |
-                        |method sel|
-
-                        method := methodArray at:index.
-                        sel := selectorArray at:index.
+                    cls methodDictionary keysAndValuesDo:[:sel :method |
                         (aBlock value:cls value:method value:sel) ifTrue:[
                             list add:(cls name , ' ' , sel)
                         ]
@@ -1275,6 +1269,7 @@
 
     "Created: 10.12.1995 / 15:34:57 / cg"
     "Modified: 18.5.1996 / 15:44:58 / cg"
+    "Modified: 7.6.1996 / 08:47:54 / stefan"
 !
 
 browseMethodsIn:aCollectionOfClasses where:aBlock title:title
@@ -1359,6 +1354,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.61 1996-05-29 15:39:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.62 1996-06-12 22:14:15 stefan Exp $'
 ! !
 SystemBrowser initialize!