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

Properties

Browse source
This commit is contained in:
David Botton 2020-12-18 13:50:44 -05:00
parent 82cdf0aabf
commit cda2475f08
2 changed files with 30 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test/test-clog.lisp
View file

@ -11,6 +11,9 @@
(clog-connection:put-line (clog::connection-id win) "<button id='myid'>In html</button>")
(setf tmp (attach-as-child win "myid"))
(clog::jquery-execute tmp "css('background-color','red')")
(set-property tmp "draggable" "true")
(when (equal (property tmp "draggable")
(set-property tmp "innerHTML" "<h2>I am draggable</h2>")))
(create-child win "<button>test</botton>")
(create-child win "<H2>Cool!</H2>")
(setf *last-obj* (create-child win "<button>a</button>"))))