From: ian <ian>
Date: Sun, 8 Jun 2008 15:28:35 +0000 (+0000)
Subject: Do not clear out trains when Finalising
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=30c2170d147e1900a87a76675d84b9a0e450b97c;p=trains.git

Do not clear out trains when Finalising
---

diff --git a/hostside/gui b/hostside/gui
index fa04dd7..3ba7c88 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -471,6 +471,9 @@ proc speedws-stastate-hook {} {
 	    set trains [array names train_commanded]
 	    speedws-forall speedw-trains-available $trains
 	}
+	Finalising {
+	    speedws-forall speedw-notrains "($stastate)"
+	}
 	default {
 	    catch { unset train_commanded }
 	    speedws-forall speedw-notrains "($stastate)"