repos
/
qt.core
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/msg-handler.lisp
2009-04-05 tobias
1
(in-package :qt)
17:56:16 '
2
'
3
(cffi:defcenum qt-msg-type
'
4
(:debug-message)
'
5
(:warning-message)
'
6
(:critical-message)
'
7
(:fatal-message))
'
8
'
9
(defcallback qt-msg-handler :void
'
10
((type qt-msg-type)
'
11
(message :string))
'
12
(ecase type
'
13
(:debug-message
'
14
(write-string "qDebug: " *debug-io*)
'
15
(write-line message *debug-io*))
'
16
(:warning-message (warn message))
'
17
(:critical-message (cerror "Ignore" "~A" message))
'
18
(:fatal-message (error message))))
'
19
'
20
(defun register-msg-handler ()
'
21
(with-foreign-object (handler :pointer)
'
22
(setf (mem-ref handler :pointer) (callback qt-msg-handler))
'
23
(qt:q-install-msg-handler handler)))
'
24
'
25
(eval-when (:load-toplevel)
'
26
(register-msg-handler))