1099     |module entry|

  1099     |module entry newRemoveEnabled newPerModuleRootModule newPerModuleRoot|

  1100 

  1100 

  1101     self acceptChannel value:true.    

  1101     self acceptChannel value:true.

  1102     

  1103     newRemoveEnabled := false.

  1104     newPerModuleRootModule := ' '.

  1105     newPerModuleRoot := ''.

  1106 

  1103     module isNil ifTrue:[ 

  1108     module notNil ifTrue:[ 

  1104         self removeEnabled value:false.

  1109         entry := rootsPerModule at:module ifAbsent:#().    

  1105         self perModuleRootModule value:' '.

  1110         (entry first = CVSSourceCodeManager) ifTrue:[

  1106         self perModuleRoot value:''.

  1111             newRemoveEnabled := true.

  1107         ^ self

  1112             newPerModuleRootModule := module.

  1108     ].

  1113             newPerModuleRoot := (entry at:2).

  1109 

  1114         ] ifFalse:[

  1110     entry := rootsPerModule at:module ifAbsent:#().    

  1115             newPerModuleRootModule := module,' ',('<< use ',entry first managerTypeName,' >>') allBold.

  1111     (entry first = CVSSourceCodeManager) ifTrue:[

  1116         ].

  1112         self removeEnabled value:true.

  1117     ].

  1113         self perModuleRootModule value:module.

  1118     

  1114         self perModuleRoot value:(entry at:2).

  1119     self removeEnabled value:newRemoveEnabled.

  1115     ] ifFalse:[

  1120     self perModuleRootModule value:newPerModuleRootModule.

  1116         self removeEnabled value:false.

  1121     self perModuleRoot value:newPerModuleRoot.

  1117         self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.

  1122 

  1118         self perModuleRoot value:''.

  1123     "Modified: / 16-07-2019 / 14:42:48 / Claus Gittinger"

  1119     ].