mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use xcb:icccm:-ManagerSelection (#16)

Browse source 
* 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'.
This commit is contained in:
Daniel Mendler 2024-02-12 23:55:19 +01:00 committed by GitHub
parent a6e66f5e33
commit 182102767e
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 2 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
exwm-systemtray.el
View file

@ -46,15 +46,6 @@
(visible :initarg :visible)) (visible :initarg :visible))
:documentation "Attributes of a system tray icon.") :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 (defgroup exwm-systemtray nil
"System tray." "System tray."
:group 'exwm) :group 'exwm)
@ -542,7 +533,7 @@ Argument DATA contains the raw event data."
:destination exwm--root :destination exwm--root
:event-mask xcb:EventMask:StructureNotify :event-mask xcb:EventMask:StructureNotify
:event (xcb:marshal :event (xcb:marshal
(make-instance 'xcb:systemtray:-ClientMessage (make-instance 'xcb:icccm:-ManagerSelection
:window exwm--root :window exwm--root
:time xcb:Time:CurrentTime :time xcb:Time:CurrentTime
:selection :selection

2
exwm-xsettings.el
View file

@ -293,7 +293,7 @@ SERIAL is a sequence number."
:destination exwm--root :destination exwm--root
:event-mask xcb:EventMask:StructureNotify :event-mask xcb:EventMask:StructureNotify
:event (xcb:marshal :event (xcb:marshal
(make-instance 'xcb:xsettings:-ClientMessage (make-instance 'xcb:icccm:-ManagerSelection
:window exwm--root :window exwm--root
:time xcb:Time:CurrentTime :time xcb:Time:CurrentTime
:selection exwm-xsettings--XSETTINGS_S0-atom :selection exwm-xsettings--XSETTINGS_S0-atom