equal
deleted
inserted
replaced
1540 compareProjectWithRepository:aProject |
1540 compareProjectWithRepository:aProject |
1541 |classesInImage filesInImage module directory perProjectInfo |
1541 |classesInImage filesInImage module directory perProjectInfo |
1542 classesNotInRepository filesNotInImage classesDeletedInRepository |
1542 classesNotInRepository filesNotInImage classesDeletedInRepository |
1543 classesModifiedInImage classesNotReallyModified classesReallyModified classesModifiedInRepository |
1543 classesModifiedInImage classesNotReallyModified classesReallyModified classesModifiedInRepository |
1544 classesDeletedInImage classesAddedInImage |
1544 classesDeletedInImage classesAddedInImage |
1545 extensionsInImage extensionsInRepository extensionDiffs |
1545 extensionMethods extensionsInImage extensionsInRepository extensionDiffs |
1546 anyDifference box doRemove doCleanup classDefs changeSets filePerClassDefintion |
1546 anyDifference box doRemove doCleanup classDefs changeSets filePerClassDefintion |
1547 classesToCheckIn resources diffSet def autoloadedFilesNotInImage |
1547 classesToCheckIn resources diffSet def autoloadedFilesNotInImage |
1548 autoloadedClassesInImage autoloadedFilesInImage| |
1548 autoloadedClassesInImage autoloadedFilesInImage| |
1549 |
1549 |
1550 resources := self classResources. |
1550 resources := self classResources. |
1578 v notNil and:[ cls isLoaded and:[ v > cls revision ]]]. |
1578 v notNil and:[ cls isLoaded and:[ v > cls revision ]]]. |
1579 |
1579 |
1580 "/ stupid: as we do not have any revision information for extensions (sigh); |
1580 "/ stupid: as we do not have any revision information for extensions (sigh); |
1581 "/ we must checkout and look at the extension.st contents, to see if it has changed. |
1581 "/ we must checkout and look at the extension.st contents, to see if it has changed. |
1582 |
1582 |
1583 extensionsInImage := OrderedCollection new. |
1583 extensionMethods := Smalltalk allExtensionsForPackage:aProject. |
1584 Smalltalk allClasses do:[:eachClass | |
1584 extensionsInImage := ChangeSet forExistingMethods:extensionMethods. |
1585 extensionsInImage addAll:(eachClass extensionsFrom:aProject) |
|
1586 ]. |
|
1587 extensionsInImage := ChangeSet forExistingMethods:extensionsInImage. |
|
1588 |
1585 |
1589 [ |
1586 [ |
1590 |s| |
1587 |s| |
1591 |
1588 |
1592 s := SourceCodeManager |
1589 s := SourceCodeManager |
2935 ! ! |
2932 ! ! |
2936 |
2933 |
2937 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2934 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2938 |
2935 |
2939 version |
2936 version |
2940 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.173 2008-07-18 10:19:48 cg Exp $' |
2937 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.174 2008-09-06 11:12:42 cg Exp $' |
2941 ! ! |
2938 ! ! |