Mon May 11 20:30:39 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* use (setf instead of setter methods.
hunk ./src/class-browser.lisp 35
- (:metaclass smoke::smoke-wrapper-class))
+ (:metaclass cxx:class))
hunk ./src/class-browser.lisp 61
- (cxx:set-widget scroll (class-info browser))
- (cxx:set-widget-resizable scroll t)
+ (setf (cxx:widget scroll) (class-info browser)
+ (cxx:widget-resizable scroll) t)
hunk ./src/class-browser.lisp 64
- (cxx:set-layout w layout)
+ (setf (cxx:layout w) layout)
hunk ./src/class-browser.lisp 69
- (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")
-
+ (setf (cxx:uniform-item-sizes (classes-list browser)) t
+ (cxx:selection-mode (classes-list browser)) qt:abstract-item-view.+single-selection+
+ (cxx:model (classes-list browser)) (classes browser)
+ (cxx:word-wrap (class-info browser)) t
+ (cxx:window-title browser) "CL Qt Classes")
hunk ./src/class-browser.lisp 85
- (remove #\: (smoke::name class) :count 1)))
+ (remove #\: (smoke:name class) :count 1)))
hunk ./src/class-browser.lisp 99
- (smoke::name class)
+ (smoke:name class)
hunk ./src/hello-world-quit.lisp 12
- (value qt:font.+bold+)))))
+ qt:font.+bold+))))
hunk ./src/hello-world-quit.lisp 14
- (cxx:set-font quit font)
+ (setf (cxx:font quit) font)
hunk ./src/hello-world_de.po 9
-"POT-Creation-Date: 2009-04-16 16:29+0200\n"
+"POT-Creation-Date: 2009-05-11 18:00+0200\n"
hunk ./src/hello-world_de.po 19
-#: i18n-hello-world.lisp:20
+#: i18n-hello-world.lisp:18
hunk ./src/hello-world_de.po 24
-#: i18n-hello-world.lisp:22
+#: i18n-hello-world.lisp:19
hunk ./src/i18n-hello-world.lisp 13
- [_$_]
hunk ./src/i18n-hello-world.lisp 18
- (setf (qt:property widget 'window-title)
- (qt:tr "Lisp Qt Example" "hello-world"))
- (cxx:set-text widget
- (format nil (qt:tr "<h1>Hello world</h1>
+ (setf (cxx:window-title widget) (qt:tr "Lisp Qt Example" "hello-world")
+ (cxx:text widget) (format nil (qt:tr "<h1>Hello world</h1>
hunk ./src/launcher.lisp 25
- (cxx:set-layout launcher layout)))
+ (setf (cxx:layout launcher) layout)))
hunk ./src/repl.lisp 8
- :initform (make-instance 'qt:string-list-model))
+ :initform (make-instance 'qt:string-list-model))
hunk ./src/repl.lisp 21
- (qt::make-variant string))))
+ (qt:make-variant string))))
hunk ./src/repl.lisp 25
- (cxx:set-model (output repl) (model repl))
+ (setf (cxx:model (output repl)) (model repl))
hunk ./src/repl.lisp 36
- (cxx:set-text (input repl) "")))
+ (setf (cxx:text (input repl)) "")))
hunk ./src/repl.lisp 40
- (cxx:set-layout repl layout))
+ (setf (cxx:layout repl) layout))
hunk ./src/tick-tack-toe.lisp 11
- (:metaclass smoke::smoke-wrapper-class))
+ (:metaclass cxx:class))
hunk ./src/tick-tack-toe.lisp 18
- (:metaclass smoke::smoke-wrapper-class))
+ (:metaclass cxx:class))
hunk ./src/tick-tack-toe.lisp 22
- (cxx:set-text cell "X")
+ (setf (cxx:text cell) "X")
hunk ./src/tick-tack-toe.lisp 34
- (cxx:set-text (aref board x y) "O")
+ (setf (cxx:text (aref board x y)) "O")
hunk ./src/tick-tack-toe.lisp 55
- (cxx:set-text (aref board x y) ""))))
+ (setf (cxx:text (aref board x y)) ""))))
hunk ./src/tick-tack-toe.lisp 97
- (setf (check-slot widget) (qt::make-slot #'(lambda ()
- (update-cell widget
- (qt:sender)))))
-
+ (setf (check-slot widget) (qt:make-slot #'(lambda ()
+ (update-cell widget
+ (qt:sender)))))
hunk ./src/tick-tack-toe.lisp 105
- (qt::connect (make-instance 'qt::qt-signal
- :sender (aref (board widget) x y)
- :name "clicked()")
- (check-slot widget))
+ (qt:connect (qt:get-signal (aref (board widget) x y)
+ "clicked()")
+ (check-slot widget))
hunk ./src/tick-tack-toe.lisp 110
- (cxx:set-layout widget layout)))
+ (setf (cxx:layout widget) layout)))
hunk ./src/ui.lisp 9
- (let ((loader (make-instance 'qt.uitools:ui-loader))
- (file (make-instance 'qt:file))
- (widget))
- (cxx:set-file-name file [_$_]
- (concatenate 'string
- (directory-namestring
- (mb.sysdef:input-file
- (mb.sysdef:find-component :qt.examples "src" "ui")))
- "widget.ui"))
- (assert (cxx:exists file) (file)
- "File ~A does not exists" (cxx:file-name file))
- (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))
- (error "load failed"))
- (cxx:close file)
- (cxx:show widget)
- (qt:exec))))
+ (let ((loader (make-instance 'qt.uitools:ui-loader))
+ (file (make-instance 'qt:file))
+ (widget))
+ (setf (cxx:file-name file)
+ (concatenate 'string
+ (directory-namestring
+ (mb.sysdef:input-file
+ (mb.sysdef:find-component :qt.examples "src" "ui")))
+ "widget.ui"))
+ (assert (cxx:exists file) (file)
+ "File ~A does not exists" (cxx:file-name file))
+ (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))
+ (error "load failed"))
+ (cxx:close file)
+ (cxx:show widget)
+ (qt:exec))))