ClassDescription.st
branchjv
changeset 18976 2cef520578de
parent 18768 99079a967eb0
parent 18975 f2a31973b3b3
child 19277 e9182dc00c6d
--- a/ClassDescription.st	Tue Dec 01 07:14:07 2015 +0000
+++ b/ClassDescription.st	Sat Dec 05 06:38:54 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2486,18 +2484,18 @@
 !ClassDescription methodsFor:'printOut'!
 
 nameWithNameSpacePrefix
-    "return my names printString,
+    "return my name's printString,
      with nameSpace prefix (even if its the Smalltalk namespace)"
 
     |nm owner|
 
     (owner := self owningClass) notNil ifTrue:[
-	^ (owner nameWithNameSpacePrefix , '::' , self nameWithoutPrefix)
+        ^ (owner nameWithNameSpacePrefix , '::' , self nameWithoutPrefix)
     ].
 
     nm := self name.
     self nameSpace == Smalltalk ifTrue:[
-	nm := 'Smalltalk::' , nm
+        nm := 'Smalltalk::' , nm
     ].
     ^ nm