repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/ui.lisp
2009-04-05 tobias
1
(in-package :qt.examples)
15:36:46 '
2
'
3
(defun load-ui-file ()
'
4
"Load a Qt Designer .ui file"
'
5
(qt:with-app
'
6
(let ((loader (make-instance 'qt.uitools:ui-loader))
'
7
(file (make-instance 'qt:file))
'
8
(widget))
'
9
(cxx:set-file-name file
'
10
(concatenate 'string
'
11
(directory-namestring
'
12
(mb.sysdef:input-file
'
13
(mb.sysdef:find-component :qt.examples "src" "ui")))
'
14
"widget.ui"))
'
15
(assert (cxx:exists file) (file)
'
16
"File ~A does not exists" (cxx:file-name file))
'
17
(unless (cxx:open file (value qt:iodevice.+read-only+)) ;;FIXME value
'
18
(error "open failed"))
'
19
(setf widget (cxx:load loader file))
'
20
(when (cffi:null-pointer-p (smoke::pointer widget))
'
21
(error "load failed"))
'
22
(cxx:close file)
'
23
(cxx:show widget)
'
24
(qt:exec))))