[sawfish] Minor bugfix. Correct integer type is used, instead of "round".



commit ae60bf949a4cd3790394c04a1ee48c9c54cc0d7b
Author: Teika kazura <teika lavabit com>
Date:   Fri Dec 4 15:07:42 2009 +0900

    Minor bugfix. Correct integer type is used, instead of "round".

 lisp/sawfish/wm/commands/move-resize.jl |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/lisp/sawfish/wm/commands/move-resize.jl b/lisp/sawfish/wm/commands/move-resize.jl
index b6f555f..5d8b51c 100644
--- a/lisp/sawfish/wm/commands/move-resize.jl
+++ b/lisp/sawfish/wm/commands/move-resize.jl
@@ -569,10 +569,10 @@ that window."
 
   (define (move-window-center w)
     (move-window-to w
-                    (round (/ (- (screen-width)
-                                 (car (window-frame-dimensions w))) 2))
-                    (round (/ (- (screen-height)
-                                 (cdr (window-frame-dimensions w))) 2))))
+                    (quotient (- (screen-width)
+                                 (car (window-frame-dimensions w))) 2)
+                    (quotient (- (screen-height)
+                                 (cdr (window-frame-dimensions w))) 2)))
 
   ;;###autoload
   (define-command 'move-window-center



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