--- a/SystemBrowser.st	Wed Jan 23 23:42:08 2002 +0100
+++ b/SystemBrowser.st	Thu Jan 24 19:30:12 2002 +0100
@@ -281,6 +281,46 @@
     ^ 15
 !
 
+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.
+ 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
+!
+
 visitedHistoryMaxSize
     "the maximum number of remembered visited-class-history entries"
 
@@ -3738,6 +3778,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.146 2001-12-17 10:25:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.147 2002-01-24 18:29:13 cg Exp $'
 ! !
 SystemBrowser initialize!