--- a/SmalltalkChunkFileSourceWriter.st	Thu Apr 28 06:55:15 2016 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Tue May 03 11:13:43 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -65,10 +63,12 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'utilities - source code'!
 
 methodTemplate
+    <resource: #obsolete>
     "return a method definition template string"
 
     |s|
 
+    self obsoleteMethodWarning:'use codeGenerator'.
     s := (TextStream ? WriteStream) on:''.
     s nextPutAll:
 'message "selector and argument names"
@@ -111,9 +111,42 @@
     ^ s contents
 !
 
+methodTemplateForDocumentation
+    <resource: #obsolete>
+    "return a method definition template string"
+
+    |s|
+
+    self obsoleteMethodWarning:'use codeGenerator'.
+    s := (TextStream ? WriteStream) on:''.
+    s nextPutAll:
+'documentation
+'.
+    s emphasis:(UserPreferences current commentEmphasisAndColor).
+    s nextPutAll:(
+'"
+    comment describing this class.
+    you can disable the generation of this template by evaluating:
+         UserPreferences current showMethodTemplate:false
+
+    [instance variables:]
+        describe instance variables
+    [class variables:]
+        describe class variables
+    [see also:]
+        
+    [author:]
+        %1
+"
+' bindWith:(OperatingSystem getFullUserName)).
+    ^ s contents
+!
+
 versionMethodTemplateForCVS
+    <resource: #obsolete>
     "careful to avoid expansion by cvs here!!"
 
+    self obsoleteMethodWarning:'use methodTemplateForVersionMethodCVS'.
     ^ ('version_CVS\    ^ ''$' , 'Header$''') withCRs
 
     "Created: / 21-08-2012 / 11:52:27 / cg"