--- a/EditTextView.st	Fri Feb 29 14:19:28 2008 +0100
+++ b/EditTextView.st	Sat Mar 08 11:53:11 2008 +0100
@@ -5153,7 +5153,7 @@
     <resource: #programMenu>
 
     |items m sub translateItems sortItems miscItems toolItems subSub toolSub 
-     transSub sortSub what undoIdx sensor main mainItems|
+     transSub sortSub what undoIdx redoIdx sensor main mainItems|
 
     items := #(
                     ('Redo'             redo                    )
@@ -5315,7 +5315,13 @@
         ]
     ].
     self hasRedoAction ifFalse:[
-        m disable:#redo.
+        sub disable:#redo.
+    ] ifTrue:[
+        what := undoSupport redoActionInfo.
+        what notNil ifTrue:[
+            redoIdx := sub indexOf:#redo.
+            sub labelAt:redoIdx put:(resources string:'Redo (%1)' with:what).
+        ]
     ].
     acceptEnabled == false ifTrue:[
         m disable:#accept
@@ -7223,5 +7229,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.425 2008-02-28 09:34:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.426 2008-03-08 10:53:11 cg Exp $'
 ! !