915 self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold. |
915 self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold. |
916 self perModuleRoot value:''. |
916 self perModuleRoot value:''. |
917 ]. |
917 ]. |
918 ! |
918 ! |
919 |
919 |
920 sourceDirChanged |
|
921 |nm fn previousDir| |
|
922 |
|
923 manager isNil ifTrue:[^ self]. |
|
924 |
|
925 previousDir := AbstractSourceCodeManager cacheDirectoryName. |
|
926 |
|
927 nm := self sourceCacheDir value. |
|
928 nm isEmptyOrNil ifTrue:[^ self]. |
|
929 |
|
930 (fn := nm asFilename) exists ifFalse:[ |
|
931 (self confirm:(resources |
|
932 stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?' |
|
933 with:nm) |
|
934 ) ifFalse:[ |
|
935 self sourceCacheDir value:previousDir. |
|
936 ^ self. |
|
937 ]. |
|
938 fn |
|
939 recursiveMakeDirectory; |
|
940 makeReadableForAll; |
|
941 makeWritableForAll; |
|
942 makeExecutableForAll. |
|
943 ^ self. |
|
944 ]. |
|
945 |
|
946 (fn isDirectory) ifFalse:[ |
|
947 self warn:(resources |
|
948 stringWithCRs:'Not a directory: "%1"' |
|
949 with:nm). |
|
950 self sourceCacheDir value:previousDir. |
|
951 ^ self. |
|
952 ]. |
|
953 |
|
954 (fn isReadable and:[fn isWritable]) ifFalse:[ |
|
955 (self confirm:(resources |
|
956 stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?' |
|
957 with:nm) |
|
958 ) ifFalse:[ |
|
959 self sourceCacheDir value:previousDir. |
|
960 ^ self. |
|
961 ]. |
|
962 fn |
|
963 makeReadableForAll; |
|
964 makeWritableForAll; |
|
965 makeExecutableForAll. |
|
966 ]. |
|
967 "/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[ |
|
968 "/ (self confirm:(resources |
|
969 "/ stringWithCRs:'SourceCache directory "%1" is not both readable and writable for other users.\Change ?' |
|
970 "/ with:nm) |
|
971 "/ ) ifTrue:[ |
|
972 "/ fn |
|
973 "/ makeReadableForAll; |
|
974 "/ makeWritableForAll; |
|
975 "/ makeExecutableForAll. |
|
976 "/ ] |
|
977 "/ ]. |
|
978 ! |
|
979 |
|
980 update:something with:aParameter from:changedObject |
920 update:something with:aParameter from:changedObject |
981 "/ common |
|
982 changedObject == sourceCacheDir ifTrue:[ |
|
983 self sourceDirChanged. |
|
984 self updateModifiedChannel. |
|
985 ^ self |
|
986 ]. |
|
987 |
921 |
988 "/ cvs |
922 "/ cvs |
989 changedObject == cvsRootHolder ifTrue:[ |
923 changedObject == cvsRootHolder ifTrue:[ |
990 self updateModifiedChannel. |
924 self updateModifiedChannel. |
991 self updateLoginEnableHolders. |
925 self updateLoginEnableHolders. |