[sawfish/tabs-ng] small change in tabs regarding left-margin



commit ac49dadcb7a1601d7adaf6dfca6102a585451ca3
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Fri Nov 5 17:12:42 2010 +0100

    small change in tabs regarding left-margin

 lisp/sawfish/wm/tabs/tab.jl |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)
---
diff --git a/lisp/sawfish/wm/tabs/tab.jl b/lisp/sawfish/wm/tabs/tab.jl
index 7f91e4b..d8a2699 100644
--- a/lisp/sawfish/wm/tabs/tab.jl
+++ b/lisp/sawfish/wm/tabs/tab.jl
@@ -133,8 +133,7 @@
            (margin-l (nth 2 (get-tab-pos win)))
            (dim-y (nth 1 (get-tab-pos win))))
       (when (> dim-y margin-l) ;; don't display outside from frame
-        ;; use double size for icon support 
-        (+ top margin-l (- (* tabbar-right-dec-width 2))))))
+        (+ top margin-l (- tabbar-right-dec-width)))))
 
   (define (tab-title-left-edge win)
     "Compute left edge of tab by horizontal titlebar themes"



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]