QVector<T> translation
Annotate for file /src/event.lisp
2010-01-10 tobias 1 (in-package :cl-smoke.qt.core)
2009-08-02 tobias 2
11:29:02 ' 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+)
2010-01-23 tobias 7 (setf (slot-value event 'pointer)
22:17:35 ' 8 (upcast event (find-class 'qt:child-event)))
2009-08-02 tobias 9 (change-class event 'qt:child-event)))
11:29:02 ' 10 event)