#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 12 Jan 2017 15:03:06 +0100
changeset 17212 fcc7e86f76d2
parent 17211 9bea2d537d51
child 17213 e0212d9e3913
#REFACTORING by cg class: AbstractSettingsApplication
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Thu Jan 12 10:09:12 2017 +0100
+++ b/AbstractSettingsApplication.st	Thu Jan 12 15:03:06 2017 +0100
@@ -5643,16 +5643,19 @@
 !AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
 
 basicReadSettings
-    self keepSourceSelection value:(self class keepSourceOptions
+    self keepSourceSelection 
+        value:(self class keepSourceOptions
                 indexOf:ClassCategoryReader sourceMode
                 ifAbsent:1).
     self catchClassRedefs value:(Class catchClassRedefinitions ? false).
     self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
+
     self canLoadBinaries value ifTrue:[
         self loadBinaries value:Smalltalk loadBinaries
     ] ifFalse:[
         self loadBinaries value:false
     ].
+
     self hasHistoryManager ifTrue:[
         self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
     ] ifFalse:[
@@ -5669,19 +5672,20 @@
     |nm|
 
     ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
-    Class catchClassRedefinitions:self catchClassRedefs value.
-    Class catchMethodRedefinitions:self catchMethodRedefs value.
+    Class catchClassRedefinitions:(self catchClassRedefs value).
+    Class catchMethodRedefinitions:(self catchMethodRedefs value).
     HistoryManager notNil ifTrue:[
-        HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
+        HistoryManager fullHistoryUpdate:(self fullHistoryUpdate value).
         self historyLines value ifTrue:[
             HistoryManager activate
         ] ifFalse:[
             HistoryManager deactivate
         ].
+        UserPreferences current historyManagerEnabled:(self historyLines value).
         nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
         UserPreferences current historyManagerSignature:nm.
     ].
-    Smalltalk loadBinaries:self loadBinaries value.
+    Smalltalk loadBinaries:(self loadBinaries value).
 
     "Modified: / 04-08-2010 / 18:33:20 / cg"
     "Modified: / 08-07-2011 / 10:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"