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 06:59:57.000000000 +0100
+++ new-qt.examples/src/class-browser.lisp 2014-10-30 06:59:57.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 06:59:57.000000000 +0100
+++ new-qt.examples/src/hello-world_de.po 2014-10-30 06:59:57.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 06:59:57.000000000 +0100
+++ new-qt.examples/src/i18n-hello-world.lisp 2014-10-30 06:59:57.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 06:59:57.000000000 +0100
+++ new-qt.examples/src/ui.lisp 2014-10-30 06:59:57.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+)