From a2251aa68eaa1d1dede96c962145fe9560727fcf Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Fri, 31 Dec 2010 15:46:51 +0000
Subject: [PATCH] gui: fix button padding

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

diff --git a/hostside/gui b/hostside/gui
index 995ad76..ab1a072 100755
--- 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]
 
-- 
2.30.2