--- a/DeviceWorkstation.st	Tue Aug 13 14:10:52 2002 +0200
+++ b/DeviceWorkstation.st	Tue Aug 13 14:45:32 2002 +0200
@@ -3990,47 +3990,47 @@
     "/ ctrl-Esc gives up focus
     "/
     untranslatedKey == #Escape ifTrue:[
-	(ctrlDown or:[metaDown]) ifTrue:[
-	    self ungrabPointer.  
-	    self ungrabKeyboard. 
-	    self setInputFocusTo:nil 
-	]
+        (ctrlDown or:[metaDown]) ifTrue:[
+            self ungrabPointer.  
+            self ungrabKeyboard. 
+            self setInputFocusTo:nil 
+        ]
     ].
 
     self modifierKeyProcessing:untranslatedKey down:true.
 
     aView isNil ifTrue:[
-	"/ event arrived, after I destroyed it myself
-	^ self
+        "/ event arrived, after I destroyed it myself
+        ^ self
     ].
 
     xlatedKey := self translateKey:untranslatedKey forView:aView.
     xlatedKey == #Hardcopy ifTrue:[
-	[
-	    Transcript topView application
-		saveScreenImage:(Image fromView:(aView topView) inset:0 grab:true) defaultName:'hardcopy'.
-	] forkAt:Processor userSchedulingPriority + 1.
-	^ self.
+        [
+            Transcript topView application
+                saveScreenImage:(Image fromView:(aView topView) "inset:0" grab:true) defaultName:'hardcopy'.
+        ] forkAt:Processor userSchedulingPriority + 1.
+        ^ self.
     ].
 
     (sensor := aView sensor) notNil ifTrue:[
-	sensor keyPress:untranslatedKey x:x y:y view:aView
+        sensor keyPress:untranslatedKey x:x y:y view:aView
     ] ifFalse:[
-	aView shown ifTrue:[ "/ could be a late event arrival
-	    "
-	     if there is no sensor ...
-	    "
-	    xlatedKey notNil ifTrue:[
-		aView
-		    dispatchEvent:#keyPress:x:y:
-		    arguments:(Array with:xlatedKey with:x with:y)
+        aView shown ifTrue:[ "/ could be a late event arrival
+            "
+             if there is no sensor ...
+            "
+            xlatedKey notNil ifTrue:[
+                aView
+                    dispatchEvent:#keyPress:x:y:
+                    arguments:(Array with:xlatedKey with:x with:y)
 
 "/                WindowEvent
 "/                  sendEvent:#keyPress:x:y:
 "/                  arguments:(Array with:xlatedKey with:x with:y)
 "/                  view:aView
-	    ]
-	]
+            ]
+        ]
     ]
 
     "Modified: / 20.5.1998 / 22:52:36 / cg"
@@ -7592,6 +7592,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.424 2002-08-12 14:28:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.425 2002-08-13 12:45:32 penk Exp $'
 ! !
 DeviceWorkstation initialize!