--- a/DeviceWorkstation.st	Fri Dec 03 16:57:39 1999 +0100
+++ b/DeviceWorkstation.st	Fri Dec 03 17:19:02 1999 +0100
@@ -28,8 +28,8 @@
 	classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal
 		DeviceIOErrorSignal DeviceIOTimeoutErrorSignal ErrorPrinting
 		DefaultScreen AllScreens CurrentScreenQuerySignal
-		LastActiveScreen LastActiveProcess NoBeep
-		WindowsRightButtonBehavior ExitOnLastClose'
+		LastActiveScreen LastActiveProcess WindowsRightButtonBehavior
+		ExitOnLastClose'
 	poolDictionaries:''
 	category:'Interface-Graphics'
 !
@@ -5713,11 +5713,12 @@
 
     "output an audible beep or bell"
 
-    NoBeep ~~ true ifTrue:[
-	Stdout nextPut:(Character bell)
+    UserPreferences current beepEnabled ifTrue:[
+        Stdout nextPut:(Character bell)
     ]
 
-    "Modified: 13.1.1997 / 22:56:13 / cg"
+    "Modified: / 13.1.1997 / 22:56:13 / cg"
+    "Modified: / 3.12.1999 / 17:13:52 / ps"
 !
 
 buffered
@@ -6822,6 +6823,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.352 1999-12-03 14:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.353 1999-12-03 16:19:02 ps Exp $'
 ! !
 DeviceWorkstation initialize!