--- 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 $'
! !