class: Tools::LintRuleSettingsApplication
authorClaus Gittinger <cg@exept.de>
Wed, 26 Feb 2014 11:36:06 +0100
changeset 14059 3ede3ee7643b
parent 14058 6018db6ddc02
child 14060 fef6bc962708
class: Tools::LintRuleSettingsApplication changed: #hasUnsavedChanges
Tools__LintRuleSettingsApplication.st
--- a/Tools__LintRuleSettingsApplication.st	Tue Feb 25 23:16:55 2014 +0100
+++ b/Tools__LintRuleSettingsApplication.st	Wed Feb 26 11:36:06 2014 +0100
@@ -403,8 +403,16 @@
     "superclass AbstractSettingsApplication says that I am responsible to implement this method"
 
     RBCompositeLintRule isNil ifTrue:[^ false].
-
-    ^RBCompositeLintRule rulesets asArray ~= self rulesetList asArray
+    SequenceableCollection missingClassInLiteralArrayErrorSignal handle:[:ex |
+        "/ maybe we have to load additional packages...
+        (Smalltalk isPackageLoaded:'stx:goodies/refactoryBrowser/lint/spelling') ifFalse:[
+            Smalltalk loadPackage:'stx:goodies/refactoryBrowser/lint/spelling'.
+            ex restart.
+        ].
+        ex reject.
+    ] do:[
+        ^ RBCompositeLintRule rulesets asArray ~= self rulesetList asArray
+    ].
 
     "Modified: / 28-02-2013 / 10:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -412,11 +420,11 @@
 !LintRuleSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.2 2014-02-06 01:19:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.3 2014-02-26 10:36:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.2 2014-02-06 01:19:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.3 2014-02-26 10:36:06 cg Exp $'
 ! !