# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1065024091 -7200
# Node ID 3a7aed97fd763a32738d6277bab3c71956141f45
# Parent  b7784f4ca22089839f0cdee30eda3ee0aad91c6f
checkin from browser

diff -r b7784f4ca220 -r 3a7aed97fd76 TextView.st
--- a/TextView.st	Fri Sep 26 10:21:17 2003 +0200
+++ b/TextView.st	Wed Oct 01 18:01:31 2003 +0200
@@ -2567,11 +2567,9 @@
 
     |ign|
 
-    self hasSelection ifFalse:[
-        searchAction notNil ifTrue:[
-            self searchUsingSearchAction:#backward.
-            ^ self.
-        ]
+    searchAction notNil ifTrue:[
+        self searchUsingSearchAction:#backward.
+        ^ self.
     ].
 
     ign := lastSearchIgnoredCase ? false.
@@ -3036,11 +3034,9 @@
 
     |ign|
 
-    self hasSelection ifFalse:[
-        searchAction notNil ifTrue:[
-            self searchUsingSearchAction:#forward.
-            ^ self.
-        ]
+    searchAction notNil ifTrue:[
+        self searchUsingSearchAction:#forward.
+        ^ self.
     ].
 
     ign := lastSearchIgnoredCase ? false.
@@ -3712,7 +3708,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.213 2003-09-23 17:51:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.214 2003-10-01 16:01:31 cg Exp $'
 ! !
 
 TextView initialize!