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

add declare ignores

Browse source
This commit is contained in:
David Botton 2022-07-18 22:58:52 -04:00
parent 25a9462f1f
commit 1cf6758abb
7 changed files with 22 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/test-clog.lisp
View file

@ -20,7 +20,7 @@
(when (draggablep tmp)
(setf (property tmp "innerHTML") "<h2>I am draggable</h2>"))
(setf tmp (create-child win "<button>test</botton>"))
(set-on-click tmp (lambda (obj) (alert (window win) "clicked")))
(set-on-click tmp (lambda (obj) (declare (ignore obj)) (alert (window win) "clicked")))
(setf (box-sizing tmp) :border-box)
(setf (width tmp) 300)
(setf (height tmp) 50)
@ -31,18 +31,23 @@
(setf *last-obj* (create-child win "<button>********</button>"))
(set-on-mouse-enter *last-obj*
(lambda (obj)
(declare (ignore obj))
(setf (property *last-obj* "innerHTML") "Inside")))
(set-on-mouse-leave *last-obj*
(lambda (obj)
(declare (ignore obj))
(setf (property *last-obj* "innerHTML") "Outside")))
(set-on-mouse-click *last-obj*
(lambda (obj data)
(declare (ignore obj))
(print data)))
(set-on-mouse-move *last-obj*
(lambda (obj data)
(declare (ignore obj))
(format t "x=~A Y=~A~%" (getf data ':x) (getf data ':y))))
(set-on-key-down win
(lambda (obj data)
(declare (ignore obj))
(print data)) :disable-default t)
(create-div win :content "Hello World! p")
(create-div win :content "Hello World! div")
@ -72,6 +77,7 @@
(let* ((tbl (create-table win))
(cap (create-table-caption tbl :content "My Table"))
(rw))
(declare (ignore cap))
(set-border tbl :thin :solid :black)