--- a/EditField.st	Tue Sep 21 22:11:02 2004 +0200
+++ b/EditField.st	Mon Sep 27 12:49:53 2004 +0200
@@ -811,7 +811,7 @@
     |val string|
 
     acceptEnabled == false ifTrue:[
-        device beep.
+        self beep.
         ^ self
     ].
 
@@ -2156,5 +2156,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.174 2004-06-09 17:04:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.175 2004-09-27 10:49:53 stefan Exp $'
 ! !

--- a/EditTextView.st	Tue Sep 21 22:11:02 2004 +0200
+++ b/EditTextView.st	Mon Sep 27 12:49:53 2004 +0200
@@ -1022,7 +1022,7 @@
      changeMessage."
 
     acceptEnabled == false ifTrue:[
-        device beep.
+        self beep.
         ^ self
     ].
     (disableIfInvisible == true and:[self reallyRealized not]) ifTrue:[
@@ -5932,5 +5932,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.362 2004-09-21 10:54:00 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.363 2004-09-27 10:49:23 stefan Exp $'
 ! !