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

fix regression on popup panel editor

Browse source
This commit is contained in:
David Botton 2024-07-18 11:26:29 -04:00
parent 546515f481
commit fd2525076e
5 changed files with 54 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

27
tools/clog-builder-eval.lisp
View file

@ -2,19 +2,20 @@
(defun on-open-console (obj)
(let ((app (connection-data-item obj "builder-app-data")))
(if (console-win app)
(progn
(setf (hiddenp (console-win app)) nil)
(window-focus (console-win app)))
(let* ((win (on-open-file obj :title "CLOG Builder Console"
:left 305 :top (menu-bar-height obj)
:is-console t
:editor-use-console-for-evals t)))
(setf (clog-ace:mode (window-param win)) "ace/mode/plain_text")
(set-on-window-can-close win (lambda (obj)
(setf (hiddenp obj) t)
nil))
(setf (console-win app) win)))))
(when app
(if (console-win app)
(progn
(setf (hiddenp (console-win app)) nil)
(window-focus (console-win app)))
(let* ((win (on-open-file obj :title "CLOG Builder Console"
:left 305 :top (menu-bar-height obj)
:is-console t
:editor-use-console-for-evals t)))
(setf (clog-ace:mode (window-param win)) "ace/mode/plain_text")
(set-on-window-can-close win (lambda (obj)
(setf (hiddenp obj) t)
nil))
(setf (console-win app) win))))))
;;;;;;;;;;;;;;;;;;;;;;;;
;; console-out-stream ;;