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

More work on clog-element

Browse source
This commit is contained in:
David Botton 2021-01-03 19:02:43 -05:00
parent 7c503eaa43
commit 2824e6facf
5 changed files with 458 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/test-clog.lisp
View file

@ -16,13 +16,14 @@
(clog-connection:put-line (clog::connection-id win) "<button id='myid'>In html</button>")
(setf tmp (attach-as-child win "myid"))
(setf (style tmp "background-color") "red")
(setf (property tmp "draggable") "true")
(when (equal (property tmp "draggable")
(setf (property tmp "innerHTML") "<h2>I am draggable</h2>")))
(setf (draggablep tmp) t)
(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 () (alert (window win) "clicked")))
(setf (box-sizing tmp) :border-box)
(setf (width tmp) 300)
(setf (height tmp) 50)
(setf (height tmp) 50)
(create-child win (format nil "<H2>~A</H2>" (gethash "connection-id" (connection-data win))))
(setf *last-obj* (create-child win "<button>********</button>"))
(set-on-mouse-enter *last-obj*