From: Michael Gernoth <michael@gernoth.net>
Date: Wed, 23 Jan 2008 21:13:24 +0000 (+0100)
Subject: allow scenario window to be closed
X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/403895917c093bdb88836e8e1694e937e1dd966e?ds=sidebyside;hp=4f9f8b18b9f8bc841fc54c0d094ab13b9f834587

allow scenario window to be closed
---

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index e706065..dc7d352 100644
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -3548,6 +3548,10 @@ proc DoPickScenario {win param} {
   UILoadScenario $param
 }
 
+proc DeleteScenarioWindow {win} {
+  UIQuit $win
+}
+
 
 ########################################################################
 # Undo/Redo Facility