Sun Apr 5 17:36:46 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* initial import

--- old-qt.examples/src/ui.lisp 1970-01-01 01:00:00.000000000 +0100

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

@@ -0,0 +1,24 @@

+(in-package :qt.examples)

+

+(defun load-ui-file ()

+ "Load a Qt Designer .ui file"

+ (qt:with-app

+ (let ((loader (make-instance 'qt.uitools:ui-loader))

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

+ (widget))

+ (cxx:set-file-name file

+ (concatenate 'string

+ (directory-namestring

+ (mb.sysdef:input-file

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

+ "widget.ui"))

+ (assert (cxx:exists file) (file)

+ "File ~A does not exists" (cxx:file-name file))

+ (unless (cxx:open file (value qt:iodevice.+read-only+)) ;;FIXME value

+ (error "open failed"))

+ (setf widget (cxx:load loader file))

+ (when (cffi:null-pointer-p (smoke::pointer widget))

+ (error "load failed"))

+ (cxx:close file)

+ (cxx:show widget)

+ (qt:exec))))