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

Start on expanding control property types and full control list

Browse source
This commit is contained in:
David Botton 2022-01-19 20:20:19 -05:00
parent f998153e3a
commit ac61be0dfb
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tools/clog-builder.lisp
View file

@ -1,5 +1,7 @@
(in-package :clog-tools)
;; Per instance app data
(defclass builder-app-data ()
((copy-buf
:accessor copy-buf
@ -38,6 +40,8 @@
:initform nil
:documentation "Current control pallete window")))
;; Cross page syncing
(defparameter *app-sync-hash* (make-hash-table :test #'equal)
"Exchange app instance with new external pages")
@ -280,10 +284,11 @@ not a temporary attached one when using select-control."
(when info
(let (col)
(dolist (prop (reverse (getf info :properties)))
(push `(,(getf prop :name) ,(funcall (getf prop :prop) control) t
,(lambda (obj)
(funcall (find-symbol (format nil "SET-~A" (getf prop :prop)) :clog) control (text obj))))
col))
(cond ((eq (third prop) :prop)
(push `(,(getf prop :name) ,(funcall (getf prop :prop) control) t
,(lambda (obj)
(funcall (find-symbol (format nil "SET-~A" (getf prop :prop)) :clog) control (text obj))))
col))))
(alexandria:appendf props col)))
(dolist (item props)
(let* ((tr (create-table-row table))