--- a/Tools__NewSystemBrowser.st	Thu Mar 01 20:05:04 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Mar 01 20:21:02 2012 +0100
@@ -25315,8 +25315,7 @@
 
     |rule|
 
-    self 
-        assert:(#( #smalllintRulesAll #smalllintRulesFromUser #smalllintRules ) includes:ruleSetSymbol).
+    self assert:(#( #smalllintRulesAll #smalllintRulesFromUser #smalllintRules ) includes:ruleSetSymbol).
 
     rule := self perform:ruleSetSymbol asSymbol.
     rule isNil ifTrue:[ ^ self ].
@@ -25334,14 +25333,22 @@
 
     self showMessage:'Checking code...'
         while:[
+            |showResult|
+
             self smalllintRunRule:rule onEnvironment:anEnvironment.
-            (rule isEmpty not or:[ (Dialog confirm:'Nothing found.\\Press OK to add result viewer anyway.' withCRs) ]) 
-            ifTrue:[
-                self 
-                    spawnSmalllintBrowserByRuleFor:rule
-                    in:#newBuffer
-                    label:'SmallLint results for ' , anEnvironment label
-            ]
+            showResult := true.
+            [rule isEmpty] whileTrue:[
+                (Dialog confirm:'Nothing special found.\\Proceed to select more/different lint rules.' withCRs) ifTrue:[
+                    rule := self smalllintRulesFromUser.
+                    rule notNil ifTrue:[ 
+                        self smalllintRunRule:rule onEnvironment:anEnvironment.
+                    ].
+                ].
+            ].
+            self 
+                spawnSmalllintBrowserByRuleFor:rule
+                in:#newBuffer
+                label:'SmallLint results for ' , anEnvironment label
         ].
 
     "Modified: / 15-12-2008 / 18:51:43 / Josef Grega <gregaj1@fel.cvut.cz>"
@@ -25349,7 +25356,7 @@
     "Created: / 24-02-2009 / 11:02:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 22-07-2009 / 14:38:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 28-08-2010 / 20:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-03-2012 / 19:06:05 / cg"
+    "Modified: / 01-03-2012 / 20:20:28 / cg"
 !
 
 smalllintRules
@@ -56098,11 +56105,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1723 2012-03-01 19:05:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1724 2012-03-01 19:21:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1723 2012-03-01 19:05:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1724 2012-03-01 19:21:02 cg Exp $'
 !
 
 version_SVN