From d0d728254511e24617adb9575b2f8afd968ebeb9 Mon Sep 17 00:00:00 2001 From: polos Date: Sat, 25 Feb 2017 12:16:50 +0100 Subject: [PATCH] small revisions --- examples/M-modules/quick/README.txt | 2 +- examples/M-modules/quick/palindrome-2/palindrome.lisp | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) 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))