From 4cdfc4aa79e1c7876f5ae68aeb598d3cc5cdb7bc Mon Sep 17 00:00:00 2001 From: Ahmed Shariff Date: Mon, 9 Jan 2023 17:11:54 -0800 Subject: [PATCH] Fixes swm-gaps crashing for negtive values for height (#205) --- util/swm-gaps/swm-gaps.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/util/swm-gaps/swm-gaps.lisp b/util/swm-gaps/swm-gaps.lisp index 2786e5e..a1ea880 100644 --- a/util/swm-gaps/swm-gaps.lisp +++ b/util/swm-gaps/swm-gaps.lisp @@ -64,7 +64,7 @@ HEIGHT are subtracted." (>= width (- (frame-width frame) ow))) (setf width (- width ow))) (when (and (< oh height) - (>= height (- (frame-height frame) oh))) + (>= height (- (stumpwm::frame-display-height (window-group win) frame) oh))) (setf height (- height oh))) (setf x (+ x ox)