Tue Apr 7 22:08:36 CEST 2009 Tobias Rautenkranz * 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:39:27.000000000 +0100 +++ new-qt.examples/src/class-browser.lisp 2014-10-30 07:39:27.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:39:27.000000000 +0100 +++ new-qt.examples/src/hello-world_de.po 2014-10-30 07:39:27.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 \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 "" "

Hello world

\n"