--- a/SourceCodeManagerUtilities.st Tue Oct 27 10:44:32 2009 +0100
+++ b/SourceCodeManagerUtilities.st Sat Oct 31 13:31:04 2009 +0100
@@ -555,7 +555,7 @@
allClasses := classes.
checkinInfoOrString quickCheckIn ifTrue:[
- classes := classes select:[:aClass | ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass].
+ classes := classes select:[:aClass | aClass hasUnsavedChanges].
].
AbortAllOperationRequest handle:[:ex |
@@ -941,7 +941,7 @@
^ self.
].
- inChangeSet := ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass.
+ inChangeSet := aClass hasUnsavedChanges.
self activityNotification:'generating current source...'.
@@ -1232,7 +1232,7 @@
"/ ].
answer == #load ifTrue:[
- inChangeSet := ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass.
+ inChangeSet := aClass hasUnsavedChanges.
inChangeSet ifTrue:[
rev = newestRev ifTrue:[
(wasInChangeSetBefore not
@@ -1565,7 +1565,7 @@
].
versionsAreTheSame ifTrue:[
- (ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:classToCompare) ifTrue:[
+ (classToCompare hasUnsavedChanges) ifTrue:[
(self confirm:(resources
stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
with:classToCompare name allBold)) ifTrue:[
@@ -3170,9 +3170,9 @@
!SourceCodeManagerUtilities class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.196 2009-10-26 16:36:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.197 2009-10-31 12:31:04 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.196 2009-10-26 16:36:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.197 2009-10-31 12:31:04 cg Exp $'
! !