UIObjectView.st
changeset 1705 121213b3d4c9
parent 1672 5e89f5959780
child 1714 f57812a56d17
--- a/UIObjectView.st	Tue Apr 15 09:51:10 2003 +0200
+++ b/UIObjectView.st	Tue Apr 15 13:57:30 2003 +0200
@@ -526,15 +526,11 @@
     key == #Paste ifTrue:[ ^ self pasteBuffer].
     key == #Cmdu  ifTrue:[ ^ self undoLast ].           "/ #Undo
 
-    ( #(CursorUp CursorDown CursorRight CursorLeft)
-    includes:key) ifTrue:[
-        (sensor := self sensor) isNil ifTrue:[
-            n := 1
-        ] ifFalse:[
-            n := 1 + (sensor compressKeyPressEventsWithKey:key).
-            sensor shiftDown ifTrue:[
-                n := n * 10.
-            ].
+    (#(CursorUp CursorDown CursorRight CursorLeft) includes:key) ifTrue:[
+        sensor := self sensor.
+        n := 1 + (sensor compressKeyPressEventsWithKey:key).
+        sensor shiftDown ifTrue:[
+            n := n * 10.
         ].
 
         key == #CursorUp ifTrue:[