--- a/VT100TerminalView.st	Sat Dec 11 10:09:16 2004 +0100
+++ b/VT100TerminalView.st	Thu Dec 16 15:33:14 2004 +0100
@@ -572,7 +572,9 @@
             ^ #waitForNextChar    "/ doBackspace
         ].
         (char == Character bell) ifTrue:[
-            self beep.
+            self shown ifTrue:[
+                self beep.
+            ].
             ^ #waitForNextChar
         ].
         (char == (Character value:5)) ifTrue:[
@@ -900,5 +902,5 @@
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.43 2003-05-07 14:45:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.44 2004-12-16 14:33:14 penk Exp $'
 ! !