author | Claus Gittinger <cg@exept.de> |
Mon, 06 Jul 2015 15:46:43 +0200 | |
changeset 15729 | 9072e5715657 |
parent 15727 | 6b3c19f3eaa3 |
child 15730 | a2f192fe544c |
--- a/Tools__LintRuleSettingsApplication.st Sun Jul 05 11:47:09 2015 +0200 +++ b/Tools__LintRuleSettingsApplication.st Mon Jul 06 15:46:43 2015 +0200 @@ -93,7 +93,7 @@ 'Recreate the default ruleset with all existing RBRules.\(Do this after new rules have been added or rule classes were modified)' #smallSenseEnabled -'Enable SmallSense (incremental lint rule checking in the editor).\Disabled if the smallSens package is not loaded.\\Sorry, but this will only affect new windows,\so you have to reopen the browsers.' +'Enable SmallSense (incremental lint rule checking in the editor).\If the SmallSense package is not yet loaded, checking this will force it into the image.\\Sorry, but this will only affect new windows,\so you have to reopen the browsers.' ) ! ! @@ -160,7 +160,6 @@ label: 'Enable Lintrule Checking in Codeview (Load SmallSense Package)' name: 'CheckBox1' activeHelpKey: smallSenseEnabled - enableChannel: hasSmallSenseNotLoaded model: smallSenseEnabledHolder translateLabel: true useDefaultExtent: true @@ -487,6 +486,14 @@ "Modified: / 27-02-2013 / 11:24:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! +hasSmallSenseLoaded + ^ (Smalltalk at:#'SmallSense::SmalltalkChecker') notNil +! + +hasSmallSenseNotLoaded + ^ self hasSmallSenseLoaded not +! + rulesetList "return/create the 'rulesetList' value holder (automatically generated)" @@ -523,7 +530,7 @@ |rbCompositeLintRuleClass| self smallSenseEnabledHolder - value:((Smalltalk at:#'SmallSense::SmalltalkChecker') notNil + value:(self hasSmallSenseLoaded and:[ UserPreferences current perform:#smallSenseEnabled ifNotUnderstood:false]). rbCompositeLintRuleClass := Smalltalk at:#'RBCompositeLintRule'. @@ -587,14 +594,6 @@ "Modified: / 24-11-2014 / 11:21:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" ! -hasSmallSenseLoaded - ^ (Smalltalk at:#'SmallSense::SmalltalkChecker') notNil -! - -hasSmallSenseNotLoaded - ^ self hasSmallSenseLoaded not -! - helpFilename "subclasses must return either the relative name of a helpFile in the doc/online/<language>/help directory, @@ -649,11 +648,11 @@ !LintRuleSettingsApplication class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.24 2015-05-09 17:43:17 cg Exp $' + ^ '$Header$' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.24 2015-05-09 17:43:17 cg Exp $' + ^ '$Header$' ! !