From 0ae6ea3948b44e9bb22f002c51e789ca1d03495f Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 9 Jul 2014 01:48:49 +0400
Subject: [PATCH] Handle scroll bar on the left properly

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

diff --git a/main.ml b/main.ml
index 955ca26..4733655 100644
--- a/main.ml
+++ b/main.ml
@@ -5239,6 +5239,7 @@ let postdrawpage l linkindexbase =
       if tileready l l.pagex l.pagey
       then
         let x = l.pagedispx - l.pagex
+            + (if conf.leftscroll then conf.scrollbw else 0)
         and y = l.pagedispy - l.pagey in
         let hlmask =
           match conf.columns with
@@ -5327,7 +5328,9 @@ let display () =
     | LinkNav (Ltexact (pageno, linkno)) ->
         begin match getopaque pageno with
         | Some opaque ->
+            let dx = if conf.leftscroll then conf.scrollbw else 0 in
             let x0, y0, x1, y1 = getlinkrect opaque linkno in
+            let x0 = x0 + dx and x1 = x1 + dx in
             (pageno, 5, (
               float x0, float y0,
               float x1, float y0,
-- 
2.11.4.GIT