mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 11:10:18 -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)))) :selected (equal attr current))))
(set-on-click opt (lambda (obj) (set-on-click opt (lambda (obj)
(declare (ignore 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)) (setf (text-value (event-info app))
(format nil "~A (panel ~A)" (format nil "~A (panel ~A) for ~A"
(getf event :name) (getf event :name)
(getf event :parameters))))))) (getf event :parameters)
(attribute control "data-clog-name")))))))
(set-on-change elist #'on-change)) (set-on-change elist #'on-change))
(on-blur (obj) (on-blur (obj)
(declare (ignore obj)) (declare (ignore obj))
@ -226,7 +228,7 @@
(unless (equalp attr "undefined") (unless (equalp attr "undefined")
(let ((opt (select-text elist)) (let ((opt (select-text elist))
(txt (text-value (event-editor app)))) (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 (char opt 0) #\space)
(setf opt (string-left-trim "#\space" opt)) (setf opt (string-left-trim "#\space" opt))
(cond ((or (equal txt "") (cond ((or (equal txt "")

1
tools/clog-builder-control-properties.lisp
View file

@ -158,6 +158,7 @@
(when (equal (subseq vname 0 1) "(") (when (equal (subseq vname 0 1) "(")
(setf vname (format nil "|~A|" vname))) (setf vname (format nil "|~A|" vname)))
(setf (attribute control "data-clog-name") vname) (setf (attribute control "data-clog-name") vname)
(on-populate-control-events-win panel)
(on-populate-control-list-win panel :win win) (on-populate-control-list-win panel :win win)
(when (equal (getf info :name) "clog-data") (when (equal (getf info :name) "clog-data")
(when win (when win

3
tools/clog-builder-settings-controls.lisp
View file

@ -366,7 +366,8 @@
(lambda (result) (lambda (result)
(when result (when result
(setf (text-value control) result) (setf (text-value control) result)
(adjust-control-placer control))) (adjust-control-placer control)
(setf (text td2) result)))
:default-value (text-value control) :default-value (text-value control)
:width 800 :width 800
:height 420 :height 420