Mercurial Mercurial > hg > stx-libwidg2 / 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.
#FEATURE
authorClaus Gittinger <cg@exept.de>
Wed, 02 Mar 2016 17:23:31 +0100
changeset 4967 d7192072dceb
parent 4966 fd25317b66de
child 4968 0badb27fa19f
child 4969 338e10e12404
#FEATURE class: ImageEditView changed: #undo
ImageEditView.st file | annotate | diff | comparison | revisions 
--- a/ImageEditView.st	Wed Mar 02 17:23:19 2016 +0100
+++ b/ImageEditView.st	Wed Mar 02 17:23:31 2016 +0100
@@ -1952,8 +1952,12 @@
 undo
     undoImages notEmpty ifTrue:[           
         windowGroup withExecuteCursorDo:[
+            |oldImage newImage|
+            
+            oldImage := self image.
+            newImage := undoImages removeLast.
             self clearModified.
-            self image:(undoImages removeLast) scroll:false.
+            self image:newImage scroll:(newImage extent ~= oldImage extent) "false".
             "/ self changed:#image.
         ]
     ]
hg/stx-libwidg2