From 30c2170d147e1900a87a76675d84b9a0e450b97c Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 8 Jun 2008 15:28:35 +0000
Subject: [PATCH] Do not clear out trains when Finalising

---
 hostside/gui | 3 +++
 1 file changed, 3 insertions(+)

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)"
-- 
2.30.2