Merge pull request #875 from dolda2000/gnucash-fix

Ignore `XLIB:DRAWABLE-ERROR` in `UPDATE-CONFIGURATION`
stumpwm · Jun 2, 2021 · 9e9848f · 9e9848f
2 parents 3462f0f + 5fbfbde
commit 9e9848f
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/window.lisp b/window.lisp
@@ -354,12 +354,15 @@ _NET_WM_STATE_DEMANDS_ATTENTION set"
 (defun update-configuration (win)
   ;; Send a synthetic configure-notify event so that the window
   ;; knows where it is onscreen.
-  (xwin-send-configuration-notify (window-xwin win)
-                                  (+ (xlib:drawable-x (window-parent win))
-                                     (xlib:drawable-x (window-xwin win)))
-                                  (+ (xlib:drawable-y (window-parent win))
-                                     (xlib:drawable-y (window-xwin win)))
-                                  (window-width win) (window-height win) 0))
+  (handler-case
+      (xwin-send-configuration-notify (window-xwin win)
+                                      (+ (xlib:drawable-x (window-parent win))
+                                         (xlib:drawable-x (window-xwin win)))
+                                      (+ (xlib:drawable-y (window-parent win))
+                                         (xlib:drawable-y (window-xwin win)))
+                                      (window-width win) (window-height win) 0)
+    (xlib:drawable-error (c)
+      (dformat 4 "ignore ~S in ~S on ~S" c 'update-configuration win))))
 
 ;; FIXME: should we raise the window or its parent?
 (defmethod raise-window (win)