anchor.diff:    (x-root :int) (y-root :int)
     (state :unsigned-int)
     (is-hint :char)
  -  (same-screen bool))
  +  (same-screen :boolean))
   
   (defctype x-pointer-moved-event x-motion-event)
   
  
positive.code:   (width :int) (height :int)
    (border-width :int)
    (above window)
    (override-reirect bool))
  
  (defcstruct x-map-event
    (type :int)
    (serial :unsigned-long)
    (send-event bool)
    (display-ptr :pointer)
    (event window)
    (win window)
    (override-redirect bool))
  
  (defcstruct x-unmap-event
    (type :int)
    (serial :unsigned-long)
    (send-event bool)
    (display-ptr :pointer)
    (event window)
    (win window)
    (from-configure bool))
  
  (defcenum visibility-state
    (:unobscured 0)
  
negative.code: (defcstruct x-expose-event
    (type :int)
    (serial :unsigned-long)
    (send-event :boolean)
    (display-ptr :pointer)
    (win window)
    (x :int) (y :int)
  