mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

sbcl detected issues

Browse source
This commit is contained in:
David Botton 2021-03-04 13:51:20 -05:00
parent e5a270ffe1
commit 93389b5558
9 changed files with 44 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tutorial/15-tutorial.lisp
View file

@ -17,12 +17,13 @@
(ast (create-button body :content "||"))
(alc (create-form-element body :input))
(tmp (create-hr body)))
(set-on-click vpl (lambda (obj)(play-media vid)))
(set-on-click apl (lambda (obj)(play-media aud)))
(set-on-click vst (lambda (obj)(pause-media vid)))
(set-on-click ast (lambda (obj)(pause-media aud)))
(set-on-time-update vid (lambda (obj)(setf (value vlc) (media-position vid))))
(set-on-time-update aud (lambda (obj)(setf (value alc) (media-position aud))))
(declare (ignore tmp))
(set-on-click vpl (lambda (obj)(declare (ignore obj))(play-media vid)))
(set-on-click apl (lambda (obj)(declare (ignore obj))(play-media aud)))
(set-on-click vst (lambda (obj)(declare (ignore obj))(pause-media vid)))
(set-on-click ast (lambda (obj)(declare (ignore obj))(pause-media aud)))
(set-on-time-update vid (lambda (obj)(declare (ignore obj))(setf (value vlc) (media-position vid))))
(set-on-time-update aud (lambda (obj)(declare (ignore obj))(setf (value alc) (media-position aud))))
(run body)))
(defun start-tutorial ()