Fri Apr 17 17:29:23 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Use C++ style overload resolution
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:04.000000000 +0100
+++ new-qt.examples/src/class-browser.lisp 2014-10-30 07:00:04.000000000 +0100
@@ -81,11 +81,9 @@
(defun set-info (info web-view model-index)
(let* ((class (class-at model-index)))
- (cxx:load web-view
- (make-instance 'qt:url
- :args (list (format nil "http://doc.trolltech.com/~A/~A.html"
+ (cxx:load web-view (format nil "http://doc.trolltech.com/~A/~A.html"
(subseq (qt:q-version) 0 3)
- (remove #\: (smoke::name class) :count 1)))))
+ (remove #\: (smoke::name class) :count 1)))
(cxx:set-text info
(format nil "<h1>qt:~A</h1>
<p>~A</p>
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:04.000000000 +0100
+++ new-qt.examples/src/hello-world_de.po 2014-10-30 07:00:04.000000000 +0100
@@ -6,7 +6,7 @@
msgstr ""
"Project-Id-Version: hello-world\n"
"Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2009-04-05 19:53+0200\n"
+"POT-Creation-Date: 2009-04-16 16:29+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:17
+#: i18n-hello-world.lisp:20
msgctxt "hello-world"
msgid "Lisp Qt Example"
msgstr "Lisp Qt Beispiel"
-#: i18n-hello-world.lisp:19
+#: i18n-hello-world.lisp:22
#, lisp-format
msgid ""
"<h1>Hello world</h1>\n"
diff -rN -u old-qt.examples/src/launcher.lisp new-qt.examples/src/launcher.lisp
--- old-qt.examples/src/launcher.lisp 2014-10-30 07:00:04.000000000 +0100
+++ new-qt.examples/src/launcher.lisp 2014-10-30 07:00:04.000000000 +0100
@@ -11,8 +11,8 @@
(let ((button (make-instance 'qt:push-button
:args (list (or (documentation function 'function)
(format nil "~A" function))))))
- (qt:connect-function button "clicked()"
- #'(lambda () (funcall function)))
+ (qt:connect (qt:get-signal button "clicked()")
+ #'(lambda () (funcall function)))
button))
diff -rN -u old-qt.examples/src/ui.lisp new-qt.examples/src/ui.lisp
--- old-qt.examples/src/ui.lisp 2014-10-30 07:00:04.000000000 +0100
+++ new-qt.examples/src/ui.lisp 2014-10-30 07:00:04.000000000 +0100
@@ -17,7 +17,7 @@
"widget.ui"))
(assert (cxx:exists file) (file)
"File ~A does not exists" (cxx:file-name file))
- (unless (cxx:open file (value qt:iodevice.+read-only+)) ;;FIXME value
+ (unless (cxx:open file qt:iodevice.+read-only+)
(error "open failed"))
(setf widget (cxx:load loader file))
(when (cffi:null-pointer-p (smoke::pointer widget))