Commits

Anonymous committed 96254cc

* lisp/xwem-events.el (xwem-ev-reconfig): [fix] Correct way to
handle opera issue.

Comments (0)

Files changed (2)

+2004-12-11  Zajcev Evgeny  <zevlg@yandex.ru>
+
+	* lisp/xwem-events.el (xwem-ev-reconfig): [fix] Correct way to
+		  handle opera issue.
+
 2004-12-11  Zajcev Evgeny  <zevlg@yandex.ru>
 
 	* lisp/xwem-main.el (xwem-debug-routines): [addon] X routines

lisp/xwem-events.el

 	       '(X-Win-id win) 'vmask '(X-Event-xconfigurerequest-x xev) '(X-Event-xconfigurerequest-y xev)
 	       '(X-Event-xconfigurerequest-width xev) '(X-Event-xconfigurerequest-height xev))
 
-    ;; Handle configure requests only from xwem clients
-    (when (xwem-cl-p cl)
+    (if (not (xwem-cl-p cl))
+        (when (xwem-misc-xwin-valid-p win)
+          ;; Not yet managed client
+          (XConfigureWindow (xwem-dpy) win
+                            (make-X-Conf
+                             :dpy (X-Win-dpy win)
+                             :x (and (Xtest vmask X-CWX)
+                                     (X-Event-xconfigurerequest-x xev))
+                             :y (and (Xtest vmask X-CWY)
+                                     (X-Event-xconfigurerequest-y xev))
+                             :width (and (Xtest vmask X-CWWidth)
+                                         (X-Event-xconfigurerequest-width xev))
+                             :height (and (Xtest vmask X-CWHeight)
+                                          (X-Event-xconfigurerequest-height xev))
+                             :border-width (and (Xtest vmask X-CWBorderWidth)
+                                                (X-Event-xconfigurerequest-border-width xev))
+                             :sibling (and (Xtest vmask X-CWSibling)
+                                           (X-Event-xconfigurerequest-sibling xev))
+                             :stackmode (and (Xtest vmask X-CWStackMode)
+                                             (X-Event-xconfigurerequest-stackmode xev)))))
+
       ;; Client window already in air
       (if (not (Xtest vmask (Xmask-or X-CWX X-CWY X-CWWidth X-CWHeight X-CWBorderWidth)))
           (xwem-cl-send-config cl)