[sawfish] lisp/sawfish/wm/util/window-outline.jl: some fixups for the draft animator [Teika]
- From: Christopher Bratusek <chrisb src gnome org>
- To: svn-commits-list gnome org
- Subject: [sawfish] lisp/sawfish/wm/util/window-outline.jl: some fixups for the draft animator [Teika]
- Date: Tue, 5 May 2009 14:30:07 -0400 (EDT)
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]