Tools__LintRuleSettingsApplication.st
changeset 13899 85faafbcb77c
parent 13840 ef630a77665f
child 14059 3ede3ee7643b
--- 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 $'
 ! !