From: Michael Gernoth <michael@gernoth.net>
Date: Wed, 16 Jan 2008 00:40:49 +0000 (+0100)
Subject: fix multiplayer mode
X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/6838edec90aa25d27c2ad0f58e244bba1521c054

fix multiplayer mode
---

diff --git a/res/micropolis.tcl b/res/micropolis.tcl
index 9546884..c298ec1 100644
--- a/res/micropolis.tcl
+++ b/res/micropolis.tcl
@@ -3101,8 +3101,10 @@ proc ShowSplashOf {head} {
 
 
 proc WithdrawSplashOf {head} {
-  set win WindowLink $head.splash]
-  wm withdraw $win
+  set win [WindowLink $head.splash]
+  if {$win != {}} {
+    wm withdraw $win
+  }
 }
 
 
@@ -3152,8 +3154,10 @@ proc ShowScenarioOf {head} {
 
 
 proc WithdrawScenarioOf {head} {
-  set win WindowLink $head.scenario]
-  wm withdraw $win
+  set win [WindowLink $head.scenario]
+  if {$win != {}} {
+    wm withdraw $win
+  }
 }