NameSpace.st
changeset 21762 77e522107721
parent 20805 5e4783d33953
child 23064 e3b784caf101
--- a/NameSpace.st	Wed May 17 16:50:23 2017 +0200
+++ b/NameSpace.st	Wed May 17 16:50:25 2017 +0200
@@ -617,7 +617,7 @@
 
 displayOn:aGCOrStream
     "Compatibility
-     append a printed desription on some stream (Dolphin,  Squeak)
+     append a printed description on some stream (Dolphin,  Squeak)
      OR:
      display the receiver in a graphicsContext at 0@0 (ST80).
      This method allows for any object to be displayed in some view
@@ -629,16 +629,18 @@
         ^ super displayOn:aGCOrStream.
     ].
 
-    "return a printed represenation - here, a reminder is appended,
+    "return a printed representation - here, a reminder is appended,
      that this is not a regular class"
 
     self == NameSpace ifTrue:[
         super displayOn:aGCOrStream.
     ] ifFalse:[
-        aGCOrStream 
+        aGCOrStream
             nextPutAll:self name;
             nextPutAll:' (* NameSpace *)'.
     ].
+
+    "Modified (comment): / 17-05-2017 / 16:49:12 / mawalch"
 ! !
 
 !NameSpace class methodsFor:'private'!