SourceCodeManagerUtilities.st
changeset 1955 1aff23eff628
parent 1921 ab2e300fbc9c
child 1964 8137bfb6a7ea
--- 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 $'
 ! !