(in-package :cl-smoke.qt.core)

(defun cast-event (event)
  (enum-case (cxx:type event)
    ((qt:event.+child-added+ qt:event.+child-removed+
                             qt:event.+child-polished+)
     (setf (slot-value event 'pointer)
           (upcast event (find-class 'qt:child-event)))
     (change-class event 'qt:child-event)))
  event)