[sawfish] lisp/sawfish/wm/util/window-outline.jl: some fixups for the draft animator [Teika]



commit 9b5387287e66379d73171d471d5951ca761bda73
Author: chrisb <zanghar freenet de>
Date:   Tue May 5 20:24:09 2009 +0200

    lisp/sawfish/wm/util/window-outline.jl: some fixups for the draft animator [Teika]
---
 ChangeLog                              |    3 +++
 lisp/sawfish/wm/util/window-outline.jl |   20 ++++++++++----------
 man/news.texi                          |    2 +-
 3 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 04339c6..b1798b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2009-05-05  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/util/window-outline.jl: some fixups for the draft animator [Teika]
+
 2009-05-04  Christopher Bratusek <zanghar freenet de>
 	* configure.in: - fix the last incomplete AC_DEFINE
 			- remove unsed configure flags
diff --git a/lisp/sawfish/wm/util/window-outline.jl b/lisp/sawfish/wm/util/window-outline.jl
index 153df45..652048e 100644
--- a/lisp/sawfish/wm/util/window-outline.jl
+++ b/lisp/sawfish/wm/util/window-outline.jl
@@ -158,7 +158,7 @@ only be `box' for a 3x3 grid."
 	(progn ; vertical
 	 (if dim-p
 	     (x-draw-string rw gc (cons (+ pta-x x-dim-offset)
-					(+ pta-y (floor (/ delta-y 2)))
+					(+ pta-y (quotient delta-y 2))
 					)
 			    (format nil "%d" delta-y)))
 	 (if arrow-p
@@ -171,7 +171,7 @@ only be `box' for a 3x3 grid."
 	 )
 	(progn ; horizontal
          (if dim-p
-	   (x-draw-string rw gc (cons (+ pta-x (floor (/ delta-x 2)))
+	   (x-draw-string rw gc (cons (+ pta-x (quotient delta-x 2))
 				      (- pta-y y-dim-offset)
 				      )
 			    (format nil "%d" delta-x)))
@@ -190,23 +190,23 @@ only be `box' for a 3x3 grid."
       ((gc (x-create-root-xor-gc))
        ; window Upper (Left Middle Right)
        (ul (cons x y))
-       (um (cons (+ x (floor (/ width 2))) y))
+       (um (cons (+ x (quotient width 2)) y))
        (ur (cons (+ x width) y))
 
        ; window Middle (Left Right)
-       (ml (cons x           (+ y (floor (/ height 2)))))
-       (mr (cons (+ x width) (+ y (floor (/ height 2)))))
+       (ml (cons x           (+ y (quotient height 2))))
+       (mr (cons (+ x width) (+ y (quotient height 2))))
 
        ; window Lower (Left Middle Right)
        (ll (cons x (+ y height)))
-       (lm (cons (+ x (floor (/ width 2))) (+ y height)))
+       (lm (cons (+ x (quotient width 2)) (+ y height)))
        (lr (cons (+ x width) (+ y height)))
 
        ; window Screen (Left Right Top Bottom)
-       (sl (cons 0              (+ y (floor (/ height 2)))))
-       (sr (cons (screen-width) (+ y (floor (/ height 2)))))
-       (st (cons (+ x (floor (/ width 2))) 0))
-       (sb (cons (+ x (floor (/ width 2))) (screen-height)))
+       (sl (cons 0              (+ y (quotient height 2))))
+       (sr (cons (screen-width) (+ y (quotient height 2))))
+       (st (cons (+ x (quotient width 2)) 0))
+       (sb (cons (+ x (quotient width 2)) (screen-height)))
 
        (offset 3) ; how much to offset the guidelines from the window
        )
diff --git a/man/news.texi b/man/news.texi
index c286f82..f9d8420 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -79,7 +79,7 @@ To use the old style, put @code{(define-special-variable customize-program "sawf
 
 @item Warp cursor to unmaximied windows, if warp-cursor is enabled [Fernando Carmona Varo]
 
- item 3 New Window-Animators: cross, elliptical and draft [Christopher Bratusek]
+ item 3 New Window-Animators: cross, elliptical and draft [Christopher Bratusek, Teika Kazura[draft fixups]]
 
 @item Shrinking/Yanking Support [Timo Korvola]
 



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