Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
skip obsolete classes when searching senders
authorca
Fri, 08 Mar 1996 12:41:56 +0100
changeset 435 fc07adc89bb4
parent 434 17d3ef307bc5
child 436 c553370b0a05
skip obsolete classes when searching senders
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SBrowser.st	Thu Mar 07 19:44:50 1996 +0100
+++ b/SBrowser.st	Fri Mar 08 12:41:56 1996 +0100
@@ -1107,19 +1107,23 @@
             |methodArray selectorArray| 
 
             (checkedClasses includes:cls) ifFalse:[
-                methodArray := cls methodArray.
-                selectorArray := cls selectorArray.
+                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|
+                    1 to:methodArray size do:[:index |
+                        |method sel|
 
-                    method := methodArray at:index.
-                    sel := selectorArray at:index.
-                    (aBlock value:cls value:method value:sel) ifTrue:[
-                        list add:(cls name , ' ' , sel)
-                    ]
-                ].
-                checkedClasses add:cls.
+                        method := methodArray at:index.
+                        sel := selectorArray at:index.
+                        (aBlock value:cls value:method value:sel) ifTrue:[ self halt.
+                            list add:(cls name , ' ' , sel)
+                        ]
+                    ].
+                    checkedClasses add:cls.
+                ]
             ]
         ].
 
@@ -1139,7 +1143,6 @@
             Processor yield
         ]
     ].
-
     ^ self browseMethods:list title:title
 
     "Created: 10.12.1995 / 15:34:57 / cg"
@@ -1227,6 +1230,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.50 1996-02-20 20:45:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.51 1996-03-08 11:41:56 ca Exp $'
 ! !
 SystemBrowser initialize!
--- a/SystemBrowser.st	Thu Mar 07 19:44:50 1996 +0100
+++ b/SystemBrowser.st	Fri Mar 08 12:41:56 1996 +0100
@@ -1107,19 +1107,23 @@
             |methodArray selectorArray| 
 
             (checkedClasses includes:cls) ifFalse:[
-                methodArray := cls methodArray.
-                selectorArray := cls selectorArray.
+                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|
+                    1 to:methodArray size do:[:index |
+                        |method sel|
 
-                    method := methodArray at:index.
-                    sel := selectorArray at:index.
-                    (aBlock value:cls value:method value:sel) ifTrue:[
-                        list add:(cls name , ' ' , sel)
-                    ]
-                ].
-                checkedClasses add:cls.
+                        method := methodArray at:index.
+                        sel := selectorArray at:index.
+                        (aBlock value:cls value:method value:sel) ifTrue:[ self halt.
+                            list add:(cls name , ' ' , sel)
+                        ]
+                    ].
+                    checkedClasses add:cls.
+                ]
             ]
         ].
 
@@ -1139,7 +1143,6 @@
             Processor yield
         ]
     ].
-
     ^ self browseMethods:list title:title
 
     "Created: 10.12.1995 / 15:34:57 / cg"
@@ -1227,6 +1230,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.50 1996-02-20 20:45:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.51 1996-03-08 11:41:56 ca Exp $'
 ! !
 SystemBrowser initialize!
hg/stx-libtool