Sun May 24 17:00:42 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Testrun examples on commit

--- old-qt.examples/src/repl.lisp 2014-10-30 07:38:15.000000000 +0100

+++ new-qt.examples/src/repl.lisp 2014-10-30 07:38:15.000000000 +0100

@@ -12,13 +12,14 @@

:initform (make-instance 'qt:line-edit)))

(:metaclass cxx:class))

+

(defun append-list-model (list-model string)

"Appends STRING to LIST-MODEL."

(let ((index (cxx:row-count list-model)))

(unless (cxx:insert-row list-model index)

(error "insert-row ~A for ~A failed." index list-model))

- (cxx:set-data list-model (cxx:index list-model index)

- (qt:make-variant string))))

+ (unless (cxx:set-data list-model (cxx:index list-model index) string)

+ (error "set-data failed."))))

(defmethod initialize-instance :after ((repl repl) &rest args)

(declare (ignore args))

@@ -30,10 +31,11 @@

(format nil "> ~A" (cxx:text (input repl))))

(append-list-model ;; return value

(model repl)

- (format nil "~S"

- (handler-case (eval (read-from-string (cxx:text (input repl))))

- (error (condition) condition))))

- (setf (cxx:text (input repl)) "")))

+ (write-to-string

+ (handler-case (eval (read-from-string

+ (cxx:text (input repl))))

+ (error (condition) condition))))

+ (cxx:clear (input repl))))

(let ((layout (make-instance 'qt:vbox-layout)))

(cxx:add-widget layout (output repl))

(cxx:add-widget layout (input repl))