--- a/Tools__LintRuleList.st	Wed Nov 19 22:40:20 2014 +0100
+++ b/Tools__LintRuleList.st	Wed Nov 19 22:40:29 2014 +0100
@@ -389,6 +389,10 @@
     "Modified: / 27-02-2013 / 23:40:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+enqueueDelayedUpdateList
+    super enqueueDelayedUpdateList
+!
+
 selectionChanged
 
     | selection |
@@ -401,7 +405,7 @@
         ] ifFalse:[
             self selectionHolder value: (selection collect:[:entry|entry rule])
         ].                                 
-        listView invalidate
+"/        listView invalidate
     ].
 
     "Created: / 05-08-2011 / 00:10:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -486,7 +490,7 @@
     menu := self menuFor: #menu.
     menu isArray ifTrue:[ menu := Menu decodeFromLiteralArray: menu ].
     menuHolder := ValueHolder with: menu.
-    self selection: Set new.
+    "/ self selection: Set new.
 
     "Modified: / 25-08-2010 / 15:24:45 / Jan Vrany <enter your email here>"
     "Modified: / 24-02-2014 / 12:00:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -544,6 +548,13 @@
     "Created: / 26-08-2010 / 12:04:04 / Jan Vrany <enter your email here>"
 !
 
+setListValid:aBoolean
+    listValid ifTrue:[
+        aBoolean ifFalse:[self halt].
+    ].
+    listValid := aBoolean.
+!
+
 updateList
     |generator filterS newList|
 
@@ -569,7 +580,7 @@
     ].
     newList sort:[:a :b | a name < b name].
     self listHolder value:newList.
-    listValid := true.
+    self setListValid:true.
 
     "Modified: / 22-07-2009 / 15:58:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 25-08-2010 / 13:35:58 / Jan Vrany <enter your email here>"
@@ -818,14 +829,14 @@
 !LintRuleList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.23 2014-10-16 23:04:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.24 2014-11-19 21:40:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.23 2014-10-16 23:04:49 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.24 2014-11-19 21:40:29 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__LintRuleList.st,v 1.23 2014-10-16 23:04:49 vrany Exp $'
+    ^ '$Id: Tools__LintRuleList.st,v 1.24 2014-11-19 21:40:29 cg Exp $'
 ! !