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

clog-group for keeping groups of clog-objs

Browse source
This commit is contained in:
David Botton 2021-02-02 19:27:37 -05:00
parent d2b0b4bf2f
commit 18b160fb2c
4 changed files with 61 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

10
demos/02-demo.lisp
View file

@ -25,16 +25,16 @@
(name-entry (create-form-element start-form :input :label
(create-label start-form :content "Chat Handle:")))
(ok-button (create-button start-form :content "OK"))
(tmp (create-p start-form))
(p (create-p start-form))
(chat-box (create-form form-box))
(tmp (create-br chat-box))
(br (create-br chat-box))
(messages (create-div chat-box))
(tmp (create-br chat-box))
(br (create-br chat-box))
(out-entry (create-form-element chat-box :input))
(out-ok (create-button chat-box :content "OK"))
(tmp (create-p chat-box))
(p (create-p chat-box))
(user-name))
(declare (ignore caption)(ignore tmp))
(declare (ignore caption)(ignore br)(ignore p))
(setf (hiddenp chat-box) t)
(setf (background-color backdrop) :blue)
(setf (height backdrop) "100vh")