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 {} {
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} {