--- a/UndoSupport.st	Thu Nov 25 18:45:24 2004 +0100
+++ b/UndoSupport.st	Tue Nov 30 12:53:01 2004 +0100
@@ -136,6 +136,10 @@
     self executeActionFrom:undoList addUndoTo:redoList
 !
 
+undoActionInfo
+    ^ undoList last info
+!
+
 undoableDo:aBlock
     transaction notNil ifTrue:[
         aBlock value.
@@ -165,10 +169,14 @@
 
 executeIn:editor 
     actions reverseDo:[:each | each executeIn:editor ]
+!
+
+info
+    ^ actions first info , '..'
 ! !
 
 !UndoSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.1 2004-06-07 09:33:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.2 2004-11-30 11:53:01 cg Exp $'
 ! !