Bugfix in selection handling.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 17 Oct 2014 01:04:49 +0200
changeset 14786 6761e919308a
parent 14785 f94b74d793a6
child 14787 a0cb48b92908
Bugfix in selection handling.
Tools__LintRuleList.st
--- 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 $'
 ! !