--- a/Tools__NewSystemBrowser.st	Tue Jan 24 13:50:58 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Jan 24 13:53:30 2012 +0100
@@ -51724,6 +51724,30 @@
     "Modified: / 25-08-2010 / 15:35:16 / Jan Vrany <enter your email here>"
 !
 
+smalllintRulesOrAll
+
+    "Returns a set of user-selected SmallLint rules or all rules,
+     if no user selection is done"    
+
+   ^LastLintRules notNil ifTrue:[
+        LastLintRules
+    ] ifFalse:[
+        self smalllintRulesAll
+    ]
+
+    "Created: / 23-01-2012 / 10:59:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smalllintRulesOrAllHolder
+    "Returns a holder on user-selected SmallLint rules
+     (or all rules if user made no selection"
+
+    ^[ self smalllintRulesOrAll ]
+
+    "Modified: / 17-04-2010 / 09:42:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 23-01-2012 / 11:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 smalllintRunRule: aLintRule onEnvironment: anEnvironment
 
     | rules |
@@ -55699,11 +55723,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1699 2012-01-23 23:15:39 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1700 2012-01-24 12:53:30 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1699 2012-01-23 23:15:39 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1700 2012-01-24 12:53:30 vrany Exp $'
 !
 
 version_SVN