# HG changeset patch
# User ca
# Date 1196675816 -3600
# Node ID b465c7e480505197af42a2bce0d970feaca85e71
# Parent  c68492590b1b954bcfb950e2a1e2246bd6b54d87
changed #tabSelection:

diff -r c68492590b1b -r b465c7e48050 UIPainter.st
--- 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.