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

typos

Browse source
This commit is contained in:
smvamse 2021-07-11 21:12:42 +05:30 • committed by GitHub
parent 4a0d14fd1f
commit 187ae5c9c9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/04-tutorial.lisp
View file

@ -5,12 +5,12 @@
(in-package :clog-user) (in-package :clog-user)
(defun my-on-click (obj) ; obj in any event is the target of the event (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 ; RGB is a helper function for color
(defun on-new-window (body) (defun on-new-window (body)
"On-new-window handler." "On-new-window handler."
(setf (title (html-document body)) "Tutorial 4") (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!)") (set-on-click (create-section body :h1 :content "Hello World! (click me!)")
#'my-on-click) #'my-on-click)
(set-on-click (create-section body :h3 :content "Click me too!") (set-on-click (create-section body :h3 :content "Click me too!")