mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

show events window on new panel

Browse source
This commit is contained in:
David Botton 2022-08-30 11:44:13 -04:00
parent 2a24c972d2
commit 48c33bfd4d
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder-projects.lisp
View file

@ -317,7 +317,6 @@
(add-select-option list path name))))
((and (> (length item) 5)
(equal (subseq item (- (length item) 5)) ".clog"))
(on-new-builder-panel target :open-file item)
(on-show-control-events-win target))
(on-new-builder-panel target :open-file item))
(t
(on-open-file target :open-file item)))))

4
tools/clog-builder.lisp
View file

@ -1564,6 +1564,7 @@ of controls and double click to select control."
(setf (attribute content "data-in-package") "clog-user")
(setf (attribute content "data-custom-slots") "")
;; activate associated windows on open
(on-show-control-events-win win)
(on-populate-control-properties-win content :win win)
(on-populate-control-list-win content :win win)
;; setup window events
@ -2185,7 +2186,8 @@ of controls and double click to select control."
(txt-link (create-div txt-area
:content (format nil "<br><center>~A</center>" link)))
content)
(declare (ignore page-link txt-link))
(declare (ignore page-link txt-link))
(on-show-control-events-win win)
(setf (gethash panel-uid *app-sync-hash*) app)
(setf (gethash (format nil "~A-win" panel-uid) *app-sync-hash*) win)
(setf (gethash (format nil "~A-link" panel-uid) *app-sync-hash*)