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)