Use WinAlarm instead of DosBeep for ^G noise.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d1f39514a74214dcc4aad9820259daf9d7bf7ac1..db8368875f4fa171c8c0f16e11d13ba05ab3f82e 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.181 1995/10/25 02:19:27 cph Exp $
+$Id: edwin.pkg,v 1.182 1995/11/03 12:39:11 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -1232,7 +1232,7 @@ MIT in each case. |#
            os2ps-set-font
            os2ps-write
            os2win-activate
-           os2win-beep
+           os2win-alarm
            os2win-close
            os2win-close-event-qid
            os2win-console-wid
@@ -1318,6 +1318,7 @@ MIT in each case. |#
            vk_sysrq
            vk_tab
            vk_up
+           wa_error
            window-state:bottom
            window-state:hide
            window-state:maximize

diff --git a/v7/src/edwin/os2term.scm b/v7/src/edwin/os2term.scm
index f3b519c64d05bdda8b8d0e38335f9c35b3a37332..98e95bdd619d78ad6cda907a8c0ce3b53c82d014 100644 (file)
--- a/v7/src/edwin/os2term.scm
+++ b/v7/src/edwin/os2term.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: os2term.scm,v 1.8 1995/05/16 09:21:28 cph Exp $
+;;;    $Id: os2term.scm,v 1.9 1995/11/03 12:39:01 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -178,7 +178,7 @@
 \f
 (define (os2-screen/beep screen)
   screen
-  (os2win-beep 880 50))
+  (os2win-alarm WA_ERROR))
 
 (define (os2-screen/clear-line! screen x y first-unused-x)
   (let ((start (screen-char-index screen x y))