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/i18n-hello-world.lisp
2009-04-05 tobias
1
(in-package :qt.examples)
15:36:46 '
2
'
3
(defun i18n-hello-world ()
'
4
"i18n hello world"
'
5
(qt:with-app
'
6
(qt:with-translator
'
7
;; ensures that the message catalogs are found regardless
'
8
;; of the current directory.
'
9
(concatenate 'string
'
10
'
11
(directory-namestring
'
12
(mb.sysdef:input-file
'
13
(mb.sysdef:find-component :qt.examples "src" "i18n-hello-world")))
'
14
"hello-world")
'
15
(let ((widget (make-instance 'qt:label)))
'
16
(setf (qt:property widget 'window-title)
'
17
(qt:tr "Lisp Qt Example" "hello-world"))
'
18
(cxx:set-text widget
'
19
(format nil (qt:tr "<h1>Hello world</h1>
'
20
'
21
You are running ~A version ~A on a ~A ~A")
'
22
(lisp-implementation-type)
'
23
(lisp-implementation-version)
'
24
(software-type)
'
25
(software-version)))
'
26
(cxx:show widget)
'
27
(qt:exec widget)))))