--- 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