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

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."))
(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"
(when handler
(lambda (data)
(funcall handler obj '(:event-type :touch))))
:one-time one-time
:cancel-event cancel-event))
(when handler
(lambda (data)
(declare (ignore data))
(funcall handler obj '(:event-type :touch))))
:one-time one-time
:cancel-event cancel-event))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-touch-cancel ;;
@ -1220,7 +1221,7 @@ ON-TOUCH-CANCEL-HANDLER is nil unbind the event."))
(set-event obj "touchcancel"
(when handler
(lambda (data)
(declare (ignore dara))
(declare (ignore data))
(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."))
(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)
(: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)
(js-to-integer (query obj (format nil "checkFrameBufferStatus(~A.~A)"
(script-id obj) target))
:junk-allowed t))
(script-id obj) target))))
(defgeneric clear-color (clog-webgl red green blue alpha)
(:documentation "Specifies the color values used when clearing color buffers