embryonic point setting

diff --git a/hostside/gui b/hostside/gui
index c864504ab1ea06767b83494e5163dae16dbe9161..de5ecb946243418e378f201ca3bb3e78b5e0eef4 100755 (executable)
--- 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 {} {