--- a/AbstractSettingsApplication.st Mon Dec 14 19:50:46 2009 +0100
+++ b/AbstractSettingsApplication.st Wed Dec 16 11:52:45 2009 +0100
@@ -274,7 +274,7 @@
selectedPerSmallTeamModuleRoot
perSmallTeamModuleFieldsEnableHolder perSmallTeamModuleRoot
perSmallTeamModuleRootModule perSmallTeamModuleHostnameHolder
- smallTeamHostnameHolder verboseSourceCodeAccess'
+ smallTeamHostnameHolder verboseSourceCodeAccess keepMethodSource'
classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
LastStorePassword'
@@ -11888,7 +11888,7 @@
label: 'Source Code Manager Settings'
name: 'Source Code Manager Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 659 551)
+ bounds: (Rectangle 0 0 659 580)
)
component:
(SpecCollection
@@ -12703,7 +12703,7 @@
(CheckBoxSpec
label: 'If Present, Use Local Source (Suppress Checkout)'
name: 'CheckBox4'
- layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
+ layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
enableChannel: useManager
model: localSourceFirst
translateLabel: true
@@ -12711,7 +12711,25 @@
)
)
- extent: (Point 659 25)
+ extent: (Point 659 24)
+ )
+ (ViewSpec
+ name: 'Box12'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Keep Method Source (In Image)'
+ name: 'CheckBox7'
+ layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
+ enableChannel: useManager
+ model: keepMethodSource
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 659 24)
)
(ViewSpec
name: 'CheckForHaltSendsBox'
@@ -12721,7 +12739,7 @@
(CheckBoxSpec
label: 'Check for halt/error-Sends when Checking in'
name: 'CheckBox5'
- layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
+ layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
enableChannel: useManager
model: checkClassesWhenCheckingIn
translateLabel: true
@@ -12729,7 +12747,7 @@
)
)
- extent: (Point 659 25)
+ extent: (Point 659 24)
)
(ViewSpec
name: 'VerboseBox'
@@ -12739,7 +12757,7 @@
(CheckBoxSpec
label: 'Verbose (Trace Access on Transcript)'
name: 'CheckBox6'
- layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
+ layout: (LayoutFrame 30 0 0 0 -5 1 23 0)
enableChannel: useManager
model: verboseSourceCodeAccess
translateLabel: true
@@ -12747,7 +12765,7 @@
)
)
- extent: (Point 659 25)
+ extent: (Point 659 24)
)
)
@@ -12787,6 +12805,8 @@
basicReadSettings
self initialize.
+ self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
+
self hasManager ifTrue:[
self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
self localSourceFirst value:Class tryLocalSourceFirst.
@@ -12839,6 +12859,7 @@
currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
Class tryLocalSourceFirst:self localSourceFirst value.
+ currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
(self hasManager and:[self useManager value]) ifTrue:[
manager ~~ self selectedManager ifTrue:[
@@ -13261,6 +13282,15 @@
^ cvsRootPrototypeList.
!
+keepMethodSource
+
+ keepMethodSource isNil ifTrue:[
+ keepMethodSource := ValueHolder new.
+ keepMethodSource onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ keepMethodSource.
+!
+
listOfModules
listOfModules isNil ifTrue:[
@@ -13909,6 +13939,9 @@
((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
ifTrue:[^ true].
+ ((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
+ ifTrue:[^ true].
+
self availableManagers do:[:mgr |
|modules|
@@ -16098,9 +16131,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.354 2009-11-19 14:51:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.355 2009-12-16 10:52:45 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.354 2009-11-19 14:51:54 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.355 2009-12-16 10:52:45 cg Exp $'
+! !