darcs - qt.examples

2 ;;; License: X11 license

4 (in-package :qt.examples)

6 (defun load-ui-file ()

7 "Load a Qt Designer .ui file"

8 (qt:with-app ()

9 (let ((loader (make-instance 'qt:ui-loader))

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

11 (widget))

12 (setf (cxx:file-name file)

13 (namestring

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

15 *source-path*

16 *default-pathname-defaults*)))

17 (assert (cxx:exists file) (file)

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

19 (unless (cxx:open file qt:iodevice.+read-only+)

20 (error "open failed"))

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

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

23 (error "load failed"))

24 (cxx:close file)

25 (cxx:show widget)

26 (qt:exec))))