From 6838edec90aa25d27c2ad0f58e244bba1521c054 Mon Sep 17 00:00:00 2001
From: Michael Gernoth <michael@gernoth.net>
Date: Wed, 16 Jan 2008 01:40:49 +0100
Subject: [PATCH] fix multiplayer mode
---
res/micropolis.tcl | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
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
+ }
}
--
2.39.5