From adfdda70d70b737219f2b64d2675e443cc2a1881 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Thu, 25 Aug 2016 04:05:57 +0300
Subject: [PATCH] Fix placement of list view selection rectangle

---
 main.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index a6fe7b7..c204432 100644
--- a/main.ml
+++ b/main.ml
@@ -2623,7 +2623,8 @@ object (self)
             Gl.disable `texture_2d;
             let alpha = if source#hasaction row then 0.9 else 0.3 in
             GlDraw.color (1., 1., 1.) ~alpha;
-            linerect (x0 +. 1.) (float (y + 1)) (x1) (float (y + fs + 3));
+            linerect (float xadj +. x0 +. 1.)
+                     (float (y + 1)) (x1) (float (y + fs + 3));
             Gl.enable `texture_2d;
           );
           let c =
-- 
2.11.4.GIT