diff --git a/tutorial/04-tutorial.lisp b/tutorial/04-tutorial.lisp index 614296e..6d374a8 100644 --- a/tutorial/04-tutorial.lisp +++ b/tutorial/04-tutorial.lisp @@ -4,8 +4,8 @@ (in-package :clog-user) -(defun my-on-click (obj) - (setf (color obj) "green")) +(defun my-on-click (obj) ; obj in any event is the target of the event + (setf (color obj) "green")) ; this makes it possible to reuse events (defun on-new-window (body) "On-new-window handler." @@ -13,6 +13,9 @@ (setf (title (html-document body)) "Tutorial 4") (set-on-click (create-child body "