From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 3 Nov 1995 12:39:11 +0000 (+0000)
Subject: Use WinAlarm instead of DosBeep for ^G noise.
X-Git-Tag: 20090517-FFI~5789
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=430b78b366a98890aced8c9f5be653f12faa283f;p=mit-scheme.git

Use WinAlarm instead of DosBeep for ^G noise.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d1f39514a..db8368875 100644
--- 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 f3b519c64..98e95bdd6 100644
--- 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 @@
 
 (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))