# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1140177933 -3600
# Node ID ae6fe65e9f33655c20731f2e172f7cc9c988223d
# Parent  1ee7fa2d8f05042638364e48e42068446ee380c3
embedding as special editors

diff -r 1ee7fa2d8f05 -r ae6fe65e9f33 ImageEditor.st
--- 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.
     ]
 !