--- a/SimpleView.st	Thu Jan 18 16:32:58 2018 +0100
+++ b/SimpleView.st	Thu Jan 18 16:43:40 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -11896,6 +11894,18 @@
 
 !SimpleView methodsFor:'user interaction & notifications'!
 
+showNotFound
+    "something was not found - tell user by beeping and changing
+     cursor for a while (sometimes I work with a headset :-)
+     (used to be: tell user by changing cursor for a while).
+     Beep can be disabled via the settings"
+
+    self withCursor:(Cursor cross) do:[
+        self beepInEditor.
+        Processor activeProcess millisecondDelay:200.
+    ]
+!
+
 warn:aString
     "like Objects warn, but translates the string via the
      resourcePack, thus giving a translated string automatically"