# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1516290220 -3600
# Node ID 22fb0723dcc6ac361e505e611616097948d2684d
# Parent  ed3cab4edb84ac4e647ef83652d212fd0c20da57
#REFACTORING by cg
class: SimpleView
added: #showNotFound

diff -r ed3cab4edb84 -r 22fb0723dcc6 SimpleView.st
--- 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"