Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed #tabSelection:
authorca
Mon, 03 Dec 2007 10:56:56 +0100
changeset 2202 b465c7e48050
parent 2201 c68492590b1b
child 2203 919b6f0753fa
changed #tabSelection:
UIPainter.st file | annotate | diff | comparison | revisions 
--- 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.
hg/stx-libtool2