--- a/Tools__NamespaceList.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/Tools__NamespaceList.st	Sun Jan 29 15:33:37 2012 +0000
@@ -455,7 +455,7 @@
 !
 
 listOfNamespaces
-    |allNamespaces showAllNamespaces generator numClassesInChangeSet|
+    |allNamespaces showAllNamespaces generator|
 
     showAllNamespaces := false.    "/ only topLevel namespaces are shown
     showAllNamespaces := true.
@@ -479,6 +479,11 @@
 
             allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace].
         ].
+        "/JV@2011-12-04: Do not show java packages, they are all shown
+        "/when JAVA namespace is shown. Use #askFor: here, as eXept's libbasic
+        "/does not have #isJavaPackage
+        allNamespaces := allNamespaces reject:[:ns | ns askFor: #isJavaPackage ].
+
         allNamespaces := allNamespaces collect:[:ns | ns name].
     ] ifFalse:[
         generator := inGeneratorHolder value.
@@ -505,7 +510,7 @@
 
     "Created: / 18-02-2000 / 01:04:27 / cg"
     "Modified: / 25-02-2000 / 22:11:29 / cg"
-    "Modified: / 25-03-2010 / 18:23:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-12-2011 / 12:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 makeDependent
@@ -550,5 +555,5 @@
 !NamespaceList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.18 2011/07/20 18:19:08 cg Exp §'
-! !
\ No newline at end of file
+    ^ '§Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.19 2011/12/04 11:34:38 vrany Exp §'
+! !