--- a/Tools__MethodRewriter.st	Mon Jul 04 17:24:40 2011 +0200
+++ b/Tools__MethodRewriter.st	Mon Jul 04 17:42:08 2011 +0200
@@ -28,13 +28,13 @@
 "{ NameSpace: Tools }"
 
 ApplicationModel subclass:#MethodRewriter
-        instanceVariableNames:'replaceTextView classes searchTextView actionInProgresHolder
-                infoHolder progressHolder templateSearchPatternHolder
-                templateReplacePatternHolder selectedTemplateIndex templates
-                selectedTabIndex selectedClassesHolder'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Interface-MethodRewriter'
+	instanceVariableNames:'replaceTextView classes searchTextView actionInProgresHolder
+		infoHolder progressHolder templateSearchPatternHolder
+		templateReplacePatternHolder selectedTemplateIndex templates
+		selectedTabIndex selectedClassesHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-MethodRewriter'
 !
 
 !MethodRewriter class methodsFor:'documentation'!
@@ -67,12 +67,12 @@
 "
 ! !
 
-!MethodRewriter class methodsFor:'examples'!
+!MethodRewriter class methodsFor:'example templates'!
 
 templateReplaceAtIfAbsentByAtAifAbsentPut
 
     ^Array 
-        with:'Replace Dictionary>>#at:ifAbsent: by #at:ifAbsentPut:'
+        with:('Replace ','Dictionary>>#at:ifAbsent:'allBold,' by ','#at:ifAbsentPut:' allBold)
 with: '``@dictionary
     at: ``@key
     ifAbsent:
@@ -88,12 +88,13 @@
 
     "Created: / 12-12-2007 / 11:08:01 / janfrog"
     "Modified: / 17-02-2008 / 08:35:17 / janfrog"
+    "Modified: / 04-07-2011 / 17:41:21 / cg"
 !
 
 templateReplaceIsNilOrEmptyCollectionByIsEmptyOrNil
 
     ^Array 
-        with:'Replace self halt by self error:''was: self halt'''
+        with:('Replace ','isNilOrEmptyCollection' allBold,' by ','isEmptyOrNil' allBold)
         with: '@receiver isNilOrEmptyCollection'
         with: '@receiver isEmptyOrNil'''
 
@@ -103,12 +104,13 @@
 templateReplaceSelfHaltBySelfError
 
     ^Array 
-        with:'Replace self halt by self error:''was: self halt'''
+        with:('Replace ','self halt'allBold,' by ','self error:''was: self halt''' allBold)
         with: 'self halt'
         with: 'self error:''was: self error'''
 
     "Created: / 12-12-2007 / 11:29:51 / janfrog"
     "Modified: / 17-02-2008 / 08:35:09 / janfrog"
+    "Modified: / 04-07-2011 / 17:41:33 / cg"
 !
 
 templates
@@ -1020,7 +1022,7 @@
 !MethodRewriter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.8 2011-07-03 20:02:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.9 2011-07-04 15:42:08 cg Exp $'
 !
 
 version_SVN