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

remove default locations for many windows

Browse source
This commit is contained in:
David Botton 2024-05-30 23:16:40 -04:00
parent c2d3837f3c
commit fe12e47acb
4 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tools/clog-builder-asdf-browser.lisp
View file

@ -4,7 +4,6 @@
(let* ((*default-title-class* *builder-title-class*) (let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "ASDF System Browser" (win (create-gui-window obj :title "ASDF System Browser"
:top 40 :left 225
:width 592 :height 435 :width 592 :height 435
:client-movement *client-side-movement*)) :client-movement *client-side-movement*))
(panel (create-asdf-systems (window-content win)))) (panel (create-asdf-systems (window-content win))))

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

@ -3,7 +3,6 @@
(defun on-open-repl-console (obj repl) (defun on-open-repl-console (obj repl)
(let* ((win (on-open-file obj :title "CLOG REPL Console" (let* ((win (on-open-file obj :title "CLOG REPL Console"
:is-console t :is-console t
:top 520 :left 300
:closer-html "⨀" :closer-html "⨀"
:editor-use-console-for-evals t))) :editor-use-console-for-evals t)))
(set-on-window-can-close win (lambda (obj) (set-on-window-can-close win (lambda (obj)
@ -21,7 +20,6 @@
(win (create-gui-window obj :title "CLOG Builder REPL" (win (create-gui-window obj :title "CLOG Builder REPL"
:has-pinner t :has-pinner t
:keep-on-top t :keep-on-top t
:top 40 :left 300
:width 700 :height 480 :width 700 :height 480
:client-movement *client-side-movement*)) :client-movement *client-side-movement*))
(repl (create-clog-builder-repl (window-content win)))) (repl (create-clog-builder-repl (window-content win))))

1
tools/clog-builder-shell.lisp
View file

@ -7,7 +7,6 @@
(win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A" (win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A"
(uiop:operating-system) (uiop:operating-system)
(uiop:hostname)) (uiop:hostname))
:top 40 :left 225
:width 600 :height 400 :width 600 :height 400
:client-movement *client-side-movement*))) :client-movement *client-side-movement*)))
(when dir (when dir

1
tools/clog-builder-sys-browser.lisp
View file

@ -4,7 +4,6 @@
(let* ((*default-title-class* *builder-title-class*) (let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "System Browser" (win (create-gui-window obj :title "System Browser"
:top 40 :left 225
:width 685 :height 530 :width 685 :height 530
:client-movement *client-side-movement*)) :client-movement *client-side-movement*))
(panel (create-sys-browser (window-content win)))) (panel (create-sys-browser (window-content win))))