missing setting for client-movement

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

View file

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

View file

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