--- a/UndoSupport.st	Fri Feb 29 11:11:40 2008 +0100
+++ b/UndoSupport.st	Sat Mar 08 11:53:23 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 Object subclass:#UndoSupport
@@ -183,6 +182,10 @@
     self executeActionFrom:redoList addUndoTo:undoList
 !
 
+redoActionInfo
+    ^ redoList last info
+!
+
 undo
     self executeActionFrom:undoList addUndoTo:redoList
 !
@@ -247,5 +250,5 @@
 !UndoSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.8 2006-01-25 10:39:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.9 2008-03-08 10:53:23 cg Exp $'
 ! !