equal
deleted
inserted
replaced
259 checkinInfo isStable ifTrue:[ |
259 checkinInfo isStable ifTrue:[ |
260 "set stable tag for class that has been checked in" |
260 "set stable tag for class that has been checked in" |
261 self tagClass:aClass as:#stable. |
261 self tagClass:aClass as:#stable. |
262 ]. |
262 ]. |
263 checkinInfo tagIt ifTrue:[ |
263 checkinInfo tagIt ifTrue:[ |
264 "set an additional tag for class that has been checked in" |
264 "set any additional tags for the class that has been checked in" |
265 self tagClass:aClass as:(checkinInfo tag). |
265 (checkinInfo tag asCollectionOfSubstringsSeparatedByAny:',;') do:[:eachTag | |
|
266 self tagClass:aClass as:eachTag withoutSeparators. |
|
267 ] |
266 ]. |
268 ]. |
267 ]. |
269 ]. |
268 ]. |
270 ]. |
269 aborted ifTrue:[ |
271 aborted ifTrue:[ |
270 Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'. |
272 Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'. |
385 |
387 |
386 (checkinInfoOrString isStable or:[checkinInfoOrString tagIt]) |
388 (checkinInfoOrString isStable or:[checkinInfoOrString tagIt]) |
387 ifTrue:[ |
389 ifTrue:[ |
388 "/mhmh - but tag should be set on all (even unchanged ones) |
390 "/mhmh - but tag should be set on all (even unchanged ones) |
389 "/ the other onces have already been tagged |
391 "/ the other onces have already been tagged |
390 unchangedClasses := allClasses select:[:eachClass | (classes includes:eachClass) not]. |
392 unchangedClasses := allClasses reject:[:eachClass | (classes includes:eachClass)]. |
391 |
393 |
392 "mhmh - could still have to tag them" |
394 "mhmh - could still have to tag them" |
393 checkinInfoOrString isStable ifTrue:[ |
395 checkinInfoOrString isStable ifTrue:[ |
394 unchangedClasses do:[:eachClass | |
396 unchangedClasses do:[:eachClass | |
395 self tagClass:eachClass as:#stable. |
397 self tagClass:eachClass as:#stable. |
760 ! ! |
762 ! ! |
761 |
763 |
762 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
764 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'! |
763 |
765 |
764 version |
766 version |
765 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.11 2013-05-07 16:45:04 cg Exp $' |
767 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.13 2013-06-06 10:56:27 cg Exp $' |
766 ! |
768 ! |
767 |
769 |
768 version_CVS |
770 version_CVS |
769 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.11 2013-05-07 16:45:04 cg Exp $' |
771 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.13 2013-06-06 10:56:27 cg Exp $' |
770 ! ! |
772 ! ! |
771 |
773 |