allow scenario window to be closed

[micropolis] / res / micropolis.tcl

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index e70606540cb367c588d8c393ec39fb302f849851..dc7d352e5123107f4c808ce54f2b265e99bac4d4 100644 (file)
--- 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