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.
changed:
authorClaus Gittinger <cg@exept.de>
Tue, 18 May 2010 15:19:43 +0200
changeset 9487 34b00ad2a79b
parent 9486 fb1fc792752e
child 9488 2035181e2ec5
changed: #classMenuCheckEach: #spawnMethodBrowserFor:in:label:perClassInfo:perMethodInfo:sortBy:select:
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Tue May 18 15:19:24 2010 +0200
+++ b/NewSystemBrowser.st	Tue May 18 15:19:43 2010 +0200
@@ -19070,7 +19070,7 @@
         badClassInfo := checker badClassInfo.
         badMethodInfo := checker badMethodInfo.
         (badMethodInfo isEmptyOrNil and:[ badClassInfo isEmptyOrNil ]) ifTrue:[
-            self information:'Nothing special found'.
+            "/ self information:'Nothing special found'.
             badClassInfoHolder value:nil.
             badMethodInfoHolder value:nil.
             #().
@@ -19096,8 +19096,8 @@
         perMethodInfo:badMethodInfoHolder
         sortBy:#class
 
-    "Created: / 18.8.2000 / 22:43:56 / cg"
-    "Modified: / 18.8.2000 / 22:58:53 / cg"
+    "Created: / 18-08-2000 / 22:43:56 / cg"
+    "Modified: / 18-05-2010 / 15:13:52 / cg"
 !
 
 classMenuCheckErrors
@@ -33554,7 +33554,8 @@
     ] ifFalse:[
         theMethodList := methodsOrMethodGeneratorBlock copy.
     ].
-    theMethodList isEmptyOrNil ifTrue:[
+
+    (theMethodList isEmptyOrNil and:[perClassInfoHolder value isEmptyOrNil]) ifTrue:[
         self information:'Nothing special found'.
         ^ self.
     ].
@@ -33685,7 +33686,7 @@
             ]
         ]
 
-    "Modified: / 5.11.2001 / 17:08:45 / cg"
+    "Modified: / 18-05-2010 / 15:15:27 / cg"
 !
 
 spawnMethodBrowserFor:methods in:where label:labelOrNil perMethodInfo:infoDictionaryOrNil sortBy:sortHow
@@ -44474,11 +44475,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1460 2010-05-11 16:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1461 2010-05-18 13:19:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1460 2010-05-11 16:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1461 2010-05-18 13:19:43 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Tue May 18 15:19:24 2010 +0200
+++ b/Tools__NewSystemBrowser.st	Tue May 18 15:19:43 2010 +0200
@@ -19070,7 +19070,7 @@
         badClassInfo := checker badClassInfo.
         badMethodInfo := checker badMethodInfo.
         (badMethodInfo isEmptyOrNil and:[ badClassInfo isEmptyOrNil ]) ifTrue:[
-            self information:'Nothing special found'.
+            "/ self information:'Nothing special found'.
             badClassInfoHolder value:nil.
             badMethodInfoHolder value:nil.
             #().
@@ -19096,8 +19096,8 @@
         perMethodInfo:badMethodInfoHolder
         sortBy:#class
 
-    "Created: / 18.8.2000 / 22:43:56 / cg"
-    "Modified: / 18.8.2000 / 22:58:53 / cg"
+    "Created: / 18-08-2000 / 22:43:56 / cg"
+    "Modified: / 18-05-2010 / 15:13:52 / cg"
 !
 
 classMenuCheckErrors
@@ -33554,7 +33554,8 @@
     ] ifFalse:[
         theMethodList := methodsOrMethodGeneratorBlock copy.
     ].
-    theMethodList isEmptyOrNil ifTrue:[
+
+    (theMethodList isEmptyOrNil and:[perClassInfoHolder value isEmptyOrNil]) ifTrue:[
         self information:'Nothing special found'.
         ^ self.
     ].
@@ -33685,7 +33686,7 @@
             ]
         ]
 
-    "Modified: / 5.11.2001 / 17:08:45 / cg"
+    "Modified: / 18-05-2010 / 15:15:27 / cg"
 !
 
 spawnMethodBrowserFor:methods in:where label:labelOrNil perMethodInfo:infoDictionaryOrNil sortBy:sortHow
@@ -44474,11 +44475,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1460 2010-05-11 16:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1461 2010-05-18 13:19:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1460 2010-05-11 16:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1461 2010-05-18 13:19:43 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool