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

prevent clog-gui windows from passing bottom of page

Browse source
This commit is contained in:
David Botton 2022-04-05 20:27:33 -04:00
parent 36e1e033e9
commit 662220432f
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-connection.lisp
View file

@ -372,7 +372,8 @@ instead of the compiled version."
(format t "Boot js source : ~A~%" (if static-boot-js (format t "Boot js source : ~A~%" (if static-boot-js
"actual file" "actual file"
"compiled in")) "compiled in"))
(format t "Boot file for path / : ~A~%" boot-file)) (format t "Boot file for path / : ~A~%" boot-file)
*client-handler*)
;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;
;; shutdown-clog ;; ;; shutdown-clog ;;

1
source/clog-gui.lisp
View file

@ -1225,7 +1225,6 @@ interactions. Use window-end-modal to undo."))
(setf (top obj) (unit :px (menu-bar-height obj))) (setf (top obj) (unit :px (menu-bar-height obj)))
(let* ((body (connection-data-item obj "clog-body")) (let* ((body (connection-data-item obj "clog-body"))
(body-height (height (html-document body)))) (body-height (height (html-document body))))
(print body-height)
(if (>= top-loc body-height) (if (>= top-loc body-height)
(setf (top obj) (unit :px (- body-height 15))))))) (setf (top obj) (unit :px (- body-height 15)))))))
(when (on-window-move-done obj) (when (on-window-move-done obj)