mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
typos in comments and docstrings for tutorial 11
a few minor typos
This commit is contained in:
parent
f860cee2ba
commit
a7054d04ea
1 changed files with 8 additions and 8 deletions
|
|
@ -1,13 +1,13 @@
|
||||||
;;; Creating code GUIs from scratch is great, but in the real world often design
|
;;; Creating code GUIs from scratch is great, but in the real world often design
|
||||||
;;; is left to artists and code is left to engineers. CLOG is an amazign solution
|
;;; is left to artists and code is left to engineers. CLOG is an amazing solution
|
||||||
;;; for that model of app development. Any existing web page can be come a CLOG
|
;;; for that model of app development. Any existing web page can become a CLOG
|
||||||
;;; app by simply adding the following two lines to an existing HTML file:
|
;;; app by simply adding the following two lines to an existing HTML file:
|
||||||
;;;
|
;;;
|
||||||
;;; <script src="/js/jquery.min.js" type="text/javascript"></script>
|
;;; <script src="/js/jquery.min.js" type="text/javascript"></script>
|
||||||
;;; <script src="/js/boot.js" type="text/javascript"></script>
|
;;; <script src="/js/boot.js" type="text/javascript"></script>
|
||||||
;;;
|
;;;
|
||||||
;;; The first line adds jquery which CLOG uses to enhance browser compatability.
|
;;; The first line adds jquery which CLOG uses to enhance browser compatability.
|
||||||
;;; The second line add the "boot" file.
|
;;; The second line adds the "boot" file.
|
||||||
;;;
|
;;;
|
||||||
;;; For this tutorial we generated the clog/static-files/tutorial/tut-11.html
|
;;; For this tutorial we generated the clog/static-files/tutorial/tut-11.html
|
||||||
;;; by using the form generator at https://bootsnipp.com/forms?version=3
|
;;; by using the form generator at https://bootsnipp.com/forms?version=3
|
||||||
|
|
@ -16,11 +16,11 @@
|
||||||
;;; form (id='form1') as the generator did not add one.
|
;;; form (id='form1') as the generator did not add one.
|
||||||
;;;
|
;;;
|
||||||
;;; - We set a blank on-submit to overide the behavior in the bootstrap
|
;;; - We set a blank on-submit to overide the behavior in the bootstrap
|
||||||
;;; buttons to submit the from HTML style.
|
;;; buttons to submit the form HTML style.
|
||||||
;;; - We are going to attach to the "Good Button" an on-click handler
|
;;; - We are going to attach to the "Good Button" an on-click handler
|
||||||
;;; to handle getting the values
|
;;; to handle getting the values
|
||||||
;;; - We attach to each control in the on-click handler that we want
|
;;; - We attach to each control in the on-click handler that we want
|
||||||
;;; value for and query them
|
;;; a value for and query them
|
||||||
;;; - We attach an on-click handler that resets the form to the
|
;;; - We attach an on-click handler that resets the form to the
|
||||||
;;; "Scary Button"
|
;;; "Scary Button"
|
||||||
;;;
|
;;;
|
||||||
|
|
@ -62,13 +62,13 @@
|
||||||
(on-click-scary (obj)
|
(on-click-scary (obj)
|
||||||
(declare (ignore obj))
|
(declare (ignore obj))
|
||||||
(reset form)))
|
(reset form)))
|
||||||
;; We need to overide the boostrap default to submit the form html style
|
;; We need to override the boostrap default to submit the form html style
|
||||||
(set-on-submit form (lambda (obj)(declare (ignore obj))()))
|
(set-on-submit form (lambda (obj)(declare (ignore obj))()))
|
||||||
(set-on-click good-button #'on-click-good)
|
(set-on-click good-button #'on-click-good)
|
||||||
(set-on-click scary-button #'on-click-scary))
|
(set-on-click scary-button #'on-click-scary))
|
||||||
(run body)))
|
(run body)))
|
||||||
|
|
||||||
(defun start-tutorial ()
|
(defun start-tutorial ()
|
||||||
"Start turtorial."
|
"Start tutorial."
|
||||||
(initialize #'on-new-window)
|
(initialize #'on-new-window)
|
||||||
(open-browser :url "http://127.0.0.1:8080/tutorial/tut-11.html"))
|
(open-browser :url "http://127.0.0.1:8080/tutorial/tut-11.html"))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue