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.
Do now show anonymous Java classes in class list.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 06 Aug 2014 15:15:29 +0200
changeset 14703 2a326863c4b9
parent 14702 bdad8f638ac6
child 14704 5de671ef2e61
Do now show anonymous Java classes in class list.
Tools__ClassList.st file | annotate | diff | comparison | revisions 
--- a/Tools__ClassList.st	Tue Aug 05 22:17:17 2014 +0200
+++ b/Tools__ClassList.st	Wed Aug 06 15:15:29 2014 +0200
@@ -1260,7 +1260,14 @@
                                                     at:owner 
                                                     ifAbsentPut:[SortedCollection new 
                                                                     sortBlock:[:a :b | (a name ? '?') < (b name ? '?')] ].
-                                    bucket add:cls.
+                                    "Do not show Java anonymous classes"
+                                    cls isJavaClass ifTrue:[
+                                        cls isAnonymous ifFalse:[
+                                            bucket add:cls.
+                                        ]
+                                    ] ifFalse:[
+                                        bucket add:cls.
+                                    ].
                                 ] ifFalse:[
                                     "Do not show Java anonymous classes"
                                     cls isJavaClass ifTrue:[
@@ -1328,7 +1335,7 @@
     ^ classesOrdered
 
     "Modified: / 04-07-2011 / 18:33:56 / cg"
-    "Modified (format): / 07-08-2011 / 16:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-08-2014 / 14:14:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 listOfClassesByInheritance
@@ -1381,7 +1388,14 @@
                         classesAlready add:cls.
                         (owner := cls owningClass) notNil ifTrue:[
                             bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | a name < b name] ].
-                                bucket add:cls.
+                                "Do not show Java anonymous classes"
+                                cls isJavaClass ifTrue:[
+                                    cls isAnonymous ifFalse:[
+                                        bucket add:cls.
+                                    ]
+                                ] ifFalse:[
+                                    bucket add:cls.
+                                ].
                             ] ifFalse:[
                                 cls isJavaClass ifTrue:[
                                     cls isAnonymous ifFalse:[
@@ -1443,7 +1457,7 @@
     "Modified: / 21-01-2008 / 19:43:04 / janfrog"
     "Modified: / 24-08-2010 / 20:17:07 / Jan Vrany <enter your email here>"
     "Created: / 04-07-2011 / 18:27:34 / cg"
-    "Modified: / 07-08-2011 / 16:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-08-2014 / 14:14:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 makeDependent
@@ -2095,10 +2109,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.83 2014-05-07 16:26:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.84 2014-08-06 13:15:29 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.83 2014-05-07 16:26:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.84 2014-08-06 13:15:29 vrany Exp $'
 ! !
hg/stx-libtool