Thu May 28 16:23:33 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * ASDF support
diff -rN -u old-qt.examples/src/class-browser.lisp new-qt.examples/src/class-browser.lisp
--- old-qt.examples/src/class-browser.lisp	2014-10-30 07:38:05.000000000 +0100
+++ new-qt.examples/src/class-browser.lisp	2014-10-30 07:38:05.000000000 +0100
@@ -16,9 +16,9 @@
   (if (and (cxx:is-valid index)
            (< (cxx:row index) (length (items list)))
            (= role (value qt:+display-role+)))
-      (qt:make-variant (string-downcase
-                        (class-name (aref (items list) (cxx:row index)))))
-      (make-instance 'qt:variant)))
+      (qt:make-variant
+       (string-downcase (class-name (aref (items list) (cxx:row index)))))
+      (qt:make-variant)))
 
 (defun class-at (model-index)
   (aref (items (cxx:model model-index)) (cxx:row model-index)))
diff -rN -u old-qt.examples/src/hello-world_de.po new-qt.examples/src/hello-world_de.po
--- old-qt.examples/src/hello-world_de.po	2014-10-30 07:38:05.000000000 +0100
+++ new-qt.examples/src/hello-world_de.po	2014-10-30 07:38:05.000000000 +0100
@@ -6,7 +6,7 @@
 msgstr ""
 "Project-Id-Version: hello-world\n"
 "Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2009-05-14 13:56+0200\n"
+"POT-Creation-Date: 2009-05-28 15:39+0200\n"
 "PO-Revision-Date: 2009-03-21 11:41+0100\n"
 "Last-Translator: Tobias Rautenkranz <tobias@rautenkranz.ch>\n"
 "Language-Team: German <>\n"
@@ -16,12 +16,12 @@
 "X-Generator: Lokalize 0.3\n"
 "Plural-Forms: nplurals=2; plural=n != 1;\n"
 
-#: i18n-hello-world.lisp:19
+#: i18n-hello-world.lisp:20
 msgctxt "hello-world"
 msgid "Lisp Qt Example"
 msgstr "Lisp Qt Beispiel"
 
-#: i18n-hello-world.lisp:20
+#: i18n-hello-world.lisp:21
 #, lisp-format
 msgid ""
 "<h1>Hello world</h1>\n"
diff -rN -u old-qt.examples/src/i18n-hello-world.lisp new-qt.examples/src/i18n-hello-world.lisp
--- old-qt.examples/src/i18n-hello-world.lisp	2014-10-30 07:38:05.000000000 +0100
+++ new-qt.examples/src/i18n-hello-world.lisp	2014-10-30 07:38:05.000000000 +0100
@@ -8,10 +8,12 @@
   (qt:with-app
       ;; ensures that the message catalogs are found regardless
       ;; of the current directory.
-      (let ((source-path (directory-namestring
-                          (mb.sysdef:input-file
-                           (mb.sysdef:find-component :qt.examples "src" 
-                                                     "i18n-hello-world")))))
+      (let ((source-path
+             #+mudballs (directory-namestring
+                         (mb.sysdef:input-file
+                          (mb.sysdef:find-component :qt.examples "src" 
+                                                    "i18n-hello-world")))
+             #-mudballs *default-pathname-defaults*))
         (qt:with-translator ("hello-world" 
                              *default-pathname-defaults*
                              source-path)
diff -rN -u old-qt.examples/src/ui.lisp new-qt.examples/src/ui.lisp
--- old-qt.examples/src/ui.lisp	2014-10-30 07:38:05.000000000 +0100
+++ new-qt.examples/src/ui.lisp	2014-10-30 07:38:05.000000000 +0100
@@ -11,11 +11,11 @@
             (widget))
         (setf (cxx:file-name file)
               (namestring
-              (qt:search-file "widget.ui"
-                              *default-pathname-defaults*
-                              (directory-namestring
-                               (mb.sysdef:input-file
-                                (mb.sysdef:find-component :qt.examples "src" "ui"))))))
+               (qt:search-file "widget.ui"
+                               *default-pathname-defaults*
+                               #+mudballs (directory-namestring
+                                           (mb.sysdef:input-file
+                                            (mb.sysdef:find-component :qt.examples "src" "ui"))))))
         (assert (cxx:exists file) (file)
                 "File ~A does not exists" (cxx:file-name file))
         (unless (cxx:open file  qt:iodevice.+read-only+)