author | ca |
Mon, 03 Dec 2007 10:56:56 +0100 | |
changeset 2202 | b465c7e48050 |
parent 2201 | c68492590b1b |
child 2203 | 919b6f0753fa |
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.