mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-13 22:20:12 -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

19
tools/clog-builder.lisp
View file

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