Sun Dec 13 11:50:24 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Install msg-handler also when starting from an image

--- old-qt.gui/src/msg-handler.lisp 2014-10-30 07:43:16.000000000 +0100

+++ new-qt.gui/src/msg-handler.lisp 2014-10-30 07:43:16.000000000 +0100

@@ -20,5 +20,5 @@

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

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

-(eval-when (:load-toplevel)

+(eval-startup (:load-toplevel)

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