From 6a5b28d80a0d9b814594a7f7ff84752e96b2e60c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 8 Jan 2011 21:32:26 +0000
Subject: [PATCH] gui: make movpos-button-sstate take a posn arg and make it
 call -setdisplay; no functional change

---
 hostside/gui | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hostside/gui b/hostside/gui
index 50ad7ab..de7440d 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -170,9 +170,10 @@ proc movpos-button-gvars {mid} {
     return 1
 }
 
-proc movpos-button-sstate {mid} {
+proc movpos-button-sstate {mid posn} {
     upvar #0 mp_state($mid) state
-    set state [uplevel 1 { list $posn } ]
+    set state $posn
+    movpos-button-setdisplay $mid
 }
 
 proc widgets-movpos {} {
@@ -221,8 +222,7 @@ register-event ?movpos_*_feat {seg feat posn_new} \
     set mid $seg/$feat
     if {![movpos-button-gvars $mid]} return
     set posn $posn_new
-    movpos-button-sstate $mid
-    movpos-button-setdisplay $mid
+    movpos-button-sstate $mid $posn
 }
 
 proc movpos-bindkey-1 {cpage key seg feat adj0x adj0y adj1x adj1y} {
-- 
2.30.2