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

remove warnings

Browse source
This commit is contained in:
David Botton 2021-03-18 21:34:19 -04:00
parent 2011f99829
commit c2b73c93aa
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/26-tutorial.lisp
View file

@ -19,13 +19,15 @@
(setf (title (html-document body)) "Tutorial 26")
;; Install a menu
(let* ((menu (create-web-menu-bar body))
(tmp (create-web-menu-icon menu :on-click (lambda (obj)
(icon (create-web-menu-icon menu :on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2"))))
(tmp (create-web-menu-item menu :content "About"
(about (create-web-menu-item menu :content "About"
:class "w3-bar-item w3-button w3-right"
:on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2")))))
(declare (ignore tmp)))
(declare (ignore icon) (ignore about)))
;; rung-1
(let* ((first-rung (create-web-compositor body :html-id "rung1"))
(image (create-img first-rung :url-src "/img/windmills.jpg"