1 ;;; Copyright 2009 Tobias Rautenkranz
2 ;;; License: X11 license
4 (in-package :qt.examples)
6 (defun i18n-hello-world ()
9 (qt:with-translator ("hello-world"
10 *default-pathname-defaults*
12 (let ((widget (make-instance 'qt:label)))
13 (setf (cxx:window-title widget) (qt:tr "Lisp Qt Example" "hello-world")
14 (cxx:text widget) (format nil (qt:tr "<h1>Hello world</h1>
16 You are running ~A version ~A on a ~A ~A")
17 (lisp-implementation-type)
18 (lisp-implementation-version)
25 ;; calling #'software-version from the qt:application event loop
26 ;; segfaults in SBCL. The first call caches the result in
27 ;; sb-sys::*software-version* and we thus prevent the crash in
28 ;; (run-program "/bin/uname" [...]).
30 (smoke:eval-startup (:load-toplevel)