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

documentation update

Browse source
This commit is contained in:
David Botton 2022-01-28 14:01:12 -05:00
parent 44f672aad8
commit ff69a7a67d
5 changed files with 185 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

1
source/clog-gui.lisp
View file

@ -786,7 +786,6 @@ the window will be set to keep-on-top always."))
(fire-on-window-move win)))
(clog::set-on-event win "dragstop"
(lambda (obj)
(declare (ignore obj))
(if (< (parse-integer (top win) :junk-allowed t)
(menu-bar-height obj))
(setf (top win) (unit "px" (menu-bar-height obj))))