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:38:59.000000000 +0100
+++ new-qt.examples/src/class-browser.lisp	2014-10-30 07:38:59.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:38:59.000000000 +0100
+++ new-qt.examples/src/hello-world_de.po	2014-10-30 07:38:59.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:38:59.000000000 +0100
+++ new-qt.examples/src/launcher.lisp	2014-10-30 07:38:59.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:38:59.000000000 +0100
+++ new-qt.examples/src/ui.lisp	2014-10-30 07:38:59.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))