From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 16 Sep 1993 22:44:33 +0000 (+0000)
Subject: More frightening message when closing master_tty_window
X-Git-Tag: 20090517-FFI~7829
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9c153db05ff9a40004c998dce02a024f67a931e4;p=mit-scheme.git

More frightening message when closing master_tty_window
---

diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c
index 8629a4ccb..30f008cb7 100644
--- a/v7/src/microcode/ntscreen.c
+++ b/v7/src/microcode/ntscreen.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntscreen.c,v 1.18 1993/09/13 18:38:09 gjr Exp $
+$Id: ntscreen.c,v 1.19 1993/09/16 22:44:33 adams Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -635,11 +635,18 @@ ScreenWndProc (HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
       {
 	extern HANDLE master_tty_window;
 
-	if (IDOK != (MessageBox (hWnd, "OK to close screen window?",
-				 "MIT Scheme",
-				 (MB_ICONQUESTION | MB_OKCANCEL))))
+	if (IDOK != 
+	    MessageBox (hWnd, 
+			hWnd==(HWND)master_tty_window
+			? ("Closing this window will terminate Scheme.\n"
+			   "Changes to Edwin buffers might be lost.\n"
+			   "\n"
+			   "Really Exit Scheme?")
+			: "OK to close screen window?",
+			"MIT Scheme",
+			(MB_ICONQUESTION | MB_OKCANCEL)))
 	  break ;
-	else if (hWnd == ((HWND) master_tty_window))
+	if (hWnd == ((HWND) master_tty_window))
 	{
 	  extern void termination_normal (int);
 	  termination_normal (0);