--- a/SourceCodeManagerUtilities.st Thu Feb 22 18:05:55 2007 +0100
+++ b/SourceCodeManagerUtilities.st Thu Mar 01 18:03:24 2007 +0100
@@ -1485,7 +1485,8 @@
classesDeletedInImage classesAddedInImage
extensionsInImage extensionsInRepository extensionDiffs
anyDifference box doRemove doCleanup classDefs changeSets filePerClassDefintion
- classesToCheckIn resources diffSet def autoloadedFilesNotInImage|
+ classesToCheckIn resources diffSet def autoloadedFilesNotInImage
+ autoloadedClassesInImage autoloadedFilesInImage|
resources := self classResources.
@@ -1497,13 +1498,17 @@
perProjectInfo := Dictionary withAssociations:perProjectInfo.
classesInImage := Smalltalk allClassesInPackage:aProject.
+ autoloadedClassesInImage := classesInImage reject:[:cls | cls isLoaded].
+ classesInImage := classesInImage select:[:cls | cls isLoaded].
classesInImage := classesInImage reject:[:cls | cls isPrivate].
filesInImage := (classesInImage collect:[:cls | cls classBaseFilename]) asSet.
+ autoloadedFilesInImage := (autoloadedClassesInImage collect:[:cls | cls classBaseFilename]) asSet.
"/ any differences ?
classesNotInRepository := classesInImage reject:[:cls | (perProjectInfo includesKey:cls classBaseFilename)].
classesDeletedInRepository := classesInImage select:[:cls | (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted].
perProjectInfo := perProjectInfo reject:[:v | v == #deleted].
filesNotInImage := perProjectInfo keys reject:[:file | (filesInImage includes:file)].
+ filesNotInImage := filesNotInImage reject:[:file | (autoloadedFilesInImage includes:file)].
filesNotInImage remove:'extensions.st' ifAbsent:[].
classesModifiedInImage := classesInImage select:[:cls |ChangeSet current includesChangeForClassOrMetaclass:cls].
@@ -1677,7 +1682,7 @@
title:('Differences of %1' bindWith:aProject).
"Created: / 12-10-2006 / 21:44:54 / cg"
- "Modified: / 25-10-2006 / 18:08:21 / cg"
+ "Modified: / 01-03-2007 / 17:59:20 / cg"
!
createSourceContainerForClass:aClass
@@ -2854,5 +2859,5 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.156 2006-12-05 17:40:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.157 2007-03-01 17:03:24 cg Exp $'
! !