handle NS.Classname (vw files)
authorClaus Gittinger <cg@exept.de>
Wed, 18 Jun 2003 17:44:33 +0200
changeset 1299 e7cb20de4618
parent 1298 3fc29a9e5554
child 1300 3847c8f8a4f5
handle NS.Classname (vw files)
ClassCommentChange.st
--- a/ClassCommentChange.st	Wed Jun 18 17:44:02 2003 +0200
+++ b/ClassCommentChange.st	Wed Jun 18 17:44:33 2003 +0200
@@ -89,7 +89,7 @@
 source
     "synthesize the changes source"
 
-    ^ self className , ' comment: ' , comment storeString
+    ^ self nameSpaceName , '::' , self className , ' comment: ' , comment storeString
 ! !
 
 !ClassCommentChange methodsFor:'printing & storing'!
@@ -98,7 +98,7 @@
     "append a user printed representation of the receiver to aStream.
      The format is suitable for a human - not meant to be read back."
 
-    aStream nextPutAll:className; nextPutAll:' comment:'
+    aStream nextPutAll:self nameSpaceName , '::' , self className; nextPutAll:' comment:'
 !
 
 printWithoutClassNameOn:aStream
@@ -119,5 +119,5 @@
 !ClassCommentChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.28 2003-01-26 14:05:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.29 2003-06-18 15:44:33 cg Exp $'
 ! !