--- 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$'
! !