446 |
446 |
447 <resource: #obsolete> |
447 <resource: #obsolete> |
448 |
448 |
449 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
449 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
450 |
450 |
451 ^self default compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
451 ^self compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
|
452 ! |
|
453 |
|
454 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
455 |
|
456 <resource: #obsolete> |
|
457 |
|
458 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
459 |
|
460 ^self default compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
452 ! |
461 ! |
453 |
462 |
454 compareProjectWithRepository:aProject |
463 compareProjectWithRepository:aProject |
455 |
464 |
456 <resource: #obsolete> |
465 <resource: #obsolete> |
482 |
491 |
483 <resource: #obsolete> |
492 <resource: #obsolete> |
484 |
493 |
485 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
494 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
486 |
495 |
487 ^self default diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
496 ^self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
|
497 ! |
|
498 |
|
499 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
|
500 |
|
501 <resource: #obsolete> |
|
502 |
|
503 self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'. |
|
504 |
|
505 ^self default |
|
506 diffSetOfProject:aProject |
|
507 againstRepositoryVersionFrom:aDateOrNilForNewest |
|
508 extensionsOnly:extensionsOnly |
488 ! |
509 ! |
489 |
510 |
490 ensureCorrectVersionMethodsInClass:aClass usingManager:aManager |
511 ensureCorrectVersionMethodsInClass:aClass usingManager:aManager |
491 |
512 |
492 <resource: #obsolete> |
513 <resource: #obsolete> |
2383 |
2404 |
2384 "Created: / 04-04-2014 / 15:23:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2405 "Created: / 04-04-2014 / 15:23:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2385 ! |
2406 ! |
2386 |
2407 |
2387 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
2408 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest |
|
2409 ^ self compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
|
2410 ! |
|
2411 |
|
2412 compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
2388 |diffSet| |
2413 |diffSet| |
2389 |
2414 |
2390 diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest. |
2415 diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly. |
2391 VersionDiffBrowser |
2416 VersionDiffBrowser |
2392 openOnDiffSet:diffSet |
2417 openOnDiffSet:diffSet |
2393 labelA:'Repository' |
2418 labelA:'Repository' |
2394 labelB:'Image' |
2419 labelB:'Image' |
2395 title:('Differences of %1' bindWith:aProject) |
2420 title:('Differences of %1' bindWith:aProject) |
2404 |
2429 |
2405 diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aSymbolicName. |
2430 diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aSymbolicName. |
2406 |
2431 |
2407 VersionDiffBrowser |
2432 VersionDiffBrowser |
2408 openOnDiffSet:diffSet |
2433 openOnDiffSet:diffSet |
2409 labelA:'Repository ("',aSymbolicName,'")' |
2434 labelA:'Repository ("',(aSymbolicName?'newest'),'")' |
2410 labelB:'Image' |
2435 labelB:'Image' |
2411 title:('Differences of %1' bindWith:aProject) |
2436 title:('Differences of %1' bindWith:aProject) |
2412 ignoreExtensions:true |
2437 ignoreExtensions:true |
2413 ignoreVersionMethods:true. |
2438 ignoreVersionMethods:true. |
2414 |
2439 |
2787 |
2812 |
2788 "Created: / 21-12-2011 / 18:34:02 / cg" |
2813 "Created: / 21-12-2011 / 18:34:02 / cg" |
2789 ! |
2814 ! |
2790 |
2815 |
2791 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
2816 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest |
|
2817 ^ self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:false |
|
2818 ! |
|
2819 |
|
2820 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest extensionsOnly:extensionsOnly |
2792 ^ self |
2821 ^ self |
2793 diffSetOfProject:aProject |
2822 diffSetOfProject:aProject |
2794 againstRepositoryVersionFrom:aDateOrNilForNewest |
2823 againstRepositoryVersionFrom:aDateOrNilForNewest |
2795 orTag:nil |
2824 orTag:nil |
|
2825 extensionsOnly:extensionsOnly |
2796 ! |
2826 ! |
2797 |
2827 |
2798 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil |
2828 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil |
|
2829 "return a diffset against either the newest (head), or the version at a particular date, |
|
2830 or a the version with a particular tag." |
|
2831 |
|
2832 ^ self |
|
2833 diffSetOfProject:aProject |
|
2834 againstRepositoryVersionFrom:aDateOrNilForNewest |
|
2835 orTag:aTagOrNil |
|
2836 extensionsOnly:false |
|
2837 |
|
2838 "Modified: / 01-11-2010 / 21:02:52 / cg" |
|
2839 ! |
|
2840 |
|
2841 diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil extensionsOnly:extensionsOnly |
2799 "return a diffset against either the newest (head), or the version at a particular date, |
2842 "return a diffset against either the newest (head), or the version at a particular date, |
2800 or a the version with a particular tag." |
2843 or a the version with a particular tag." |
2801 |
2844 |
2802 |classesInImage filesInImage module directory perProjectInfo |
2845 |classesInImage filesInImage module directory perProjectInfo |
2803 classesNotInRepository filesNotInImage classesDeletedInRepository |
2846 classesNotInRepository filesNotInImage classesDeletedInRepository |
2879 |
2922 |
2880 "/ ignore package doIts and all extensionVersion_xxx methods |
2923 "/ ignore package doIts and all extensionVersion_xxx methods |
2881 extensionsInRepository := versionMethodsAndDoitsRejected value:extensionsInRepository. |
2924 extensionsInRepository := versionMethodsAndDoitsRejected value:extensionsInRepository. |
2882 ] value. |
2925 ] value. |
2883 extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage. |
2926 extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage. |
2884 |
2927 extensionsOnly ifTrue:[ |
|
2928 ^ extensionDiffs |
|
2929 ]. |
|
2930 |
2885 diffSet := extensionDiffs copy. |
2931 diffSet := extensionDiffs copy. |
2886 |
2932 |
2887 (aDateOrNilForNewest isNil and:[aTagOrNil isNil]) ifTrue:[ |
2933 (aDateOrNilForNewest isNil and:[aTagOrNil isNil]) ifTrue:[ |
2888 "/ we could do the same as below for each class. |
2934 "/ we could do the same as below for each class. |
2889 "/ however - as we do have change-info and revision info, we can avoid checking out |
2935 "/ however - as we do have change-info and revision info, we can avoid checking out |