--- a/EditTextView.st	Mon Dec 17 17:48:03 2018 +0100
+++ b/EditTextView.st	Thu Dec 20 10:32:53 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -7178,7 +7176,10 @@
         "cancel"
         ^ self.
     ].
-    response := HTTPInterface get:url.
+
+    self withWaitCursorDo:[
+        response := HTTPInterface get:url.
+    ].
     response isErrorResponse ifTrue:[
         Dialog warn:(resources string:'Could not fetch the document: %1' with:url).
         ^ self.
@@ -7190,6 +7191,8 @@
             self paste:(asStringLiteral ifTrue:[text storeString] ifFalse:[text])
         ]
         info:'Insert Contents of URL'
+
+    "Modified: / 20-12-2018 / 10:27:46 / Claus Gittinger"
 !
 
 insertUUID