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>
Fri, 11 Oct 2002 17:44:36 +0200
changeset 3979 19f6f7395968
parent 3978 951776c3a9a3
child 3980 3f8311a42ca7
checkin from browser
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Oct 11 17:44:12 2002 +0200
+++ b/NewSystemBrowser.st	Fri Oct 11 17:44:36 2002 +0200
@@ -30802,6 +30802,9 @@
 "/            ].
             cls := singleSelectedMethod mclass.
             cls isNil ifTrue:[  
+                singleSelectedMethod wrapper isNil ifTrue:[
+                    ^ nil.
+                ].
                 cls := singleSelectedMethod wrapper mclass.
             ].
             redefiningClasses := cls allSubclasses select:[:cls | cls implements:singleSelectedMethod selector. ].
@@ -52750,7 +52753,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.425 2002-10-11 13:10:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.426 2002-10-11 15:44:36 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Oct 11 17:44:12 2002 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Oct 11 17:44:36 2002 +0200
@@ -30802,6 +30802,9 @@
 "/            ].
             cls := singleSelectedMethod mclass.
             cls isNil ifTrue:[  
+                singleSelectedMethod wrapper isNil ifTrue:[
+                    ^ nil.
+                ].
                 cls := singleSelectedMethod wrapper mclass.
             ].
             redefiningClasses := cls allSubclasses select:[:cls | cls implements:singleSelectedMethod selector. ].
@@ -52750,7 +52753,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.425 2002-10-11 13:10:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.426 2002-10-11 15:44:36 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool