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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 17 Sep 2002 11:10:19 +0200
changeset 3876 ca67dfbbb1db
parent 3875 40e2e851a32c
child 3877 ac864436244f
checkin from browser
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Sat Sep 14 19:31:42 2002 +0200
+++ b/NewSystemBrowser.st	Tue Sep 17 11:10:19 2002 +0200
@@ -30727,7 +30727,7 @@
 !
 
 methodRedefinitionInfo
-    |singleSelectedMethod redefiningClasses msg|
+    |singleSelectedMethod redefiningClasses msg cls|
 
     self codeInfoVisible value ifTrue:[
         singleSelectedMethod := self theSingleSelectedMethod.
@@ -30735,11 +30735,11 @@
 "/            singleSelectedMethod isWrapped ifTrue:[
 "/                singleSelectedMethod := singleSelectedMethod originalMethod ? singleSelectedMethod.
 "/            ].
-            redefiningClasses := singleSelectedMethod mclass 
-                                 allSubclasses 
-                                 select:[:cls |
-                                        cls implements:singleSelectedMethod selector.
-                                 ].
+            cls := singleSelectedMethod mclass.
+            cls isNil ifTrue:[  
+                cls := singleSelectedMethod wrapper mclass.
+            ].
+            redefiningClasses := cls allSubclasses select:[:cls | cls implements:singleSelectedMethod selector. ].
                 
             redefiningClasses size > 0 ifTrue:[
                 "/msg := singleSelectedMethod selector allBold , '- '.
@@ -52675,6 +52675,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.408 2002-09-12 10:05:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.409 2002-09-17 09:10:19 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Sat Sep 14 19:31:42 2002 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Sep 17 11:10:19 2002 +0200
@@ -30727,7 +30727,7 @@
 !
 
 methodRedefinitionInfo
-    |singleSelectedMethod redefiningClasses msg|
+    |singleSelectedMethod redefiningClasses msg cls|
 
     self codeInfoVisible value ifTrue:[
         singleSelectedMethod := self theSingleSelectedMethod.
@@ -30735,11 +30735,11 @@
 "/            singleSelectedMethod isWrapped ifTrue:[
 "/                singleSelectedMethod := singleSelectedMethod originalMethod ? singleSelectedMethod.
 "/            ].
-            redefiningClasses := singleSelectedMethod mclass 
-                                 allSubclasses 
-                                 select:[:cls |
-                                        cls implements:singleSelectedMethod selector.
-                                 ].
+            cls := singleSelectedMethod mclass.
+            cls isNil ifTrue:[  
+                cls := singleSelectedMethod wrapper mclass.
+            ].
+            redefiningClasses := cls allSubclasses select:[:cls | cls implements:singleSelectedMethod selector. ].
                 
             redefiningClasses size > 0 ifTrue:[
                 "/msg := singleSelectedMethod selector allBold , '- '.
@@ -52675,6 +52675,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.408 2002-09-12 10:05:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.409 2002-09-17 09:10:19 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool