16 cvsRootPrototypeList addPerModuleRoot removeEnabled |
16 cvsRootPrototypeList addPerModuleRoot removeEnabled |
17 perModuleRootModule acceptChannel removePerModuleRoot |
17 perModuleRootModule acceptChannel removePerModuleRoot |
18 perModuleRoot cvsRootHolder selectedPerModuleRoot |
18 perModuleRoot cvsRootHolder selectedPerModuleRoot |
19 cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule |
19 cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule |
20 cvsLoginInModuleEnabled cvsLoginEnabled verboseSourceCodeAccess' |
20 cvsLoginInModuleEnabled cvsLoginEnabled verboseSourceCodeAccess' |
21 classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts |
21 classVariableNames:'RecentlyUsedCVSRoots' |
22 RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser |
|
23 LastStorePassword' |
|
24 poolDictionaries:'' |
22 poolDictionaries:'' |
25 category:'System-SourceCodeManagement' |
23 category:'System-SourceCodeManagement' |
26 ! |
24 ! |
27 |
25 |
28 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
26 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
906 |
904 |
907 cvsRootFromCVSRootFileOrNil |
905 cvsRootFromCVSRootFileOrNil |
908 |cvsDir cvsRootFile cvsRoot| |
906 |cvsDir cvsRootFile cvsRoot| |
909 |
907 |
910 cvsDir := 'CVS' asFilename. |
908 cvsDir := 'CVS' asFilename. |
911 cvsDir isDirectory ifTrue:[ |
909 cvsDir isDirectory ifFalse:[ ^ nil ]. |
912 cvsRootFile := cvsDir construct:'Root'. |
910 |
913 cvsRootFile isReadable ifTrue:[ |
911 cvsRootFile := cvsDir construct:'Root'. |
914 cvsRoot := cvsRootFile contents firstIfEmpty:nil. |
912 cvsRootFile isReadable ifTrue:[ |
915 ]. |
913 cvsRoot := cvsRootFile contents firstIfEmpty:nil. |
916 ]. |
914 ]. |
917 ^ cvsRoot |
915 ^ cvsRoot |
|
916 |
|
917 "Modified: / 22-12-2011 / 00:12:42 / cg" |
918 ! |
918 ! |
919 |
919 |
920 hasUnsavedChanges |
920 hasUnsavedChanges |
|
921 |modules| |
|
922 |
921 ((CVSSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true]. |
923 ((CVSSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true]. |
922 |
924 |
923 (Array with:CVSSourceCodeManager) "self availableManagers" do:[:mgr | |
925 modules := rootsPerModule select:[:entry | entry first == CVSSourceCodeManager]. |
924 |modules| |
926 |
925 |
927 CVSSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info | |
926 modules := rootsPerModule select:[:entry | entry first == mgr]. |
928 ((modules includesKey:module) and:[info = (modules at:module) second]) |
927 |
929 ifFalse:[^ true]. |
928 mgr repositoryInfoPerModule keysAndValuesDo:[:module :info | |
930 ]. |
929 ((modules includesKey:module) and:[info = (modules at:module) second]) |
931 modules keysAndValuesDo:[:module :info| |
930 ifFalse:[^ true]. |
932 ((CVSSourceCodeManager repositoryInfoPerModule includesKey:module) and:[(CVSSourceCodeManager repositoryInfoPerModule at:module) = info second]) |
931 ]. |
933 ifFalse:[^ true]. |
932 modules keysAndValuesDo:[:module :info| |
|
933 ((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second]) |
|
934 ifFalse:[^ true]. |
|
935 ]. |
|
936 ]. |
934 ]. |
937 |
935 |
938 ((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators) |
936 ((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators) |
939 ifTrue:[^ true]. |
937 ifTrue:[^ true]. |
940 |
938 |
944 (CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) |
942 (CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) |
945 ifTrue:[^ true]. |
943 ifTrue:[^ true]. |
946 |
944 |
947 ^ false |
945 ^ false |
948 |
946 |
949 "Modified: / 19-04-2011 / 11:00:32 / cg" |
947 "Modified: / 22-12-2011 / 00:22:03 / cg" |
950 ! ! |
948 ! ! |
951 |
949 |
952 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
950 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
953 |
951 |
954 version |
952 version |
955 ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.8 2011-12-21 15:48:03 cg Exp $' |
953 ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.9 2011-12-22 09:00:17 cg Exp $' |
956 ! |
954 ! |
957 |
955 |
958 version_CVS |
956 version_CVS |
959 ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.8 2011-12-21 15:48:03 cg Exp $' |
957 ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.9 2011-12-22 09:00:17 cg Exp $' |
960 ! ! |
958 ! ! |