Commit: 4d8f66e4489f0926ff9d45d22f955a34f50fcb4d - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revision: 4d8f66e4489f0926ff9d45d22f955a34f50fcb4d (tree)
• Time: 2014-08-20 04:13:42
• Author: Christopher Roy Bratusek <nano@jpbe...>
• Commiter: Christopher Roy Bratusek

Log Message

ensure cabinet height does not exceed screen boundaries

Change Summary

• modified: lisp/sawfish/wm/ext/cabinet.jl

Incremental Difference

--- a/lisp/sawfish/wm/ext/cabinet.jl
+++ b/lisp/sawfish/wm/ext/cabinet.jl
@@ -502,9 +502,11 @@
                                      (- (quotient (car (head-dimensions head)) 2)
                                         (quotient wx 2)))
                                  .
-                                 ,(+ (cdr (head-offset head))
-                                     (- (quotient (cdr (head-dimensions head)) 2)
-                                        (quotient wy 2))))
+                                 ,(if (> (cdr win-size) (cdr (head-dimensions head)))
+                                      '0
+                                    (+ (cdr (head-offset head))
+                                       (- (quotient (cdr (head-dimensions head)) 2)
+                                          (quotient wy 2)))))
                                win-size
                                1
                                `((background . ,cabinet:background))