diff -r 81b78926f09a -r cb908d2ba02e SmalltalkCodeGeneratorTool.st --- 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