--- 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'!