UIPainter.st
changeset 2202 b465c7e48050
parent 2198 804e778590fc
child 2206 1a7921b6c104
--- a/UIPainter.st	Fri Nov 30 16:50:35 2007 +0100
+++ b/UIPainter.st	Mon Dec 03 10:56:56 2007 +0100
@@ -3260,12 +3260,13 @@
         ^ self
     ].
 
-    self autoAcceptOnSelectionChange value ifTrue:[
-        self accept
-    ] ifFalse:[
-        self askForUnsavedModifications ifFalse:[^ self].
+    self isModified ifTrue:[
+        self autoAcceptOnSelectionChange value ifTrue:[
+            self accept
+        ] ifFalse:[
+            self askForUnsavedModifications ifFalse:[^ self].
+        ].
     ].
-
     tabSelection := something.
     self raiseTabView.
     self cancel.