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

asdf browser options and title bars

Browse source
This commit is contained in:
David Botton 2024-03-25 11:34:07 -04:00
parent 29d5eee829
commit a4de6eac52
6 changed files with 84 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -32,6 +32,8 @@
(setf pac "All"))
(setf filter (subseq filter (+ has-pac 1)))
(setf (text-value (search-box panel)) filter))
(setf (window-title (current-window panel))
(format nil "System Browser - ~A" filter))
(cond ((equalp pac "All")
(setf class-only nil)
(setf (classes panel) nil)