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/msg-handler.lisp 2014-10-30 07:42:12.000000000 +0100

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

@@ -1,24 +0,0 @@

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

-

-;; FIXME Determine the actual size of the QtMsgType enum.

-(cffi:defctype qt-msg-type :int)

-

-;; QtMsgHandler is a typedef for a pointer.

-(define-pointer-typedef "QtMsgHandler" foreign-pointer)

-

-(define-pointer-typedef "void(*)(QtMsgType,const char*)" foreign-pointer)

-(define-pointer-typedef "unsigned char*" foreign-pointer)

-

-(defcallback qt-msg-handler :void

- ((type qt-msg-type)

- (message :string))

- (ecase type

- (#.(value qt:+qt-debug-msg+)

- (write-string "qDebug: " *debug-io*)

- (write-line message *debug-io*))

- (#.(value qt:+qt-warning-msg+) (warn message))

- (#.(value qt:+qt-critical-msg+) (cerror "Ignore" "~A" message))

- (#.(value qt:+qt-fatal-msg+) (error message))))

-

-(eval-startup (:load-toplevel)

- (qt:q-install-msg-handler (callback qt-msg-handler)))