diff --git a/examples/M-modules/quick/README.txt b/examples/M-modules/quick/README.txt index c8126e6..8068c74 100644 --- a/examples/M-modules/quick/README.txt +++ b/examples/M-modules/quick/README.txt @@ -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); diff --git a/examples/M-modules/quick/palindrome-2/palindrome.lisp b/examples/M-modules/quick/palindrome-2/palindrome.lisp index fefa599..4662679 100644 --- a/examples/M-modules/quick/palindrome-2/palindrome.lisp +++ b/examples/M-modules/quick/palindrome-2/palindrome.lisp @@ -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))