Thu May 14 14:27:03 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Lisp image loading

--- old-qt.examples/src/ui.lisp 2014-10-30 07:38:40.000000000 +0100

+++ new-qt.examples/src/ui.lisp 2014-10-30 07:38:40.000000000 +0100

@@ -10,11 +10,12 @@

(file (make-instance 'qt:file))

(widget))

(setf (cxx:file-name file)

- (concatenate 'string

- (directory-namestring

- (mb.sysdef:input-file

- (mb.sysdef:find-component :qt.examples "src" "ui")))

- "widget.ui"))

+ (namestring

+ (qt:search-file "widget.ui"

+ *default-pathname-defaults*

+ (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+)