602 ]. |
602 ]. |
603 |
603 |
604 "Created: / 05-12-2017 / 20:03:19 / cg" |
604 "Created: / 05-12-2017 / 20:03:19 / cg" |
605 "Modified: / 05-12-2017 / 23:15:52 / cg" |
605 "Modified: / 05-12-2017 / 23:15:52 / cg" |
606 "Modified: / 23-09-2018 / 04:18:14 / Claus Gittinger" |
606 "Modified: / 23-09-2018 / 04:18:14 / Claus Gittinger" |
|
607 ! |
|
608 |
|
609 tagExtensionsFromPackage:aPackageID with:tag |
|
610 "checkin a projects extensions into the source repository. |
|
611 If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message." |
|
612 |
|
613 |logMessage checkinInfo mgr pri module directory containerFileName extensionsSource path| |
|
614 |
|
615 mgr := self sourceCodeManagerFor:aPackageID asPackageId projectDefinitionClass. |
|
616 mgr isNil ifTrue:[ ^ false ]. |
|
617 |
|
618 module := aPackageID asPackageId module. |
|
619 directory := aPackageID asPackageId directory. |
|
620 containerFileName := self nameOfExtensionsContainer. |
|
621 |
|
622 (mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[ |
|
623 (self checkForExistingModule:module usingManager:mgr allowCreate:true) ifFalse:[^ false]. |
|
624 LastModule := module. |
|
625 |
|
626 (self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:true) ifFalse:[^ false]. |
|
627 LastPackage := directory. |
|
628 |
|
629 (self checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:true) ifFalse:[^ false]. |
|
630 ]. |
|
631 |
|
632 self activityNotification:(resources string:'Tagging %1' with:containerFileName). |
|
633 |
|
634 path := (module, '/', directory, '/', containerFileName). |
|
635 self tagPath:path as:tag usingManager:mgr. |
|
636 ^ true |
607 ! ! |
637 ! ! |
608 |
638 |
609 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
639 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
610 |
640 |
611 version |
641 version |