From b1c2f19cbefd94072f8b5df5e9ba65daa2d3a5ae Mon Sep 17 00:00:00 2001
From: "tgoff0@gmail.com"
 <tgoff0@gmail.com@286e914e-1314-11de-a46f-cd5bcf99231e>
Date: Mon, 15 Dec 2014 18:22:40 +0000
Subject: [PATCH] gui: Ask if the currently running session should be stopped
 when loading a file.

---
 trunk/gui/filemgmt.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/trunk/gui/filemgmt.tcl b/trunk/gui/filemgmt.tcl
index 1f4f51be..af82a13b 100755
--- a/trunk/gui/filemgmt.tcl
+++ b/trunk/gui/filemgmt.tcl
@@ -147,7 +147,11 @@ proc openFile {} {
     global undolog activetool
     global canvas_list curcanvas systype
     global changed
-    
+
+    if { [popupStopSessionPrompt] == "cancel" } {
+	return
+    }
+
     if { [lindex [file extension $currentFile] 0] == ".py" } {
 	set flags 0x10 ;# status request flag
 	sendRegMessage -1 $flags [list "exec" $currentFile]