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

missing setting for client-movement

Browse source
This commit is contained in:
David Botton 2024-05-29 21:43:04 -04:00
parent 393525249a
commit 977364eff2
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -6,7 +6,7 @@
(win (create-gui-window obj :title "ASDF System Browser" (win (create-gui-window obj :title "ASDF System Browser"
:top 40 :left 225 :top 40 :left 225
:width 592 :height 435 :width 592 :height 435
:client-movement t)) :client-movement *client-side-movement*))
(panel (create-asdf-systems (window-content win)))) (panel (create-asdf-systems (window-content win))))
(when *open-external* (when *open-external*
(setf (checkedp (ext-open-source panel)) t)) (setf (checkedp (ext-open-source panel)) t))

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

@ -6,7 +6,7 @@
(win (create-gui-window obj :title "System Browser" (win (create-gui-window obj :title "System Browser"
:top 40 :left 225 :top 40 :left 225
:width 685 :height 530 :width 685 :height 530
:client-movement t)) :client-movement *client-side-movement*))
(panel (create-sys-browser (window-content win)))) (panel (create-sys-browser (window-content win))))
(when search (when search
(setf (text-value (search-box panel)) search) (setf (text-value (search-box panel)) search)