(define-gboxed-variant-cstruct event "GdkEvent"
  (type event-type)
  (window (g:object window))
  (send-event (:boolean :int8))
  (:variant type
            ...
            ((:property-notify) event-property
             (atom :pointer)
             (time :uint32)
             (state property-state))
  ... ))