--- a/Tools__NewSystemBrowser.st	Wed Mar 07 18:19:49 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Mar 07 18:20:20 2012 +0100
@@ -16603,13 +16603,35 @@
             label: '-'
           )
          (MenuItem
+            enabled: hasClassSelectedHolder
             label: 'Run Static Analysis (Lint)'
             itemValue: runLint
             nameKey: RunLint
             translateLabel: true
             isButton: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Repeat Previous Checks'
+                  itemValue: runLintOnPreviousRules
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: 'Run all Checks'
+                  itemValue: runLintOnAllRules
+                  translateLabel: true
+                )
+               (MenuItem
+                  label: 'Select Checks...'
+                  itemValue: runLintOnSelectedRules
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
             labelImage: (ResourceRetriever ToolbarIconLibrary lint24x24Icon)
-            enabled: hasClassSelectedHolder
           )
          (MenuItem
             label: '-'
@@ -16721,8 +16743,6 @@
         nil
         nil
       )
-
-    "Modified: / 31-12-2011 / 15:47:24 / cg"
 ! !
 
 !NewSystemBrowser class methodsFor:'queries'!
@@ -25312,12 +25332,42 @@
 runLint
     "run the new smallLint checker tool"
 
+    self runLintOnPreviousRules
+
+    "Modified: / 17-04-2010 / 10:44:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-03-2012 / 17:39:34 / cg"
+!
+
+runLintOnAllRules
+    "run the new smallLint checker tool on all rules"
+
+    self 
+        smalllintCheck: self selectedCodeComponentsAsEnvironment 
+        against: #smalllintRulesAll
+
+    "Created: / 07-03-2012 / 17:40:07 / cg"
+!
+
+runLintOnPreviousRules
+    "run the new smallLint checker tool"
+
     self 
         smalllintCheck: self selectedCodeComponentsAsEnvironment 
         against: #smalllintRules
 
     "Modified: / 17-04-2010 / 10:44:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 01-03-2012 / 14:10:47 / cg"
+    "Created: / 07-03-2012 / 17:39:28 / cg"
+!
+
+runLintOnSelectedRules
+    "run the new smallLint checker tool on selected rules"
+
+    self 
+        smalllintCheck: self selectedCodeComponentsAsEnvironment 
+        against: #smalllintRulesFromUser
+
+    "Created: / 07-03-2012 / 17:40:23 / cg"
 !
 
 smalllintCheck:anEnvironment against:ruleSetSymbol
@@ -56129,11 +56179,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1728 2012-03-07 11:05:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1729 2012-03-07 17:20:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1728 2012-03-07 11:05:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1729 2012-03-07 17:20:20 cg Exp $'
 !
 
 version_SVN