Tue Apr 7 22:08:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* delayed initialization for class-browser
diff -rN -u old-qt.examples/src/class-browser.lisp new-qt.examples/src/class-browser.lisp
--- old-qt.examples/src/class-browser.lisp 2014-10-30 07:00:08.000000000 +0100
+++ new-qt.examples/src/class-browser.lisp 2014-10-30 07:00:08.000000000 +0100
@@ -49,8 +49,6 @@
(defmethod initialize-instance :after ((browser class-browser) &rest args)
(declare (ignore args))
- (setup-class-list (classes browser))
-
(let* ((w (make-instance 'qt:widget))
(layout (make-instance 'qt:vbox-layout)))
(cxx:add-widget layout (classes-list browser))
@@ -68,20 +66,20 @@
(cxx:set-layout w layout)
(cxx:add-widget browser w))
(cxx:add-widget browser (web-view browser))
- (cxx:load (web-view browser) (make-instance 'qt:url
- :args '("http://doc.trolltech.com/4.5")))
- (cxx:set-uniform-item-sizes (classes-list browser) t)
- (cxx:set-selection-mode (classes-list browser) qt:abstract-item-view.+single-selection+)
- (cxx:set-model (classes-list browser) (classes browser))
- (cxx:set-word-wrap (class-info browser) t)
- (cxx:set-window-title browser "CL Qt Classes")
-
- (qt:connect (qt:get-signal (cxx:selection-model (classes-list browser))
- "currentChanged(QModelIndex, QModelIndex)")
- #'(lambda (current previous)
- (declare (ignore previous))
- (set-info (class-info browser)
- (web-view browser) current))))
+ (qt:do-delayed-initialize
+ (setup-class-list (classes browser))
+ (cxx:set-uniform-item-sizes (classes-list browser) t)
+ (cxx:set-selection-mode (classes-list browser) qt:abstract-item-view.+single-selection+)
+ (cxx:set-model (classes-list browser) (classes browser))
+ (cxx:set-word-wrap (class-info browser) t)
+ (cxx:set-window-title browser "CL Qt Classes")
+
+ (qt:connect (qt:get-signal (cxx:selection-model (classes-list browser))
+ "currentChanged(QModelIndex, QModelIndex)")
+ #'(lambda (current previous)
+ (declare (ignore previous))
+ (set-info (class-info browser)
+ (web-view browser) current)))))
(defun set-info (info web-view model-index)
(let* ((class (class-at model-index)))
diff -rN -u old-qt.examples/src/hello-world_de.po new-qt.examples/src/hello-world_de.po
--- old-qt.examples/src/hello-world_de.po 2014-10-30 07:00:08.000000000 +0100
+++ new-qt.examples/src/hello-world_de.po 2014-10-30 07:00:08.000000000 +0100
@@ -6,7 +6,7 @@
msgstr ""
"Project-Id-Version: hello-world\n"
"Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2009-04-05 15:44+0200\n"
+"POT-Creation-Date: 2009-04-05 19:53+0200\n"
"PO-Revision-Date: 2009-03-21 11:41+0100\n"
"Last-Translator: Tobias Rautenkranz <tobias@rautenkranz.ch>\n"
"Language-Team: German <>\n"
@@ -16,12 +16,12 @@
"X-Generator: Lokalize 0.3\n"
"Plural-Forms: nplurals=2; plural=n != 1;\n"
-#: i18n-hello-world.lisp:15
+#: i18n-hello-world.lisp:17
msgctxt "hello-world"
msgid "Lisp Qt Example"
msgstr "Lisp Qt Beispiel"
-#: i18n-hello-world.lisp:17
+#: i18n-hello-world.lisp:19
#, lisp-format
msgid ""
"<h1>Hello world</h1>\n"