--- a/Tools__MethodRewriter.st Mon May 09 10:05:31 2016 +0200
+++ b/Tools__MethodRewriter.st Mon May 09 10:05:33 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
Copyright (c) 2009-2010 eXept Software AG
@@ -944,41 +942,41 @@
rules
RBTransformationRule isNil ifTrue:[
- Smalltalk loadPackage:'stx:goodies/refactoryBrowser/lint'.
+ Smalltalk loadPackage:'stx:goodies/refactoryBrowser/lint'.
].
rules isNil ifTrue:[
- |knownRules separator1 separator2 separator3|
+ |knownRules separator1 separator2 separator3|
- "/ construct a pseudo list from existing transformation rules
- separator1 := '----------- search for:' asText colorizeAllWith:Color grey.
- separator2 := '----------- replace by:' asText colorizeAllWith:Color grey.
- separator3 := '\=================================================================================\' withCRs asText colorizeAllWith:Color grey.
+ "/ construct a pseudo list from existing transformation rules
+ separator1 := '----------- search for:' withColor:Color grey.
+ separator2 := '----------- replace by:' withColor:Color grey.
+ separator3 := '\=================================================================================\' withCRs withColor:Color grey.
- knownRules := OrderedCollection new.
- (RBTransformationRule allSubclasses asNewOrderedCollection sort:[:a :b | a basicNew name < b basicNew name])
- do:[:each |
- |rule |
+ knownRules := OrderedCollection new.
+ (RBTransformationRule allSubclasses asNewOrderedCollection sort:[:a :b | a basicNew name < b basicNew name])
+ do:[:each |
+ |rule |
- rule := each new.
- knownRules add:{ rule .
- (rule rewriteRule searches
- collectAll:[:each |
- {
- separator1.
- each searchString
- asText backgroundColorizeAllWith:(Color red lightened lightened lightened) .
- separator2.
- each replaceString asText
- asText backgroundColorizeAllWith:(Color green lightened lightened lightened) .
- separator3
- }
- ]
- ) asStringCollection asString.
- }
- ].
+ rule := each new.
+ knownRules add:{ rule .
+ (rule rewriteRule searches
+ collectAll:[:each |
+ {
+ separator1.
+ each searchString
+ asText backgroundColorizeAllWith:(Color red lightened lightened lightened) .
+ separator2.
+ each replaceString asText
+ asText backgroundColorizeAllWith:(Color green lightened lightened lightened) .
+ separator3
+ }
+ ]
+ ) asStringCollection asString.
+ }
+ ].
- rules := knownRules
+ rules := knownRules
].
^ rules
@@ -1706,3 +1704,4 @@
version_SVN
^ '$Id$'
! !
+