repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Support ASDF instead of Mudballs.
Annotate for file src/i18n-hello-world.lisp
2009-04-14 tobias
1
;;; Copyright 2009 Tobias Rautenkranz
14:29:22 '
2
;;; License: X11 license
'
3
2009-04-05 tobias
4
(in-package :qt.examples)
15:36:46 '
5
'
6
(defun i18n-hello-world ()
'
7
"i18n hello world"
2009-07-01 tobias
8
(qt:with-app ()
2010-01-10 tobias
9
;; ensures that the message catalogs are found regardless
08:54:26 '
10
;; of the current directory.
2009-12-13 tobias
11
(let ((source-path *default-pathname-defaults*))
2010-01-10 tobias
12
(qt:with-translator ("hello-world"
08:54:26 '
13
*default-pathname-defaults*
'
14
source-path)
'
15
(let ((widget (make-instance 'qt:label)))
'
16
(setf (cxx:window-title widget) (qt:tr "Lisp Qt Example" "hello-world")
'
17
(cxx:text widget) (format nil (qt:tr "<h1>Hello world</h1>
2009-04-05 tobias
18
15:36:46 '
19
You are running ~A version ~A on a ~A ~A")
2010-01-10 tobias
20
(lisp-implementation-type)
08:54:26 '
21
(lisp-implementation-version)
'
22
(software-type)
'
23
(software-version)))
'
24
(cxx:show widget)
'
25
(qt:exec))))))
2009-07-01 tobias
26
11:01:24 '
27
;; FIXME:
'
28
;; calling #'software-version from the qt:application event loop
'
29
;; segfaults in SBCL. The first call caches the result in
'
30
;; sb-sys::*software-version* and we thus prevent the crash in
'
31
;; (run-program "/bin/uname" [...]).
'
32
#+sbcl
2009-07-03 tobias
33
(smoke:eval-startup (:load-toplevel)
2009-07-01 tobias
34
(software-version))