10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 AbstractSourceCodeManagementSettingsAppl subclass:#CVSSourceCodeManagementSettingsAppl |
14 AbstractSourceCodeManagementSettingsAppl subclass:#CVSSourceCodeManagementSettingsAppl |
15 instanceVariableNames:'sourceCacheDir repositoryHolder manager repository listOfModules |
15 instanceVariableNames:'repositoryHolder manager repository listOfModules |
16 cvsRootPrototypeList addPerModuleRoot removeEnabled |
16 cvsRootPrototypeList addPerModuleRoot removeEnabled |
17 perModuleRootModule acceptChannel removePerModuleRoot |
17 perModuleRootModule removePerModuleRoot perModuleRoot |
18 perModuleRoot cvsRootHolder selectedPerModuleRoot |
18 cvsRootHolder selectedPerModuleRoot cvsBinDirectoryHolder |
19 cvsBinDirectoryHolder cvsExecutableHolder cvsCommandTimeoutHolder |
19 cvsExecutableHolder cvsCommandTimeoutHolder rootsPerModule |
20 rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled |
20 cvsLoginInModuleEnabled cvsLoginEnabled' |
21 verboseSourceCodeAccess' |
|
22 classVariableNames:'RecentlyUsedCVSRoots' |
21 classVariableNames:'RecentlyUsedCVSRoots' |
23 poolDictionaries:'' |
22 poolDictionaries:'' |
24 category:'System-SourceCodeManagement' |
23 category:'System-SourceCodeManagement' |
25 ! |
24 ! |
26 |
25 |
799 self cvsLogin:perModuleRoot value. |
798 self cvsLogin:perModuleRoot value. |
800 ! ! |
799 ! ! |
801 |
800 |
802 !CVSSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
801 !CVSSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
803 |
802 |
804 acceptChannel |
|
805 |
|
806 acceptChannel isNil ifTrue:[ |
|
807 acceptChannel := TriggerValue new. |
|
808 ]. |
|
809 ^ acceptChannel. |
|
810 ! |
|
811 |
|
812 cvsCommandTimeoutHolder |
803 cvsCommandTimeoutHolder |
813 cvsCommandTimeoutHolder isNil ifTrue:[ |
804 cvsCommandTimeoutHolder isNil ifTrue:[ |
814 cvsCommandTimeoutHolder := ValueHolder new. |
805 cvsCommandTimeoutHolder := ValueHolder new. |
815 cvsCommandTimeoutHolder onChangeSend:#updateModifiedChannel to:self |
806 cvsCommandTimeoutHolder onChangeSend:#updateModifiedChannel to:self |
816 ]. |
807 ]. |
925 selectedPerModuleRoot isNil ifTrue:[ |
916 selectedPerModuleRoot isNil ifTrue:[ |
926 selectedPerModuleRoot := ValueHolder new. |
917 selectedPerModuleRoot := ValueHolder new. |
927 selectedPerModuleRoot addDependent:self. |
918 selectedPerModuleRoot addDependent:self. |
928 ]. |
919 ]. |
929 ^ selectedPerModuleRoot. |
920 ^ selectedPerModuleRoot. |
930 ! |
|
931 |
|
932 sourceCacheDir |
|
933 sourceCacheDir isNil ifTrue:[ |
|
934 sourceCacheDir := ValueHolder new. |
|
935 sourceCacheDir onChangeSend:#updateModifiedChannel to:self |
|
936 ]. |
|
937 ^ sourceCacheDir. |
|
938 ! |
921 ! |
939 |
922 |
940 verboseSourceCodeAccess |
923 verboseSourceCodeAccess |
941 verboseSourceCodeAccess isNil ifTrue:[ |
924 verboseSourceCodeAccess isNil ifTrue:[ |
942 verboseSourceCodeAccess := false asValue. |
925 verboseSourceCodeAccess := false asValue. |
1079 sourceCacheDir addDependent:self. |
1062 sourceCacheDir addDependent:self. |
1080 |
1063 |
1081 repositoryHolder := '' asValue. |
1064 repositoryHolder := '' asValue. |
1082 rootsPerModule := Dictionary new. |
1065 rootsPerModule := Dictionary new. |
1083 |
1066 |
1084 (Array with:CVSSourceCodeManager) "self availableManagers" do:[:eachManager | |
1067 CVSSourceCodeManager repositoryInfoPerModule |
1085 eachManager repositoryInfoPerModule |
1068 keysAndValuesDo:[:module :info | |
1086 keysAndValuesDo:[:module :info | |
1069 module withoutSeparators ~= module ifTrue:[ |
1087 module withoutSeparators ~= module ifTrue:[ |
1070 self halt:'should not happen any longer' |
1088 self halt:'should not happen any longer' |
|
1089 ]. |
|
1090 rootsPerModule at:module put:(Array with:eachManager with:info) |
|
1091 ]. |
1071 ]. |
1092 ]. |
1072 rootsPerModule at:module put:(Array with:CVSSourceCodeManager with:info) |
|
1073 ]. |
1093 |
1074 |
1094 super initialize. |
1075 super initialize. |
1095 |
1076 |
1096 "Modified: / 21-12-2011 / 12:14:25 / cg" |
1077 "Modified: / 14-01-2012 / 20:28:00 / cg" |
1097 ! ! |
1078 ! ! |
1098 |
1079 |
1099 !CVSSourceCodeManagementSettingsAppl methodsFor:'queries'! |
1080 !CVSSourceCodeManagementSettingsAppl methodsFor:'queries'! |
1100 |
1081 |
1101 cvsRootFromCVSRootFileOrNil |
1082 cvsRootFromCVSRootFileOrNil |
|
1083 "see if there is a local CVS directory; if so, extract a default CVSRoot from it" |
|
1084 |
1102 |cvsDir cvsRootFile cvsRoot| |
1085 |cvsDir cvsRootFile cvsRoot| |
1103 |
1086 |
1104 cvsDir := 'CVS' asFilename. |
1087 cvsDir := 'CVS' asFilename. |
1105 cvsDir isDirectory ifFalse:[ ^ nil ]. |
1088 cvsDir isDirectory ifFalse:[ ^ nil ]. |
1106 |
1089 |