--- a/MultiViewToolApplication.st	Sat Dec 20 00:21:59 2008 +0100
+++ b/MultiViewToolApplication.st	Sat Dec 20 00:22:01 2008 +0100
@@ -1043,6 +1043,14 @@
     self selectedWorkspacesTextView paste:aString.
 !
 
+redo
+    |v|
+
+    (v := self selectedWorkspacesTextView) notNil ifTrue:[
+        v redo.
+    ]
+!
+
 search
     |v|
 
@@ -1057,6 +1065,14 @@
     (v := self selectedWorkspacesTextView) notNil ifTrue:[
         v selectAll.
     ]
+!
+
+undo
+    |v|
+
+    (v := self selectedWorkspacesTextView) notNil ifTrue:[
+        v undo.
+    ]
 ! !
 
 !MultiViewToolApplication methodsFor:'private'!
@@ -1193,5 +1209,5 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.27 2008-12-19 23:03:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.28 2008-12-19 23:22:01 cg Exp $'
 ! !