--- a/Tools__HierarchicalLintRuleList.st Wed Mar 21 14:05:42 2012 +0000
+++ b/Tools__HierarchicalLintRuleList.st Wed Mar 21 17:50:14 2012 +0000
@@ -175,17 +175,13 @@
ifTrue:[inGenerator := RBCompositeLintRule allRules rules ].
inRules := OrderedCollection new.
filterS isEmptyOrNil
- ifTrue:
- [inGenerator do:[:rule | inRules add:rule ]]
- ifFalse:
- [inGenerator do:
- [:rule|
- rule flattened do:
- [:each|
- (filterS isEmptyOrNil
- or:[each name matches: filterS])
- ifTrue:
- [inRules add: each]]]].
+ ifTrue:[
+ inGenerator do:[:rule | inRules add:rule ]]
+ ifFalse:[
+ inGenerator do:[:rule|
+ rule flattened do:[:each|
+ (each name matches: filterS ignoreCase: true)
+ ifTrue: [inRules add: each]]]].
root := (self
listEntryFor:(RBCompositeLintRule rules:inRules name:'Rules'))
parent:self listHolder;
@@ -200,16 +196,16 @@
"Created: / 15-04-2010 / 20:39:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 16-04-2010 / 09:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 25-08-2010 / 11:56:39 / Jan Vrany <enter your email here>"
- "Modified: / 04-08-2011 / 21:21:05 / cg"
+ "Modified: / 08-03-2012 / 03:11:19 / cg"
! !
!HierarchicalLintRuleList class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.3 2011/08/04 19:21:13 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.4 2012/03/08 02:44:52 cg Exp §'
!
version_SVN
- ^ '$Id: Tools__HierarchicalLintRuleList.st 7911 2012-02-22 09:55:48Z vranyj1 $'
+ ^ '$Id: Tools__HierarchicalLintRuleList.st 7952 2012-03-21 17:50:14Z vranyj1 $'
! !