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

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

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)))))