--- a/ImageEditor.st Thu Feb 16 20:01:23 2006 +0100
+++ b/ImageEditor.st Fri Feb 17 13:05:33 2006 +0100
@@ -3378,18 +3378,20 @@
imageEditView resourceClass:aClass.
imageEditView resourceSelector:aSelector.
imageEditView image:nil.
+ self clearModified.
^ self.
].
- (imageEditView resourceClass == aClass
- and:[ imageEditView resourceSelector == aSelector ]) ifTrue:[
- imageEditView modified ifFalse:[
- ^ self.
- ].
- ].
+"/ (imageEditView resourceClass == aClass
+"/ and:[ imageEditView resourceSelector == aSelector ]) ifTrue:[
+"/ imageEditView modified ifFalse:[
+"/ ^ self.
+"/ ].
+"/ ].
(imageEditView loadFromClass:aClass andSelector:aSelector) notNil ifTrue:[
self updateAfterImageChange.
+ self clearModified.
]
"Modified: / 16.3.1999 / 21:44:41 / cg"
@@ -3574,6 +3576,11 @@
^ imageEditView modified
!
+modified:aBoolean
+ super modified:aBoolean.
+ imageEditView modified:aBoolean
+!
+
preferredExtent
"returns the preferred extent"
@@ -5209,6 +5216,7 @@
"saves current image to current file"
imageEditView save.
+ self clearModified.
!
doSaveImageFileAs
@@ -5238,6 +5246,7 @@
imageEditView saveImageFileAs:file.
LastDirectory := file asFilename directoryName.
self updateLabelsAndHistory.
+ self clearModified.
]
!
@@ -5251,7 +5260,8 @@
"saves the image in current class and selector"
imageEditView saveMethod ifTrue:[
- self updateLabelsAndHistory
+ self updateLabelsAndHistory.
+ self clearModified.
]
!
@@ -5259,7 +5269,8 @@
"opens a dialog for saving current image on a class and a selector"
imageEditView saveMethodAs ifTrue:[
- self updateLabelsAndHistory
+ self updateLabelsAndHistory.
+ self clearModified.
]
!