gui: fix button padding

diff --git a/hostside/gui b/hostside/gui
index 995ad76baa5adf303dd9bc62ae4856ffeed83c9f..ab1a0720834117da7281711a1ebf068f1377fa07 100755 (executable)
--- a/hostside/gui
+++ b/hostside/gui
@@ -234,12 +234,12 @@ proc movpos-bindkey-1 {cpage key seg feat} {
        set dx [expr {$x-$mx}]; set dy [expr {$y-$my}]
        set d [expr {sqrt($dx*$dx + $dy*$dy)}]
        set mul [expr {$posdeviation / ($d + 1e-6)}]
-       set x [expr {$mx + $mul*$dx + $picturepadx/2}]
-       set y [expr {$my + $mul*$dy + $picturepady/2}]
+       set x [expr {$mx + $mul*$dx + $picturepadx}]
+       set y [expr {$my + $mul*$dy + $picturepady}]
        lappend poslocs [list $x $y]
     }
-    lappend poslocs [list [expr {$mx + $picturepadx/2}] \
-                         [expr {$my + $picturepady/2}]]
+    lappend poslocs [list [expr {$mx + $picturepadx}] \
+                         [expr {$my + $picturepady}]]
     upvar #0 mp_details($mid) details
     set details [list $cpage $key $seg $feat $poslocs]