From 182102767e578c4c9556c3fc30135ec8ac7b8471 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Mon, 12 Feb 2024 23:55:19 +0100 Subject: [PATCH] Use xcb:icccm:-ManagerSelection (#16) * exwm-systemtray.el (xcb:systemtray:-ClientMessage): Remove class. (exwm-systemtray--init): Use `xcb:icccm:-ManagerSelection' instead of `xcb:systemtray:-ClientMessage'. * exwm-xsettings.el (exwm-xsettings--init): Use `xcb:icccm:-ManagerSelection' instead of `xcb:xsettings:-ClientMessage'. --- exwm-systemtray.el | 11 +---------- exwm-xsettings.el | 2 +- 2 files changed, 2 insertions(+), 11 deletions(-) diff --git a/exwm-systemtray.el b/exwm-systemtray.el index 9e57dae..2b46568 100644 --- a/exwm-systemtray.el +++ b/exwm-systemtray.el @@ -46,15 +46,6 @@ (visible :initarg :visible)) :documentation "Attributes of a system tray icon.") -(defclass xcb:systemtray:-ClientMessage - (xcb:icccm:--ClientMessage xcb:ClientMessage) - ((format :initform 32) - (type :initform 'xcb:Atom:MANAGER) - (time :initarg :time :type xcb:TIMESTAMP) ;new slot - (selection :initarg :selection :type xcb:ATOM) ;new slot - (owner :initarg :owner :type xcb:WINDOW)) ;new slot - :documentation "A systemtray client message.") - (defgroup exwm-systemtray nil "System tray." :group 'exwm) @@ -542,7 +533,7 @@ Argument DATA contains the raw event data." :destination exwm--root :event-mask xcb:EventMask:StructureNotify :event (xcb:marshal - (make-instance 'xcb:systemtray:-ClientMessage + (make-instance 'xcb:icccm:-ManagerSelection :window exwm--root :time xcb:Time:CurrentTime :selection diff --git a/exwm-xsettings.el b/exwm-xsettings.el index 99d6b9c..596588b 100644 --- a/exwm-xsettings.el +++ b/exwm-xsettings.el @@ -293,7 +293,7 @@ SERIAL is a sequence number." :destination exwm--root :event-mask xcb:EventMask:StructureNotify :event (xcb:marshal - (make-instance 'xcb:xsettings:-ClientMessage + (make-instance 'xcb:icccm:-ManagerSelection :window exwm--root :time xcb:Time:CurrentTime :selection exwm-xsettings--XSETTINGS_S0-atom