From 35e64d08d595af9b803dd9df05348c118b569eea Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 18 Mar 2021 22:56:20 -0400 Subject: [PATCH] better way to add w3-right --- tutorial/26-tutorial.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tutorial/26-tutorial.lisp b/tutorial/26-tutorial.lisp index 510dde1..112dd13 100644 --- a/tutorial/26-tutorial.lisp +++ b/tutorial/26-tutorial.lisp @@ -23,11 +23,11 @@ (declare (ignore obj)) (setf (hash (location body)) "rung2")))) (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 icon) (ignore about))) + (declare (ignore icon)) + (add-class about "w3-right")) ;; rung-1 (let* ((first-rung (create-web-compositor body :html-id "rung1")) (image (create-img first-rung :url-src "/img/windmills.jpg"