Thu May 28 16:23:33 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* ASDF support
hunk ./src/class-browser.lisp 19
- (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)))
hunk ./src/hello-world_de.po 9
-"POT-Creation-Date: 2009-05-14 13:56+0200\n"
+"POT-Creation-Date: 2009-05-28 15:39+0200\n"
hunk ./src/hello-world_de.po 19
-#: i18n-hello-world.lisp:19
+#: i18n-hello-world.lisp:20
hunk ./src/hello-world_de.po 24
-#: i18n-hello-world.lisp:20
+#: i18n-hello-world.lisp:21
hunk ./src/i18n-hello-world.lisp 11
- (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*))
hunk ./src/ui.lisp 14
- (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"))))))