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

* modular smoke & cleanup.

--- old-qt.examples/src/hello-world-quit.lisp 2014-10-30 07:36:26.000000000 +0100

+++ new-qt.examples/src/hello-world-quit.lisp 2014-10-30 07:36:26.000000000 +0100

@@ -4,7 +4,7 @@

(in-package :qt.examples)

(defun hello-world-quit ()

- "Quit on push-button click."

+ "Quit on push-button click"

(qt:with-app ()

(let ((quit (make-instance 'qt:push-button :args '("Quit")))

(font (make-instance 'qt:font :args (list "Times"