(cffi:defcstruct window-attr
  (title :string)
  (event-mask event-mask)
  (x :int)
  (y :int)
  (width :int)
  (height :int)
  (wclass window-window-class)
  (visual (g:object visual))
  (window-type window-type)
  (cursor (g:object cursor))
  (wmclass-name :string)
  (wmclass-class :string)
  (override-redirect :boolean)
  (type-hint window-type-hint))