--- 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>"