diff --git a/tutorial/04-tutorial.lisp b/tutorial/04-tutorial.lisp index 47c5a69..25dd602 100644 --- a/tutorial/04-tutorial.lisp +++ b/tutorial/04-tutorial.lisp @@ -5,12 +5,12 @@ (in-package :clog-user) (defun my-on-click (obj) ; obj in any event is the target of the event - (setf (color obj) (rgb 0 255 0))) ; this makes it possible to reuse events + (setf (color obj) (rgb 0 255 0))) ; this makes it possible to reuse event handlers ; RGB is a helper function for color (defun on-new-window (body) "On-new-window handler." (setf (title (html-document body)) "Tutorial 4") - ;; The same handler my-on-click is set no both targets + ;; The same handler #'my-on-click is set on both targets (set-on-click (create-section body :h1 :content "Hello World! (click me!)") #'my-on-click) (set-on-click (create-section body :h3 :content "Click me too!")