1168 ! ! |
1168 ! ! |
1169 |
1169 |
1170 !MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
1170 !MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
1171 |
1171 |
1172 selectedPerModuleRepositoryChanged |
1172 selectedPerModuleRepositoryChanged |
1173 |repository entry| |
1173 |module entry newRemoveEnabled newPerModuleRootModule newPerModuleRoot| |
1174 |
1174 |
1175 self acceptChannel value:true. |
1175 self acceptChannel value:true. |
1176 repository := self selectedPerModuleRepository value. |
1176 |
1177 repository isNil ifTrue:[ |
1177 newRemoveEnabled := false. |
1178 self removeEnabled value:false. |
1178 newPerModuleRootModule := ' '. |
1179 self perModuleRepositoryModule value:' '. |
1179 newPerModuleRoot := ''. |
1180 self perModuleRepository value:''. |
1180 |
1181 ^ self |
1181 module := self selectedPerModuleRepository value. |
1182 ]. |
1182 module notNil ifTrue:[ |
1183 |
1183 entry := repositoriesPerModule at:module ifAbsent:#(). |
1184 entry := repositoriesPerModule at:repository ifAbsent:#(). |
1184 (entry first = MercurialSourceCodeManager) ifTrue:[ |
1185 (entry first = MercurialSourceCodeManager) ifTrue:[ |
1185 newRemoveEnabled := true. |
1186 self removeEnabled value:true. |
1186 newPerModuleRootModule := module. |
1187 self perModuleRepositoryModule value:repository. |
1187 newPerModuleRoot := (entry at:2). |
1188 self perModuleRepository value:(entry at:2). |
1188 ] ifFalse:[ |
1189 ] ifFalse:[ |
1189 newPerModuleRootModule := module,' ',('<< use ',entry first managerTypeName,' >>') allBold. |
1190 self removeEnabled value:false. |
1190 ]. |
1191 self perModuleRepositoryModule value:repository , ' ',('<< use ',entry first managerTypeName,' >>') allBold. |
1191 ]. |
1192 self perModuleRepository value:''. |
1192 |
1193 ]. |
1193 self removeEnabled value:newRemoveEnabled. |
|
1194 self perModuleRepositoryModule value:newPerModuleRootModule. |
|
1195 self perModuleRepository value:newPerModuleRoot. |
1194 |
1196 |
1195 "Created: / 14-01-2012 / 20:24:57 / cg" |
1197 "Created: / 14-01-2012 / 20:24:57 / cg" |
1196 "Modified: / 16-07-2019 / 14:35:02 / Claus Gittinger" |
1198 "Modified (format): / 16-07-2019 / 14:58:49 / Claus Gittinger" |
1197 ! |
1199 ! |
1198 |
1200 |
1199 update:something with:aParameter from:changedObject |
1201 update:something with:aParameter from:changedObject |
1200 |
1202 |
1201 "/ cvs |
1203 "/ cvs |