+(defclass grab-broken-event (event)
+ ((keyboard
+ :allocation :alien
+ :accessor event-keyboard
+ :initarg :keyboard
+ :type boolean)
+ (implicit
+ :allocation :alien
+ :accessor event-implicit
+ :initarg :implicit
+ :type boolean)
+ (grab-window
+ :allocation :alien
+ :accessor event-grab-window
+ :initarg :grab-window
+ :type window))
+ (:metaclass event-class)
+ (:event-type :grab-broken))