*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 12 Apr 2000 23:35:32 +0200
changeset 2653 c8b1c4d0b9af
parent 2652 6cd9b4646289
child 2654 0c16243d7958
*** empty log message ***
MemoryUsageView.st
ProjectView.st
--- a/MemoryUsageView.st	Tue Apr 11 12:20:31 2000 +0200
+++ b/MemoryUsageView.st	Wed Apr 12 23:35:32 2000 +0200
@@ -116,7 +116,7 @@
              special kludge
             "
             class isSymbol ifTrue:[
-                class == #Namespace ifFalse:[
+                class == #NameSpace ifFalse:[
                     self information:'classes are directly refered to by Smalltalk'.
                     ^ self.
                 ].
@@ -151,7 +151,7 @@
 	     special kludge
 	    "
 	    class isSymbol ifTrue:[
-		class == #Namespace ifFalse:[
+		class == #NameSpace ifFalse:[
 		    ^ SystemBrowser open
 		].
 		class := (Smalltalk at:class) class.
@@ -195,7 +195,7 @@
              special kludge
             "
             class isSymbol ifTrue:[
-                class == #Namespace ifFalse:[
+                class == #NameSpace ifFalse:[
                     ^ SystemBrowser open
                 ].
                 class := (Smalltalk at:class) class.
@@ -427,7 +427,7 @@
                             cls == #ObsoleteClass ifTrue:[
                                 '<all obsolete classes>'
                             ] ifFalse:[
-                                cls == #Namespace ifTrue:[
+                                cls == #NameSpace ifTrue:[
                                     '<all namespaces>'
                                 ] ifFalse:[
                                     cls isJavaClass ifTrue:[
@@ -540,7 +540,7 @@
                                 and:[o ~~ NameSpace
                                 and:[o ~~ Smalltalk]])
                                 ifTrue:[
-                                    class := #Namespace
+                                    class := #NameSpace
                                 ] ifFalse:[
                                     class := #Class
                                 ]
@@ -587,5 +587,5 @@
 !MemoryUsageView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.37 2000-04-07 08:06:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.38 2000-04-12 21:35:32 cg Exp $'
 ! !
--- a/ProjectView.st	Tue Apr 11 12:20:31 2000 +0200
+++ b/ProjectView.st	Wed Apr 12 23:35:32 2000 +0200
@@ -72,7 +72,7 @@
 
     [see also:]
 	Project
-	Namespace
+	NameSpace
 	CVSSourceCodemanager
 "
 
@@ -430,7 +430,7 @@
     self topView withWaitCursorDo:[
         |box allNameSpaces|
 
-        allNameSpaces := (Namespace allNamespaces 
+        allNameSpaces := (NameSpace allNamespaces 
                             select:[:ns | ns isTopLevelNamespace])
                                 collect:[:ns | ns name].
 
@@ -444,7 +444,7 @@
             Class nameSpaceQuerySignal 
             answer:Smalltalk
             do:[
-                ns := Namespace name:nsName.
+                ns := NameSpace name:nsName.
             ].    
             myProject defaultNameSpace:ns
         ].
@@ -467,7 +467,7 @@
         (allClasses := Smalltalk allClasses) do:[:aClass |
             |p|
 
-            (aClass isNamespace 
+            (aClass isNameSpace 
 "/            or:[aClass isLoaded not]
             ) ifFalse:[
                 p := aClass package.
@@ -768,5 +768,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.49 2000-02-02 18:10:12 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.50 2000-04-12 21:35:32 cg Exp $'
 ! !