Tue Apr 7 22:08:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* delayed initialization for class-browser
hunk ./src/class-browser.lisp 52
- (setup-class-list (classes browser))
- [_$_]
hunk ./src/class-browser.lisp 69
- (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)))))
hunk ./src/hello-world_de.po 9
-"POT-Creation-Date: 2009-04-05 15:44+0200\n"
+"POT-Creation-Date: 2009-04-05 19:53+0200\n"
hunk ./src/hello-world_de.po 19
-#: i18n-hello-world.lisp:15
+#: i18n-hello-world.lisp:17
hunk ./src/hello-world_de.po 24
-#: i18n-hello-world.lisp:17
+#: i18n-hello-world.lisp:19