Sun Dec 13 11:50:24 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Install msg-handler also when starting from an image
diff -rN -u old-qt.gui/src/msg-handler.lisp new-qt.gui/src/msg-handler.lisp
--- old-qt.gui/src/msg-handler.lisp 2014-10-29 21:58:27.000000000 +0100
+++ new-qt.gui/src/msg-handler.lisp 2014-10-29 21:58:27.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)))
diff -rN -u old-qt.gui/src/qt.lisp new-qt.gui/src/qt.lisp
--- old-qt.gui/src/qt.lisp 2014-10-29 21:58:27.000000000 +0100
+++ new-qt.gui/src/qt.lisp 2014-10-29 21:58:27.000000000 +0100
@@ -28,10 +28,9 @@
(in-package :cl-smoke.qt-impl)
(define-smoke-module :cl-smoke.qt libsmokeqt
- (*qt-smoke* "qt_Smoke")
+ (*qt-smoke* "qt_Smoke")
(init-qt-smoke "init_qt_Smoke"))
-
(eval-when (:load-toplevel :compile-toplevel :execute)
#-mudballs
(define-foreign-library libqt-smoke-extra