mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
12 lines
321 B
Common Lisp
12 lines
321 B
Common Lisp
(in-package :qml-user)
|
|
|
|
(defun load-huge-library ()
|
|
(q> |running| "hourglass" t) ; start animation
|
|
;; run task in thread
|
|
(mp:process-run-function
|
|
:loading
|
|
(lambda ()
|
|
(sleep 10) ; loading patiently...
|
|
(q> |running| "hourglass" nil)))) ; stop animation
|
|
|
|
(qsingle-shot 1000 'load-huge-library)
|