Prevent tinywm crash where a window is given a negative height/width

mwitmer · Feb 3, 2014 · 4381636 · 4381636
1 parent 94b7a37
commit 4381636
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/module/guile-wm/module/tinywm.scm b/module/guile-wm/module/tinywm.scm
@@ -39,8 +39,8 @@
           #:x (box (xref point 'root-x) (xref geom 'width) (screen-width))
           #:y (box (xref point 'root-y) (xref geom 'height) (screen-height)))
         (configure-window (win)
-          #:width (- (xref point 'root-x) (xref geom 'x))
-          #:height (- (xref point 'root-y) (xref geom 'y))))))
+          #:width (max 1 (- (xref point 'root-x) (xref geom 'x)))
+          #:height (max 1 (- (xref point 'root-y) (xref geom 'y)))))))
 
 (define (on-button-release button-release)
   (ungrab-pointer xcb-current-time)