src/repl.lisp
Wed Jul 1 13:01:24 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Use new qt:with-app.
--- old-qt.examples/src/repl.lisp 2014-10-01 15:06:46.000000000 +0200
+++ new-qt.examples/src/repl.lisp 2014-10-01 15:06:46.000000000 +0200
@@ -8,7 +8,7 @@
:initform (make-instance 'qt:string-list-model))
(output :reader output
:initform (make-instance 'qt:list-view))
- (input :reader input
+ (input :reader input
:initform (make-instance 'qt:line-edit)))
(:metaclass cxx:class))
@@ -43,7 +43,7 @@
(defun repl ()
"Lisp REPL"
- (qt:with-app
+ (qt:with-app ()
(let ((repl (make-instance 'repl)))
(cxx:show repl)
- (qt:exec repl))))
+ (qt:exec))))