Sun Jan 10 09:52:49 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Split up in qt.gui & cleanup name prefix.

--- old-qt.gui/src/event.lisp 2014-10-30 07:41:40.000000000 +0100

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

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

-(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)