Sun Aug 2 13:29:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* qt:event upcasting cleanup

--- old-qt.gui/src/event.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.gui/src/event.lisp 2014-10-30 07:44:23.000000000 +0100

@@ -0,0 +1,10 @@

+(in-package :cl-smoke.qt-impl)

+

+(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 'smoke::pointer)

+ (smoke::upcast event (find-class 'qt:child-event)))

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

+ event)