checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 01 Oct 2003 18:01:31 +0200
changeset 2811 3a7aed97fd76
parent 2810 b7784f4ca220
child 2812 7bdc97bf18d9
checkin from browser
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!