From 977364eff2baa322859cb0af88e03b4cfce545ea Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 29 May 2024 21:43:04 -0400 Subject: [PATCH] missing setting for client-movement --- tools/clog-builder-asdf-browser.lisp | 2 +- tools/clog-builder-sys-browser.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder-asdf-browser.lisp b/tools/clog-builder-asdf-browser.lisp index 1360ff7..3778f0e 100644 --- a/tools/clog-builder-asdf-browser.lisp +++ b/tools/clog-builder-asdf-browser.lisp @@ -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)) diff --git a/tools/clog-builder-sys-browser.lisp b/tools/clog-builder-sys-browser.lisp index e785db0..eb74738 100644 --- a/tools/clog-builder-sys-browser.lisp +++ b/tools/clog-builder-sys-browser.lisp @@ -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)