mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-05 18:20:36 -08:00
Code Issues Projects Releases Wiki Activity

style corrections

Browse source
This commit is contained in:
David Botton 2021-02-11 19:41:50 -05:00
parent fbbab97b39
commit 6e287abe7a
2 changed files with 123 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
demos/03-demo.lisp
View file

@ -40,6 +40,7 @@
(create-label form :content "File Name:")))
(ok (create-button form :content "OK")))
(set-on-click ok (lambda (obj)
(declare (ignore obj))
(remove-from-dom win)
(funcall on-file-name (value input))))))
@ -157,7 +158,8 @@
:left (- (/ (width (body app)) 2) 100)
:width 200
:height 200)))
(set-on-window-can-size about (lambda (obj)()))))
(set-on-window-can-size about (lambda (obj)
(declare (ignore obj))()))))
(defun on-new-window (body)
(let ((app (make-instance 'app-data)))