--- a/DeviceWorkstation.st Sat Jan 31 13:58:42 2015 +0100
+++ b/DeviceWorkstation.st Sat Jan 31 14:05:12 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libview' }"
+"{ NameSpace: Smalltalk }"
+
HostGraphicsDevice subclass:#DeviceWorkstation
instanceVariableNames:'visualType monitorType depth ncells bitsPerRGB bitsRed bitsGreen
bitsBlue redMask greenMask blueMask redShift greenShift blueShift
@@ -7085,12 +7087,12 @@
!DeviceWorkstation methodsFor:'misc'!
beep
+ "output an audible beep or bell"
+
"{ Pragma: +optSpace }"
- "output an audible beep or bell"
-
UserPreferences current beepEnabled ifTrue:[
- Stdout nextPut:(Character bell)
+ Stdout nextPut:(Character bell)
]
"Modified: / 13.1.1997 / 22:56:13 / cg"
@@ -8425,11 +8427,11 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.626 2014-11-28 16:11:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.627 2015-01-31 13:05:12 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.626 2014-11-28 16:11:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.627 2015-01-31 13:05:12 cg Exp $'
! !