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

name controls and delete controls

Browse source
This commit is contained in:
David Botton 2021-12-14 16:35:41 -05:00
parent c2e4436230
commit 17d72d8a23
1 changed files with 31 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tools/clog-builder.lisp
View file

@ -238,7 +238,10 @@
(parent (when control (parent-element control))))
(when (and win control)
(setf (inner-html table) "")
(let ((props `(("Name" ,(html-id control) nil)
(let ((props `(("ID" ,(html-id control) nil)
("Name" ,(attribute control "data-lisp-name") t
,(lambda (obj)
(setf (attribute control "data-lisp-name") (text obj))))
("Top" ,(top parent) t ,(lambda (obj)
(setf (top parent) (text obj))))
("Left" ,(left parent) t ,(lambda (obj)
@ -303,11 +306,17 @@
:left-width 0 :right-width 9
:top-height 30 :bottom-height 0))
(tool-bar (top-panel box))
(btn-del (create-button tool-bar :content "Delete"))
(btn-save (create-button tool-bar :content "Render"))
(content (center-panel box)))
(setf (background-color tool-bar) :silver)
(setf (attribute content "data-lisp-name")
(format nil "form-~A" (html-id content)))
(set-on-click btn-del (lambda (obj)
(when (current-control app)
(destroy (parent-element (current-control app)))
(setf (current-control app) nil))))
(set-on-click btn-save (lambda (obj)
(declare (ignore obj))
(let* ((cw (on-show-layout-code obj))
(result (format nil
"(defvar *form_~A* \"~A\")~%~
@ -344,6 +353,8 @@
(t nil))))
(when element
(setf (current-control app) element)
(setf (attribute element "data-lisp-name")
(format nil "control-~A" (html-id element)))
(setf (box-sizing element) :content-box)
(setf (box-sizing handle) :content-box)
(set-padding handle "0px" "16px" "0px" "0px")