532 ! ! |
532 ! ! |
533 |
533 |
534 !FileBasedSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
534 !FileBasedSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
535 |
535 |
536 selectedPerModulePathChanged |
536 selectedPerModulePathChanged |
537 |module entry| |
537 |module entry newRemoveEnabled newPerModuleRootModule newPerModuleRoot| |
538 |
538 |
539 self acceptChannel value:true. |
539 self acceptChannel value:true. |
540 |
540 |
|
541 newRemoveEnabled := false. |
|
542 newPerModuleRootModule := ' '. |
|
543 newPerModuleRoot := ''. |
|
544 |
541 module := self selectedPerModulePath value. |
545 module := self selectedPerModulePath value. |
542 module isNil ifTrue:[ |
546 module notNil ifTrue:[ |
543 self removeEnabled value:false. |
547 entry := pathPerModule at:module ifAbsent:#(). |
544 self perModulePathModule value:' '. |
548 (entry first = FileBasedSourceCodeManager) ifTrue:[ |
545 self perModulePath value:''. |
549 newRemoveEnabled := true. |
546 ^ self |
550 newPerModuleRootModule := module. |
547 ]. |
551 newPerModuleRoot := (entry at:2). |
548 |
552 ] ifFalse:[ |
549 entry := pathPerModule at:module ifAbsent:#(). |
553 newPerModuleRootModule := module,' ',('<< use ',entry first managerTypeName,' >>') allBold. |
550 (entry first = FileBasedSourceCodeManager) ifTrue:[ |
554 ]. |
551 self removeEnabled value:true. |
555 ]. |
552 self perModulePathModule value:module. |
556 |
553 self perModulePath value:(entry at:2). |
557 self removeEnabled value:newRemoveEnabled. |
554 ] ifFalse:[ |
558 self perModulePathModule value:newPerModuleRootModule. |
555 self removeEnabled value:false. |
559 self perModulePath value:newPerModuleRoot. |
556 self perModulePathModule value:module , ' ',('<< use ',entry first managerTypeName,' >>') allBold. |
|
557 self perModulePath value:''. |
|
558 ]. |
|
559 |
560 |
560 "Created: / 21-12-2011 / 14:35:04 / cg" |
561 "Created: / 21-12-2011 / 14:35:04 / cg" |
561 "Modified: / 16-07-2019 / 14:35:17 / Claus Gittinger" |
562 "Modified: / 16-07-2019 / 14:50:56 / Claus Gittinger" |
562 ! |
563 ! |
563 |
564 |
564 update:something with:aParameter from:changedObject |
565 update:something with:aParameter from:changedObject |
565 changedObject == selectedPerModulePath ifTrue:[ |
566 changedObject == selectedPerModulePath ifTrue:[ |
566 self selectedPerModulePathChanged. |
567 self selectedPerModulePathChanged. |