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

Start of event handling

Browse source
This commit is contained in:
David Botton 2020-12-21 23:34:39 -05:00
parent 042ce1ec39
commit 25626ed597
3 changed files with 118 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test/test-clog.lisp
View file

@ -15,9 +15,10 @@
(when (equal (property tmp "draggable")
(setf (property tmp "innerHTML") "<h2>I am draggable</h2>")))
(setf tmp (create-child win "<button>test</botton>"))
(set-on-click tmp (lambda () (clog-connection:alert-box (clog::connection-id win) "clicked")))
(setf (width tmp) 300)
(setf (height tmp) 50)
(create-child win "<H2>Cool!</H2>")
(create-child win (format nil "<H2>~A</H2>" (gethash "connection-id" (connection-data win))))
(setf *last-obj* (create-child win "<button>a</button>"))))
(defun test ()