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 abb7e9b231b82603de53803a58aa4f918d1d9cf1..0918849a46dc10a57702078107b21412040b50cc 100644 (file)
--- 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 3f884b629ee922f75550115f019b6460c71ce152..12853353bd9bc682da80564075884cafb027b372 100644 (file)
--- 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))