equal
deleted
inserted
replaced
60 documentation |
60 documentation |
61 " |
61 " |
62 CVS part of the source code settings; |
62 CVS part of the source code settings; |
63 extrated for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication. |
63 extrated for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication. |
64 " |
64 " |
|
65 ! ! |
|
66 |
|
67 !CVSSourceCodeManagementSettingsAppl class methodsFor:'defaults'! |
|
68 |
|
69 defaultRepositoryName |
|
70 |
|
71 ^ '/cvs/stx' |
|
72 |
|
73 "Created: / 19-04-2011 / 11:00:11 / cg" |
65 ! ! |
74 ! ! |
66 |
75 |
67 !CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
76 !CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
68 |
77 |
69 defaultIcon |
78 defaultIcon |
473 infoPerModule keysAndValuesDo:[:module :info | |
482 infoPerModule keysAndValuesDo:[:module :info | |
474 rootsPerModule at:module put:(Array with:eachManager with:info). |
483 rootsPerModule at:module put:(Array with:eachManager with:info). |
475 ]. |
484 ]. |
476 ]. |
485 ]. |
477 |
486 |
478 self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/cvs/stx'. |
487 self cvsRootHolder value:CVSSourceCodeManager repositoryName ? self class defaultRepositoryName. |
479 self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable. |
488 self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable. |
480 self verboseSourceCodeAccess value:CVSSourceCodeManager verboseSourceCodeAccess. |
489 self verboseSourceCodeAccess value:CVSSourceCodeManager verboseSourceCodeAccess. |
481 |
490 |
482 rootsPerModule notNil ifTrue:[ |
491 rootsPerModule notNil ifTrue:[ |
483 self listOfModules removeAll. |
492 self listOfModules removeAll. |
484 listOfModules addAll:rootsPerModule keys asList. |
493 listOfModules addAll:rootsPerModule keys asList. |
485 ]. |
494 ]. |
486 "/ self selectedPerModuleRootChanged. |
495 "/ self selectedPerModuleRootChanged. |
487 |
496 |
488 "Modified: / 18-04-2011 / 18:25:16 / cg" |
497 "Modified: / 19-04-2011 / 11:00:48 / cg" |
489 ! |
498 ! |
490 |
499 |
491 basicSaveSettings |
500 basicSaveSettings |
492 |modules nm fn| |
501 |modules nm fn| |
493 |
502 |
1022 ]. |
1031 ]. |
1023 |
1032 |
1024 ((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators) |
1033 ((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators) |
1025 ifTrue:[^ true]. |
1034 ifTrue:[^ true]. |
1026 |
1035 |
1027 (CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value) |
1036 (CVSSourceCodeManager repositoryName ? self class defaultRepositoryName ~= self cvsRootHolder value) |
1028 ifTrue:[^ true]. |
1037 ifTrue:[^ true]. |
1029 |
1038 |
1030 (CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) |
1039 (CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) |
1031 ifTrue:[^ true]. |
1040 ifTrue:[^ true]. |
1032 |
1041 |
1033 ^ false |
1042 ^ false |
1034 |
1043 |
1035 "Modified: / 18-04-2011 / 18:22:12 / cg" |
1044 "Modified: / 19-04-2011 / 11:00:32 / cg" |
1036 ! ! |
1045 ! ! |
1037 |
1046 |
1038 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
1047 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
1039 |
1048 |
1040 version_CVS |
1049 version_CVS |
1041 ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.1 2011-04-18 18:12:40 cg Exp $' |
1050 ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.2 2011-04-19 09:08:30 cg Exp $' |
1042 ! ! |
1051 ! ! |