--- a/SimpleView.st	Mon Mar 13 16:34:16 2017 +0100
+++ b/SimpleView.st	Mon Mar 13 17:42:36 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -6139,17 +6141,17 @@
 
     (dropTypeSymbol == WindowEvent dropType_file
     or:[dropTypeSymbol == WindowEvent dropType_directory]) ifTrue:[
-	dropObjects := Array with:(DropObject newFile:dropValue)
+        dropObjects := Array with:(DropObject newFile:dropValue)
     ] ifFalse:[
-	dropTypeSymbol == WindowEvent dropType_files ifTrue:[
-	   dropObjects := (dropValue collect:[:fn | DropObject newFile:fn])
-	] ifFalse:[
-	    dropTypeSymbol == WindowEvent dropType_text ifTrue:[
-	       dropObjects := Array with:(DropObject newText:dropValue)
-	    ] ifFalse:[
-	       dropObjects := Array with:(DropObject new:dropValue)
-	    ]
-	]
+        dropTypeSymbol == WindowEvent dropType_files ifTrue:[
+           dropObjects := (dropValue collect:[:fn | DropObject newFile:fn])
+        ] ifFalse:[
+            dropTypeSymbol == WindowEvent dropType_text ifTrue:[
+               dropObjects := Array with:(DropObject newText:dropValue)
+            ] ifFalse:[
+               dropObjects := Array with:(DropObject new:dropValue)
+            ]
+        ]
     ].
 
 "/    Transcript showCR:'Drop:'.
@@ -6158,7 +6160,7 @@
 "/    Transcript show:'  Data:'; showCR:dropObjects.
 
     self alienDrop:dropObjects position:dropPosition.
-    device dragFinish:dropHandle.
+    (device ? Screen current) dragFinish:dropHandle.
 
     "Modified: / 13-10-2006 / 10:10:23 / cg"
 !