From bf4232029c9b6d22569732975552e2ec4e360842 Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 28 Apr 2024 16:58:08 -0400 Subject: [PATCH] typos --- source/clog-element.lisp | 9 +++++---- tutorial/08-tutorial.lisp | 19 ++++++++++--------- 2 files changed, 15 insertions(+), 13 deletions(-) diff --git a/source/clog-element.lisp b/source/clog-element.lisp index e8aa291..38bbe6a 100644 --- a/source/clog-element.lisp +++ b/source/clog-element.lisp @@ -113,7 +113,8 @@ possible tag and keywords.")) (defgeneric create-child (clog-obj html &key html-id auto-place clog-type) (:documentation "Create a new CLOG-ELEMENT or sub-type of CLOG-TYPE from HTML as child of CLOG-OBJ and if :AUTO-PLACE (default t) place-inside-bottom-of -CLOG-OBJ. If HTML-ID is nil one will be generated.")) +CLOG-OBJ, you can also set auto-place to :bottom or :top. If HTML-ID is nil one +will be generated.")) (defmethod create-child ((obj clog-obj) html &key (html-id nil) (auto-place t) @@ -124,9 +125,9 @@ CLOG-OBJ. If HTML-ID is nil one will be generated.")) (setf (parent child) obj) (if auto-place (case auto-place - (:bottom (place-inside-bottom-of obj child)) - (:top (place-inside-top-of obj child)) - (t (place-inside-bottom-of obj child))) + (:bottom (place-inside-bottom-of obj child)) + (:top (place-inside-top-of obj child)) + (t (place-inside-bottom-of obj child))) child))) ;;;;;;;;;;;;;;;;;;;;; diff --git a/tutorial/08-tutorial.lisp b/tutorial/08-tutorial.lisp index 2b40a95..38bbb70 100644 --- a/tutorial/08-tutorial.lisp +++ b/tutorial/08-tutorial.lisp @@ -19,10 +19,10 @@ (defun on-mouse-down (obj data) (let* ((app (connection-data-item obj "app-data")) - (mouse-x (getf data :screen-x)) ; Use the screen coordinates not - (mouse-y (getf data :screen-y)) ; the coordinates relative to the obj - (obj-top (parse-integer (top obj) :junk-allowed t)) - (obj-left (parse-integer (left obj) :junk-allowed t))) + (mouse-x (getf data :screen-x)) ; Use the screen coordinates not + (mouse-y (getf data :screen-y)) ; the coordinates relative to the obj + (obj-top (position-top obj)) + (obj-left (position-left obj))) (setf (drag-x app) (- mouse-x obj-left)) (setf (drag-y app) (- mouse-y obj-top)) (set-on-pointer-move obj 'on-mouse-move) @@ -30,8 +30,8 @@ (defun on-mouse-move (obj data) (let* ((app (connection-data-item obj "app-data")) - (x (getf data :screen-x)) - (y (getf data :screen-y))) + (x (getf data :screen-x)) + (y (getf data :screen-y))) (setf (top obj) (unit :px (- y (drag-y app)))) (setf (left obj) (unit :px (- x (drag-x app)))))) @@ -44,9 +44,9 @@ (setf (connection-data-item body "app-data") app)) ; of our App. (setf (title (html-document body)) "Tutorial 08") (let* ((div1 (create-div body)) - (div2 (create-div div1)) - (div3 (create-div div2)) - (dir (create-div div1 :content "Click and drag the boxes"))) + (div2 (create-div div1)) + (div3 (create-div div2)) + (dir (create-div div1 :content "Click and drag the boxes"))) ;; Absolute allows fixed positioning relative to parent (setf (positioning dir) :absolute) (setf (bottom dir) 0) @@ -65,6 +65,7 @@ ;; to the entire window. (setf (positioning div1) :fixed) ; Its location relative to window (setf (overflow div1) :hidden) ; Clip the contents + (setf (positioning div1) :fixed) ; Its location relative to window (setf (positioning div2) :absolute) ; Its location relative to its parent container (setf (overflow div2) :hidden) (setf (positioning div3) :absolute)