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

2

3 (defun cast-event (event)

4 (enum-case (cxx:type event)

5 ((qt:event.+child-added+ qt:event.+child-removed+

6 qt:event.+child-polished+)

7 (setf (slot-value event 'pointer)

8 (upcast event (find-class 'qt:child-event)))

9 (change-class event 'qt:child-event)))

10 event)