gui: make movpos-button-sstate take a posn arg and make it call -setdisplay; no funct...

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