From: ian <ian>
Date: Sun, 1 Jun 2008 21:34:17 +0000 (+0000)
Subject: embryonic point setting
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=fa37fdc07941fd0bee63f52757216299ea20e30d;p=trains.git

embryonic point setting
---

diff --git a/hostside/gui b/hostside/gui
index c864504..de5ecb9 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -90,6 +90,15 @@ proc gui-pipe-readable {args} {
     }
 }
 
+proc movpos-invoked {mid} {
+    movpos-button-gvars $mid
+    switch -exact $posn {
+	0 { set new_posn 1 }
+	default { set new_posn 0 }
+    }
+    puts "would set to $new_posn"
+}
+
 proc train-event-eof {} {
     error "lost connection to train set"
 }
@@ -204,6 +213,8 @@ proc movpos-bindkey-1 {cpage key seg feat} {
     upvar #0 mp_details($mid) details
     set details [list $cpage $key $seg $feat $poslocs]
  puts "$mid  $details"
+
+    bind . <Key-[string tolower $key]> [list movpos-invoked $mid]
 }
 
 proc layout-data {} {