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

working dimension properties and fix to get parent element

Browse source
This commit is contained in:
David Botton 2021-12-08 16:38:05 -05:00
parent d17190e122
commit bc9bda5c74
2 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tools/clog-builder.lisp
View file

@ -184,15 +184,16 @@
(defun on-populate-control-properties (obj)
(let* ((app (connection-data-item obj "builder-app-data"))
(win (control-properties app))
(control (current-control app)))
(control (current-control app))
(parent (when control (parent-element control))))
(when (and win control)
(setf (text (properties-list app)) "")
(add-select-options (properties-list app)
`(,(format nil "name : ~A" (html-id control))
,(format nil "top : ~A" (top control))
,(format nil "left : ~A" (left control))
,(format nil "bottom : ~A" (bottom control))
,(format nil "right : ~A" (right control))
,(format nil "top : ~A" (top parent))
,(format nil "left : ~A" (left parent))
,(format nil "bottom : ~A" (bottom parent))
,(format nil "right : ~A" (right parent))
,(format nil "value : ~A" (value control)))))))
(defun on-show-properties (obj)
@ -344,5 +345,5 @@
(defun clog-builder ()
"Start clog-builder."
(initialize nil)
(set-on-new-window 'on-new-builder :path "/builder")
(set-on-new-window 'on-new-builder :boot-file "/debug.html" :path "/builder")
(open-browser :url "http://127.0.0.1:8080/builder"))