mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-28 12:52:33 -08:00
Code Issues Projects Releases Wiki Activity

specify target, panel and panel control

Browse source
This commit is contained in:
David Botton 2022-07-15 00:48:49 -04:00
parent 47b8601d10
commit af5a6b0a6c
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tools/clog-builder.lisp
View file

@ -1088,7 +1088,17 @@ of controls and double click to select control."
(clog-ace:set-on-auto-complete (event-editor app) (clog-ace:set-on-auto-complete (event-editor app)
(lambda (obj prefix) (lambda (obj prefix)
(declare (ignore obj)) (declare (ignore obj))
(car (swank:simple-completions prefix "CLOG-USER"))) (let ((l (car (swank:simple-completions prefix "CLOG-USER"))))
(push '(:caption "target" :value "target"
:score 200 :meta "builder")
l)
(push '(:caption "panel" :value "panel"
:score 200 :meta "builder")
l)
(push '(:caption "panel control" :value "(control-name panel)"
:score 200 :meta "builder")
l)
l))
:meta "swank") :meta "swank")
(setf (positioning (event-editor app)) :absolute) (setf (positioning (event-editor app)) :absolute)
(setf (width (event-editor app)) "") (setf (width (event-editor app)) "")