--- a/Tools__LintRuleSelectionDialog.st Thu Oct 16 12:52:14 2014 +0200
+++ b/Tools__LintRuleSelectionDialog.st Thu Oct 16 12:52:19 2014 +0200
@@ -512,12 +512,14 @@
"return/create the 'rulesetList' value holder (automatically generated)"
rulesetList isNil ifTrue:[
- rulesetList := RBCompositeLintRule rulesets asList.
+ rulesetList := List new.
+ rulesetList addAll: RBCompositeLintRule rulesetsBuiltin.
+ rulesetList addAll: RBCompositeLintRule rulesetsUserDefined.
rulesetList addDependent:self.
].
^ rulesetList
- "Modified: / 27-02-2013 / 23:07:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 16-10-2014 / 10:51:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
rulesetList:something
@@ -652,7 +654,7 @@
ruleset := RBCompositeLintRule new.
ruleset name: ('New Rule Set ' , (self rulesetList size + 1) printString).
self rulesetList add: ruleset.
- RBCompositeLintRule rulesets add: ruleset.
+ RBCompositeLintRule rulesetsUserDefined add: ruleset.
self rulesetNameHolder value: ruleset name.
] ifFalse:[
| idx |
@@ -688,14 +690,14 @@
!LintRuleSelectionDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSelectionDialog.st,v 1.9 2014-10-14 14:12:15 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSelectionDialog.st,v 1.10 2014-10-16 10:52:19 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSelectionDialog.st,v 1.9 2014-10-14 14:12:15 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSelectionDialog.st,v 1.10 2014-10-16 10:52:19 vrany Exp $'
!
version_SVN
- ^ '$Id: Tools__LintRuleSelectionDialog.st,v 1.9 2014-10-14 14:12:15 vrany Exp $'
+ ^ '$Id: Tools__LintRuleSelectionDialog.st,v 1.10 2014-10-16 10:52:19 vrany Exp $'
! !