repos
/
qt.gui
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
filehistory
normal
|
plain
|
shade
|
zebra
qt:event upcasting cleanup
Annotate for file src/event.lisp
2009-08-02 tobias
1
(in-package :cl-smoke.qt-impl)
11:29:02 '
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 'smoke::pointer)
'
8
(smoke::upcast event (find-class 'qt:child-event)))
'
9
(change-class event 'qt:child-event)))
'
10
event)