--- a/ETxtView.st	Tue Jan 19 16:39:01 1999 +0100
+++ b/ETxtView.st	Fri Jan 29 19:40:41 1999 +0100
@@ -429,6 +429,13 @@
     "Created: / 19.6.1998 / 02:41:54 / cg"
 !
 
+find:pattern
+    self searchFwd:pattern ifAbsent:nil
+
+    "Created: / 29.1.1999 / 19:09:42 / cg"
+    "Modified: / 29.1.1999 / 19:10:12 / cg"
+!
+
 insert:aString at:aCharacterPosition
     "insert a string at aCharacterPosition."
 
@@ -4501,5 +4508,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.182 1998-11-11 15:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.183 1999-01-29 18:40:41 cg Exp $'
 ! !

--- a/EditTextView.st	Tue Jan 19 16:39:01 1999 +0100
+++ b/EditTextView.st	Fri Jan 29 19:40:41 1999 +0100
@@ -429,6 +429,13 @@
     "Created: / 19.6.1998 / 02:41:54 / cg"
 !
 
+find:pattern
+    self searchFwd:pattern ifAbsent:nil
+
+    "Created: / 29.1.1999 / 19:09:42 / cg"
+    "Modified: / 29.1.1999 / 19:10:12 / cg"
+!
+
 insert:aString at:aCharacterPosition
     "insert a string at aCharacterPosition."
 
@@ -4501,5 +4508,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.182 1998-11-11 15:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.183 1999-01-29 18:40:41 cg Exp $'
 ! !