mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Fixes and additions and doc updates

Browse source
This commit is contained in:
David Botton 2021-01-04 15:17:35 -05:00
parent c998e04802
commit 6d91801a81
4 changed files with 637 additions and 265 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/test-clog.lisp
View file

@ -24,9 +24,10 @@
(setf (box-sizing tmp) :border-box)
(setf (width tmp) 300)
(setf (height tmp) 50)
(setf (border (create-child win
(set-border (create-child win
(format nil "<H2>~A</H2>"
(gethash "connection-id" (connection-data win))))) "4px dotted blue")
(gethash "connection-id" (connection-data win))))
"4px" :dotted "blue")
(setf *last-obj* (create-child win "<button>********</button>"))
(set-on-mouse-enter *last-obj*
(lambda ()