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

fixes typos in tutorial 20

Browse source 
minor edits to spelling and punctuation
This commit is contained in:
cms 2021-02-05 12:06:05 +00:00
parent a2f11530fd
commit 06daeaed3f
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/20-tutorial.lisp
View file

@ -23,7 +23,7 @@
;;; Next we will use the clog-unordered-list as the base for our new ;;; Next we will use the clog-unordered-list as the base for our new
;;; class clog-toggler ;;; class clog-toggler
(defclass clog-toggler (clog-unordered-list) () (defclass clog-toggler (clog-unordered-list) ()
(:documentation "Toggler object - a collapsable UI component")) (:documentation "Toggler object - a collapsible UI component"))
(defgeneric create-toggler (clog-obj &key class html-id auto-place) (defgeneric create-toggler (clog-obj &key class html-id auto-place)
(:documentation "Create a toggler.")) (:documentation "Create a toggler."))
@ -34,8 +34,8 @@
(let ((new-obj (create-unordered-list obj :class class (let ((new-obj (create-unordered-list obj :class class
:html-id html-id :html-id html-id
:auto-place auto-place))) :auto-place auto-place)))
;; Using change-class we can reuse the parent clog-unordered-lists's ;; Using change-class we can re-use the parent clog-unordered-lists's
;; create method and it's initialization. Otherwise we can use ;; create method and its initialization. Otherwise we can use
;; create-child and the needed html. ;; create-child and the needed html.
(change-class new-obj 'clog-toggler) (change-class new-obj 'clog-toggler)
new-obj)) new-obj))
@ -69,6 +69,6 @@
(run body)) (run body))
(defun start-tutorial () (defun start-tutorial ()
"Start turtorial." "Start tutorial."
(initialize #'on-new-window) (initialize #'on-new-window)
(open-browser)) (open-browser))