small revisions

This commit is contained in:
polos 2017-02-25 12:16:50 +01:00
parent cf5cf5b649
commit d0d7282545
2 changed files with 4 additions and 1 deletions

View file

@ -14,5 +14,5 @@ a QML widget in any Qt application, combining both traditional Qt and QML.
* "palindrome-1" is a demo of generating QML code from Lisp (static QML);
* "palindrome-2" is the same using a 'Behavior' in QML, and a QTimer from Lisp
* "palindrome-2" is the same using a 'Behavior' in QML, and a timer from Lisp
(dynamic QML);

View file

@ -11,6 +11,9 @@
(use-package :qml)
;;; QSLEEP note: it's the same as SLEEP in CL, but continuing
;;; to process Qt events (using a temporary event loop)
(defun run-animation (&optional first)
(dolist (move-to (nthcdr (if first 1 0) *move-to-positions*))
(let ((target 0))