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

text dialog for custom slots

Browse source
This commit is contained in:
David Botton 2024-07-29 14:12:53 -04:00
parent 22717abbbf
commit 3dd0183bf4
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
tools/clog-builder-api.lisp
View file

@ -11,7 +11,24 @@
:properties ((:name "in-package" :properties ((:name "in-package"
:attr "data-in-package") :attr "data-in-package")
(:name "custom slots" (:name "custom slots"
:attr "data-custom-slots") :setup ,(lambda (control td1 td2)
(declare (ignore td1))
(setf (advisory-title td2) "double click for external text editor")
(set-on-double-click td2 (lambda (obj)
(let ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*))
(input-dialog obj "Enter slots:"
(lambda (result)
(when result
(setf (attribute control "data-custom-slots") result)
(setf (text td2) result)))
:default-value (attribute control "data-custom-slots")
:width 800
:height 420
:size 80
:rows 10)))))
:get ,(lambda (control) (attribute control "data-custom-slots"))
:set ,(lambda (control obj) (setf (attribute control "data-custom-slots") (text obj))))
(:name "width" (:name "width"
:get ,(lambda (control) (width control)) :get ,(lambda (control) (width control))
:setup :read-only) :setup :read-only)