From: ian <ian>
Date: Thu, 5 Jan 2006 01:03:17 +0000 (+0000)
Subject: more correct when off
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=d91e8f442f477f6639f43f37eb7a2240fc2da187;p=trains.git

more correct when off
---

diff --git a/hostside/gui-displayer b/hostside/gui-displayer
index 93320b7..9086155 100755
--- a/hostside/gui-displayer
+++ b/hostside/gui-displayer
@@ -93,8 +93,7 @@ proc update_seg {segname} {
 #puts stderr "update_seg $segname"
 
     if {!$power} {
-	setsegbyname $segname off
-	return
+        set command off
     } else {
 	set command [expr {$d ? "det" : "on"}]
 	if {$r} { set command "i$command" }
@@ -105,7 +104,7 @@ proc update_seg {segname} {
     foreach mov $movs {
 #puts stderr "update_seg $segname mov $mov"
 	upvar #0 movpos($mov) mp
-	if {[string length $mp]} {
+	if {[string length $mp] && [string compare off $command]} {
 	    setsegbyname $mov $command $mp
 	} else {
 	    setsegbyname $mov $command
diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index dd955a4..ce969a3 100755
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -5,6 +5,7 @@
 set testonly 0
 #set testonly 1
 set port /dev/ttya0
+#set port /dev/ttyS0
 
 set ch(funcsevery) 10
 set ch(speeddirnevery) 30