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

adjust start positions

Browse source
This commit is contained in:
David Botton 2024-05-07 19:37:48 -04:00
parent acf55705ab
commit 362d5038af
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder-repl.lisp
View file

@ -3,6 +3,7 @@
(defun on-open-repl-console (obj repl)
(let* ((win (on-open-file obj :title "CLOG REPL Console"
:is-console t
:top 520 :left 300
:editor-use-console-for-evals t)))
(set-on-window-can-close win (lambda (obj)
(declare (ignore obj))
@ -18,8 +19,8 @@
(win (create-gui-window obj :title "CLOG Builder REPL"
:has-pinner t
:keep-on-top t
:top 40 :left 225
:width 600 :height 400
:top 40 :left 300
:width 700 :height 480
:client-movement *client-side-movement*))
(repl (create-clog-builder-repl (window-content win))))
(when *clog-repl-private-console*