--- a/Tools__LintRuleSettingsApplication.st Wed Feb 05 20:32:23 2014 +0100
+++ b/Tools__LintRuleSettingsApplication.st Thu Feb 06 02:19:35 2014 +0100
@@ -372,7 +372,9 @@
basicReadSettings
"superclass AbstractSettingsApplication says that I am responsible to implement this method"
- self rulesetList removeAll; addAll: RBCompositeLintRule rulesets
+ RBCompositeLintRule notNil ifTrue:[
+ self rulesetList removeAll; addAll: RBCompositeLintRule rulesets
+ ].
"Modified: / 27-02-2013 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -400,6 +402,8 @@
hasUnsavedChanges
"superclass AbstractSettingsApplication says that I am responsible to implement this method"
+ RBCompositeLintRule isNil ifTrue:[^ false].
+
^RBCompositeLintRule rulesets asArray ~= self rulesetList asArray
"Modified: / 28-02-2013 / 10:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -408,11 +412,11 @@
!LintRuleSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.1 2014-02-05 18:58:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.2 2014-02-06 01:19:35 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.1 2014-02-05 18:58:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.2 2014-02-06 01:19:35 cg Exp $'
! !