===================================================================
RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/asir32guiDoc.cpp,v
retrieving revision 1.1.1.1
retrieving revision 1.3
diff -u -p -r1.1.1.1 -r1.3
--- OpenXM_contrib2/windows/asir32gui/asir32guiDoc.cpp	2000/11/22 06:14:29	1.1.1.1
+++ OpenXM_contrib2/windows/asir32gui/asir32guiDoc.cpp	2005/10/02 01:34:43	1.3
@@ -14,6 +14,8 @@ static char THIS_FILE[] = __FILE__;
 
 extern "C" {
 	void flush_log();
+	void put_line(char *);
+	extern int asirgui_kind;
 }
 
 /////////////////////////////////////////////////////////////////////////////
@@ -92,7 +94,17 @@ extern "C" {
 BOOL CAsir32guiDoc::CanCloseFrame(CFrameWnd* pFrame) 
 {
 	// TODO: この位置に固有の処理を追加するか、または基本クラスを呼び出してください
+	char tmp[BUFSIZ];
 	
+	if ( asirgui_kind == ASIRGUI_MESSAGE )
+		return FALSE;
+
+	if ( asirgui_kind == ASIRGUI_DEBUG ) {
+		sprintf(tmp,"quit");
+		put_line(tmp);
+		return FALSE;
+	}
+
 	if( IDNO == ::MessageBox(NULL,"Really quit?","Asir",
 		MB_YESNO | MB_ICONEXCLAMATION | MB_DEFBUTTON2) ) {
 		return FALSE;