From 9f1e8007563c2a54a289602513d00d93c014e732 Mon Sep 17 00:00:00 2001
From: tgoff0 <tgoff0@gmail.com>
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.

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

diff --git a/gui/filemgmt.tcl b/gui/filemgmt.tcl
index 1f4f51be..af82a13b 100755
--- a/gui/filemgmt.tcl
+++ b/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]