--- a/Tools__HierarchicalLintRuleList.st Sun Jan 12 23:30:25 2014 +0000
+++ b/Tools__HierarchicalLintRuleList.st Wed Apr 01 10:38:01 2015 +0100
@@ -123,29 +123,6 @@
)
! !
-!HierarchicalLintRuleList class methodsFor:'plugIn spec'!
-
-aspectSelectors
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this. If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "Return a description of exported aspects;
- these can be connected to aspects of an embedding application
- (if this app is embedded in a subCanvas)."
-
- ^ #(
- #inGeneratorHolder
- #listSelection
- #modeHolder
- #outGeneratorHolder
- #selectionHolder
- ).
-
-! !
-
!HierarchicalLintRuleList methodsFor:'aspects'!
listHolder
@@ -180,7 +157,8 @@
ifFalse:[
inGenerator do:[:rule|
rule flattened do:[:each|
- (each name matches: filterS caseSensitive: false)
+ ((each name matches: filterS caseSensitive: false)
+ or:[ (each class name matches: filterS caseSensitive: false) ])
ifTrue: [inRules add: each]]]].
root := (self
listEntryFor:(RBCompositeLintRule rules:inRules name:'Rules'))
@@ -191,7 +169,7 @@
e expand
].
self listHolder root:root.
- listValid := true.
+ self setListValid:true.
"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>"
@@ -202,15 +180,10 @@
!HierarchicalLintRuleList class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.5 2013-08-31 19:33:04 cg Exp $'
-!
-
-version_HG
-
- ^ '$Changeset: <not expanded> $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.8 2014-11-19 21:40:20 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__HierarchicalLintRuleList.st,v 1.5 2013-08-31 19:33:04 cg Exp $'
+ ^ '$Id: Tools__HierarchicalLintRuleList.st,v 1.8 2014-11-19 21:40:20 cg Exp $'
! !