equal
deleted
inserted
replaced
31 be provided or otherwise made available to, or used by, any |
31 be provided or otherwise made available to, or used by, any |
32 other person. No title to or ownership of the software is |
32 other person. No title to or ownership of the software is |
33 hereby transferred. |
33 hereby transferred. |
34 " |
34 " |
35 ! ! |
35 ! ! |
36 |
|
37 |
36 |
38 !SourceCodeManagerUtilitiesForContainerBasedManagers methodsFor:'utilities-cvs'! |
37 !SourceCodeManagerUtilitiesForContainerBasedManagers methodsFor:'utilities-cvs'! |
39 |
38 |
40 checkinBuildSupportFilesForPackage:packageID |
39 checkinBuildSupportFilesForPackage:packageID |
41 |anyFailure module directory mgr defClass | |
40 |anyFailure module directory mgr defClass | |
260 checkinInfo isStable ifTrue:[ |
259 checkinInfo isStable ifTrue:[ |
261 "set stable tag for class that has been checked in" |
260 "set stable tag for class that has been checked in" |
262 self tagClass:aClass as:#stable. |
261 self tagClass:aClass as:#stable. |
263 ]. |
262 ]. |
264 checkinInfo tagIt ifTrue:[ |
263 checkinInfo tagIt ifTrue:[ |
265 "set an additional tag for class that has been checked in" |
264 "set any additional tags for the class that has been checked in" |
266 self tagClass:aClass as:(checkinInfo tag). |
265 (checkinInfo tag asCollectionOfSubstringsSeparatedByAny:',;') do:[:eachTag | |
|
266 self tagClass:aClass as:eachTag withoutSeparators. |
|
267 ]. |
267 ]. |
268 ]. |
|
269 CVSSourceCodeManager recentTag:checkinInfo tag. |
268 ]. |
270 ]. |
269 ]. |
271 ]. |
270 aborted ifTrue:[ |
272 aborted ifTrue:[ |
271 Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'. |
273 Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'. |
272 |
274 |
386 |
388 |
387 (checkinInfoOrString isStable or:[checkinInfoOrString tagIt]) |
389 (checkinInfoOrString isStable or:[checkinInfoOrString tagIt]) |
388 ifTrue:[ |
390 ifTrue:[ |
389 "/mhmh - but tag should be set on all (even unchanged ones) |
391 "/mhmh - but tag should be set on all (even unchanged ones) |
390 "/ the other onces have already been tagged |
392 "/ the other onces have already been tagged |
391 unchangedClasses := allClasses select:[:eachClass | (classes includes:eachClass) not]. |
393 unchangedClasses := allClasses reject:[:eachClass | (classes includes:eachClass)]. |
392 |
394 |
393 "mhmh - could still have to tag them" |
395 "mhmh - could still have to tag them" |
394 checkinInfoOrString isStable ifTrue:[ |
396 checkinInfoOrString isStable ifTrue:[ |
395 unchangedClasses do:[:eachClass | |
397 unchangedClasses do:[:eachClass | |
396 self tagClass:eachClass as:#stable. |
398 self tagClass:eachClass as:#stable. |
758 |
760 |
759 "Created: / 13-10-2011 / 11:15:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
761 "Created: / 13-10-2011 / 11:15:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
760 "Modified: / 04-09-2012 / 14:05:36 / cg" |
762 "Modified: / 04-09-2012 / 14:05:36 / cg" |
761 ! ! |
763 ! ! |
762 |
764 |
763 |
|
764 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
765 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
765 |
766 |
766 version |
767 version |
767 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.11 2013-05-07 16:45:04 cg Exp $' |
768 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.15 2013-06-09 14:31:45 cg Exp $' |
768 ! |
769 ! |
769 |
770 |
770 version_CVS |
771 version_CVS |
771 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.11 2013-05-07 16:45:04 cg Exp $' |
772 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.15 2013-06-09 14:31:45 cg Exp $' |
772 ! |
773 ! |
773 |
774 |
774 version_HG |
775 version_HG |
775 |
776 |
776 ^ '$Changeset: <not expanded> $' |
777 ^ '$Changeset: <not expanded> $' |