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

further refine events window

Browse source
This commit is contained in:
David Botton 2024-07-29 22:41:57 -04:00
parent 0055961425
commit 69d06c223c
3 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tools/clog-builder-control-events.lisp
View file

@ -213,11 +213,13 @@
:selected (equal attr current))))
(set-on-click opt (lambda (obj)
(declare (ignore obj))
(setf (text-value (event-editor app)) "")
(unless (equalp (attribute elist "data-current-event") attr)
(setf (text-value (event-editor app)) ""))
(setf (text-value (event-info app))
(format nil "~A (panel ~A)"
(format nil "~A (panel ~A) for ~A"
(getf event :name)
(getf event :parameters)))))))
(getf event :parameters)
(attribute control "data-clog-name")))))))
(set-on-change elist #'on-change))
(on-blur (obj)
(declare (ignore obj))
@ -226,7 +228,7 @@
(unless (equalp attr "undefined")
(let ((opt (select-text elist))
(txt (text-value (event-editor app))))
(when (equalP (format nil "data-~A" (text-value elist)) attr)
(when (equalp (format nil "data-~A" (text-value elist)) attr)
(setf (char opt 0) #\space)
(setf opt (string-left-trim "#\space" opt))
(cond ((or (equal txt "")