mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-30 12:23:00 -08:00
Code Issues Projects Releases Wiki Activity

Drop down of events

Browse source
This commit is contained in:
David Botton 2021-12-03 15:22:37 -05:00
parent 34610f5c6a
commit 889fff3166
2 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-form.lisp
View file

@ -948,11 +948,11 @@ optionally fill in with contents of data-list."))
;; add-select-options ;;
;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric add-select-options (clog-select select)
(defgeneric add-select-options (clog-select content)
(:documentation "Add group of options to select."))
(defmethod add-select-options ((obj clog-select) select)
(dolist (value select)
(defmethod add-select-options ((obj clog-select) content)
(dolist (value content)
(add-select-option obj value value)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

20
tools/clog-builder.lisp
View file

@ -82,12 +82,20 @@
(alert-dialog obj result :title "Eval Result")))))
(defun on-show-code (obj)
(let* ((win (create-gui-window obj :title "Code"
:height 400
:width 650))
(box (create-panel-box-layout (window-content win)))
(center (center-panel box))
(center-id (html-id center)))
(let* ((win (create-gui-window obj :title "Code"
:height 400
:width 650))
(box (create-panel-box-layout (window-content win)
:left-width 0 :right-width 9
:top-height 30 :bottom-height 0))
(center (center-panel box))
(center-id (html-id center))
;;top panel
(event-drop (create-select (top-panel box)
:label (create-label (top-panel box)
:content " Event: "))))
(setf (width event-drop) (unit :px 200))
(add-select-options event-drop '("on-focus" "on-blur"))
(set-on-window-size win (lambda (obj)
(js-execute obj
(format nil "editor_~A.resize()" (html-id win)))))