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

correct style errors

Browse source
This commit is contained in:
David Botton 2024-02-08 23:42:33 -05:00
parent c913fce724
commit 81d2f059ab
3 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
source/clog-base.lisp
View file

@ -1200,13 +1200,14 @@ ON-TOUCH-MOVE-HANDLER is nil unbind the event."))
ON-TOUCH-END-HANDLER is nil unbind the event.")) ON-TOUCH-END-HANDLER is nil unbind the event."))
(defmethod set-on-touch-end ((obj clog-obj) handler (defmethod set-on-touch-end ((obj clog-obj) handler
&key (one-time nil) (cancel-event nil)) &key (one-time nil) (cancel-event nil))
(set-event obj "touchend" (set-event obj "touchend"
(when handler (when handler
(lambda (data) (lambda (data)
(funcall handler obj '(:event-type :touch)))) (declare (ignore data))
:one-time one-time (funcall handler obj '(:event-type :touch))))
:cancel-event cancel-event)) :one-time one-time
:cancel-event cancel-event))
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-touch-cancel ;; ;; set-on-touch-cancel ;;
@ -1220,7 +1221,7 @@ ON-TOUCH-CANCEL-HANDLER is nil unbind the event."))
(set-event obj "touchcancel" (set-event obj "touchcancel"
(when handler (when handler
(lambda (data) (lambda (data)
(declare (ignore dara)) (declare (ignore data))
(funcall handler obj))))) (funcall handler obj)))))
;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;

2
source/clog-element.lisp
View file

@ -1693,7 +1693,7 @@ UNITS (default :px) is used."))
(:documentation "Get/Setf inner-height. Includes padding but not border.")) (:documentation "Get/Setf inner-height. Includes padding but not border."))
(defmethod inner-height ((obj clog-element)) (defmethod inner-height ((obj clog-element))
(js-to-intger (jquery-query obj "innerHeight()"))) (js-to-integer (jquery-query obj "innerHeight()")))
(defgeneric (setf inner-height) (value clog-element) (defgeneric (setf inner-height) (value clog-element)
(:documentation "Set inner-height VALUE for CLOG-ELEMENT")) (:documentation "Set inner-height VALUE for CLOG-ELEMENT"))

3
source/clog-webgl.lisp
View file

@ -431,8 +431,7 @@ Used as a source for reading operations."))
(defmethod check-frame-buffer-status ((obj clog-webgl) target) (defmethod check-frame-buffer-status ((obj clog-webgl) target)
(js-to-integer (query obj (format nil "checkFrameBufferStatus(~A.~A)" (js-to-integer (query obj (format nil "checkFrameBufferStatus(~A.~A)"
(script-id obj) target)) (script-id obj) target))))
:junk-allowed t))
(defgeneric clear-color (clog-webgl red green blue alpha) (defgeneric clear-color (clog-webgl red green blue alpha)
(:documentation "Specifies the color values used when clearing color buffers (:documentation "Specifies the color values used when clearing color buffers