From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 15 Apr 2000 02:42:32 +0000 (+0000)
Subject: Use MB_OK argument to MessageBeep -- using -1 doesn't do reasonable
X-Git-Tag: 20090517-FFI~4013
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3c0db5d90e32c1ce95570938b844b3439bf15c72;p=mit-scheme.git

Use MB_OK argument to MessageBeep -- using -1 doesn't do reasonable
thing under Windows 9x.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index abb7e9b23..0918849a4 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.251 2000/04/05 14:22:55 cph Exp $
+$Id: edwin.pkg,v 1.252 2000/04/15 02:42:32 cph Exp $
 
 Copyright (c) 1989-2000 Massachusetts Institute of Technology
 
@@ -1174,6 +1174,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	    get-window-rect
 	    load-icon
 	    make-rect
+	    mb_ok
 	    message-beep
 	    rect/bottom
 	    rect/left
diff --git a/v7/src/edwin/win32.scm b/v7/src/edwin/win32.scm
index 3f884b629..12853353b 100644
--- a/v7/src/edwin/win32.scm
+++ b/v7/src/edwin/win32.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: win32.scm,v 1.10 1999/03/03 05:29:31 cph Exp $
+;;; $Id: win32.scm,v 1.11 2000/04/15 02:42:25 cph Exp $
 ;;;
-;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -102,7 +102,7 @@
 
 (define (win32-screen/beep screen)
   screen
-  (message-beep -1))
+  (message-beep MB_OK))
 
 (define (expand-rect screen top bottom left right)
   (define-integrable (min u v)  (if (fix:< u v) u v))