X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/d4ac0f6db5d0624714fb618bee4b0e604800ddd9..a0e770d2a006aa9d6c2703960c68fb607a378039:/res/micropolis.tcl?ds=sidebyside

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