--- a/TextView.st	Fri Apr 11 18:48:49 2003 +0200
+++ b/TextView.st	Tue Apr 15 13:57:52 2003 +0200
@@ -1129,7 +1129,7 @@
     dragIsActive := false.
     sensor       := self sensor.
 
-    (sensor notNil and:[sensor shiftDown]) ifTrue:[
+    sensor shiftDown ifTrue:[
         "mouse-click with shift - adding to selection"
 
         "very simple - just simulate a move"
@@ -2579,11 +2579,7 @@
     self searchBwd:pattern 
          ignoreCase:ign 
          ifAbsent:[
-                    |sensor|
-
-                    (sensor := self sensor) notNil ifTrue:[
-                        sensor compressKeyPressEventsWithKey:#FindPrev.
-                    ].
+                    self sensor compressKeyPressEventsWithKey:#FindPrev.
                     self showNotFound
                   ].
     lastSearchIgnoredCase := ign.
@@ -3058,11 +3054,7 @@
         searchFwd:pattern 
         ignoreCase:ign 
         ifAbsent:[
-                    |sensor|
-
-                    (sensor := self sensor) notNil ifTrue:[
-                        sensor compressKeyPressEventsWithKey:#FindNext.
-                    ].
+                    self sensor compressKeyPressEventsWithKey:#FindNext.
                     self showNotFound
                  ].
     lastSearchIgnoredCase := ign.
@@ -3623,7 +3615,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.198 2003-04-11 16:48:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.199 2003-04-15 11:56:50 stefan Exp $'
 ! !
 
 TextView initialize!