Mercurial Mercurial > hg > stx-libbasic2 / 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.
undo - combine multiple-single keystrokes
authorClaus Gittinger <cg@exept.de>
Tue, 19 Apr 2005 12:01:30 +0200
changeset 1550 7710a4b44cc9
parent 1549 b35755379765
child 1551 d590a6103055
undo - combine multiple-single keystrokes
UndoSupport.st file | annotate | diff | comparison | revisions 
--- a/UndoSupport.st	Tue Apr 19 12:01:01 2005 +0200
+++ b/UndoSupport.st	Tue Apr 19 12:01:30 2005 +0200
@@ -116,7 +116,7 @@
 
             aList notEmpty ifTrue:[
                 lastAction := aList last.
-                canCombine := lastAction canCombineWithNext:actionToAdd.
+                canCombine := lastAction perform:#canCombineWithNext: with:actionToAdd ifNotUnderstood:false.
             ].
         ] ifFalse:[
             actionToAdd := (CompoundAction new actions:transaction).
@@ -245,5 +245,5 @@
 !UndoSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.6 2005-04-19 10:01:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.7 2005-04-19 10:01:30 cg Exp $'
 ! !
hg/stx-libbasic2