===================================================================
RCS file: /home/cvs/OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v
retrieving revision 1.5
retrieving revision 1.8
diff -u -p -r1.5 -r1.8
--- OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac	2013/11/19 13:03:59	1.5
+++ OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac	2013/12/19 04:24:39	1.8
@@ -1,5 +1,6 @@
-// $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.4 2013/11/14 17:28:29 ohara Exp $
+// $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asirgui.mac,v 1.7 2013/11/28 03:02:19 takayama Exp $
 // Keep shift-jis code! 
+//   run "cmd /c "+$asirpath+"cmdasir %f" + " >con"; output debugmsg
 call Main;
 endmacro;
 Main:
@@ -8,7 +9,7 @@ $asir_rootdir=getenv("ASIR_ROOTDIR");
 if($asir_rootdir!="" && existfile($asir_rootdir+"\\bin\\asirgui.exe")) {
     $asirpath=$asir_rootdir+"\\bin\\";
 }
-menu "asirgui起動","編集中のファイルの実行","選択範囲の実行","行の実行","選択範囲の実行(paste)","行の実行(paste)";
+menu "asirgui起動","編集中のファイルの実行","選択範囲の実行","行の実行","選択範囲の実行(paste)","行の実行(paste)","計算中断";
 if (result==0) endmacro;
 else if (result == 1) {
   run $asirpath+"asirgui";
@@ -22,6 +23,8 @@ else if (result == 1) {
   call ExecuteSelectedAreaByPaste;
 } else if (result == 6) {
   call ExecuteSelectedLineByPaste;
+} else if (result == 7) {
+  call AbortAsir;
 }
 return true;
 ExecuteSelectedArea:
@@ -86,5 +89,9 @@ ExecuteSelectedLineByPaste:
   golineend;
 //  message(str(seltopx) + "," + str(seltopy) + "," + str(selendx) + "," + str(selendy));
   call ExecuteSelectedAreaByPaste;
+  return true;
+
+AbortAsir:
+  run "\""+$asirpath+"cmdasir\" --abort"+" >nul";
   return true;