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

Remove run body in almost every case

Browse source
This commit is contained in:
David Botton 2022-03-01 00:48:04 -05:00
parent c59ae62c32
commit e5e3e07645
36 changed files with 199 additions and 121 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tutorial/15-tutorial.lisp
View file

@ -24,8 +24,7 @@
(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)))
(set-on-time-update aud (lambda (obj)(declare (ignore obj))(setf (value alc) (media-position aud))))))
(defun start-tutorial ()
"Start turtorial."