diff -r 78803fe0a61c -r 94db803c2ea9 SmalltalkLanguage.st --- a/SmalltalkLanguage.st Tue Aug 21 19:51:30 2012 +0200 +++ b/SmalltalkLanguage.st Tue Aug 21 19:54:48 2012 +0200 @@ -148,66 +148,14 @@ "Created: / 16-08-2009 / 09:01:38 / Jan Vrany " ! ! -!SmalltalkLanguage methodsFor:'utilities - source code'! - -methodTemplate - "return a method definition template string" - - |s| - - s := TextStream on:''. - s nextPutAll: -'message selector and argument names - "comment stating purpose of this message" - - |temporaries| - - statement. - statement. - - " - optional: comment giving example use - " -'. - s cr. - s emphasis:(UserPreferences current commentEmphasisAndColor). - s nextPutAll: -'" - change the above template into real code; - remove this comment. - Then `accept'' either via the menu - or via the keyboard (usually CMD-A). - - You do not need this template; you can also - select any existing methods code, change it, - and finally `accept''. The method will then be - installed under the selector as defined in the - actual text - no matter which method is selected - in the browser. - - Or clear this text, type in the method from scratch - and install it with `accept''. -" -'. - ^ s contents -! - -versionMethodTemplateForCVS - "careful to avoid expansion by cvs here!!" - - ^ ('version\ ^ ''$' , 'Header$''') withCRs - - "Created: / 21-08-2012 / 11:52:27 / cg" -! ! - !SmalltalkLanguage class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.18 2012-08-21 10:02:46 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.19 2012-08-21 17:54:48 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.18 2012-08-21 10:02:46 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.19 2012-08-21 17:54:48 cg Exp $' ! version_SVN