#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jan 2018 17:19:06 +0100
changeset 8261 9874141ac064
parent 8260 9952324fea13
child 8262 a9845a7cad69
#DOCUMENTATION by cg class: XWorkstation changed: #beep
XWorkstation.st
--- a/XWorkstation.st	Thu Jan 18 17:17:33 2018 +0100
+++ b/XWorkstation.st	Thu Jan 18 17:19:06 2018 +0100
@@ -10118,7 +10118,8 @@
     "output an audible beep or bell"
 
     UserPreferences current beepEnabled ifTrue:[
-	self beep:0 volume:50
+        self beep:0 volume:50.
+        self flush
     ]
 
     "