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.