--- a/SmalltalkCodeGeneratorTool.st	Thu Nov 24 22:03:16 2016 +0000
+++ b/SmalltalkCodeGeneratorTool.st	Thu Nov 24 22:14:31 2016 +0000
@@ -338,7 +338,14 @@
     s emphasis:(UserPreferences current commentEmphasisAndColor).
     s nextPutAll:
 '"
- change the above template into real code;
+ This is an autogenerated method template.
+
+ If you don''t like this method template to appear,
+ disable it either via the global or browser''s settings dialog,
+ or by evaluating:
+     UserPreferences current showMethodTemplate:false
+
+ Change the above template into real code;
  remove this comment.
  Then `accept'' either via the menu
  or via the keyboard (usually CMD-A).
@@ -352,18 +359,15 @@
 
  Or clear this text, type in the method from scratch
  and install it with `accept''.
-
- If you don''t like this method template to appear,
- disable it either via the global or browser''s settings dialog,
- or by evaluating:
-     UserPreferences current showMethodTemplate:false
 "
 '.
     ^ s contents
+
+    "Modified: / 18-11-2016 / 01:34:20 / cg"
 !
 
 methodTemplateForDocumentation
-    "return a method definition template string"
+    "return a documentation method definition template string"
 
     |s|
 
@@ -374,9 +378,11 @@
     s emphasis:(UserPreferences current commentEmphasisAndColor).
     s nextPutAll:(
 '"
+    This is an autogenerated documentation template from ',Timestamp now printString,'.
+    You can disable the generation of this template via the settings or by evaluating:
+         UserPreferences current showMethodTemplate:false
+
     comment describing this class.
-    you can disable the generation of this template by evaluating:
-         UserPreferences current showMethodTemplate:false
 
     [instance variables:]
         describe instance variables
@@ -389,6 +395,41 @@
 "
 ' bindWith:(OperatingSystem getFullUserName)).
     ^ s contents
+
+    "Modified: / 18-11-2016 / 01:32:06 / cg"
+    "Modified (comment): / 18-11-2016 / 10:52:32 / cg"
+!
+
+methodTemplateForPackageDocumentation
+    "return a documentation-method definition template string for packages"
+
+    |s|
+
+    s := (TextStream ? WriteStream) on:''.
+    s nextPutAll:
+'documentation
+'.
+    s emphasis:(UserPreferences current commentEmphasisAndColor).
+    s nextPutAll:(
+'"
+    This is an autogenerated documentation template from ',Timestamp now printString,'.
+    You can disable the generation of this template via the settings or by evaluating:
+         UserPreferences current showMethodTemplate:false
+
+    Package Documentation
+
+    [see also:]
+
+    [author:]
+        %1
+
+    [primary maintainer:]
+        %1
+"
+' bindWith:(OperatingSystem getFullUserName)).
+    ^ s contents
+
+    "Created: / 18-11-2016 / 10:49:08 / cg"
 !
 
 methodTemplateForVersionMethodCVS