branch: externals/xelb
commit 4dcf60b4cfcb0d882f23e6181bc2835154021545
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>

    Add missing slots for WM_SIZE_HINTS classes
    
    * xcb-icccm.el (xcb:icccm:get-WM_SIZE_HINTS)
    (xcb:icccm:set-WM_SIZE_HINTS): Add the missing 'property' slot.
---
 xcb-icccm.el |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/xcb-icccm.el b/xcb-icccm.el
index 601ec14..e4a8336 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -375,14 +375,16 @@ whose fields are explicitly listed out."
    (win-gravity :initarg :win-gravity :initform 0 :type xcb:-ignore)))
 ;;
 (defclass xcb:icccm:get-WM_SIZE_HINTS (xcb:icccm:-GetProperty-explicit)
-  ((type :initform xcb:Atom:WM_SIZE_HINTS)
+  ((property :initform xcb:Atom:WM_SIZE_HINTS)
+   (type :initform xcb:Atom:WM_SIZE_HINTS)
    (long-length :initform 18)))         ;fixed
 (defclass xcb:icccm:get-WM_SIZE_HINTS~reply
   (xcb:icccm:-GetProperty-explicit~reply xcb:icccm:-WM_SIZE_HINTS)
   nil)
 (defclass xcb:icccm:set-WM_SIZE_HINTS
   (xcb:icccm:-ChangeProperty-explicit xcb:icccm:-WM_SIZE_HINTS)
-  ((type :initform xcb:Atom:WM_SIZE_HINTS)))
+  ((property :initform xcb:Atom:WM_SIZE_HINTS)
+   (type :initform xcb:Atom:WM_SIZE_HINTS)))
 
 ;; WM_NORMAL_HINTS
 (defclass xcb:icccm:get-WM_NORMAL_HINTS (xcb:icccm:get-WM_SIZE_HINTS)

Reply via email to