Bugfix in selection handling.
--- a/Tools__LintRuleList.st Thu Oct 16 17:09:14 2014 +0200
+++ b/Tools__LintRuleList.st Fri Oct 17 01:04:49 2014 +0200
@@ -394,7 +394,7 @@
| selection |
super selectionChanged.
- self == #display ifTrue:[
+ self mode == #display ifTrue:[
selection := self listSelection value.
selection isEmptyOrNil ifTrue:[
self selectionHolder value: selection
@@ -405,7 +405,7 @@
].
"Created: / 05-08-2011 / 00:10:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 13-10-2014 / 18:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-10-2014 / 00:01:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LintRuleList methodsFor:'event processing'!
@@ -560,7 +560,7 @@
generator do:[:rule |
rule flattened do: [:rule|
(filterS isEmptyOrNil
- or:[rule name matches: filterS
+ or:[(rule name matches: filterS)
or:[rule class name matches: filterS]])
ifTrue:[
newList add: (self listEntryFor:rule)
@@ -572,9 +572,9 @@
listValid := true.
"Modified: / 22-07-2009 / 15:58:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
- "Modified: / 16-04-2010 / 11:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 25-08-2010 / 13:35:58 / Jan Vrany <enter your email here>"
"Modified: / 07-03-2012 / 18:06:50 / cg"
+ "Modified: / 16-10-2014 / 23:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LintRuleList methodsFor:'queries'!
@@ -818,14 +818,14 @@
!LintRuleList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.22 2014-10-13 17:43:57 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.23 2014-10-16 23:04:49 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.22 2014-10-13 17:43:57 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.23 2014-10-16 23:04:49 vrany Exp $'
!
version_SVN
- ^ '$Id: Tools__LintRuleList.st,v 1.22 2014-10-13 17:43:57 vrany Exp $'
+ ^ '$Id: Tools__LintRuleList.st,v 1.23 2014-10-16 23:04:49 vrany Exp $'
! !