From 662220432fcca0ef8b6fc22842e6075d999bc07a Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 5 Apr 2022 20:27:33 -0400 Subject: [PATCH] prevent clog-gui windows from passing bottom of page --- source/clog-connection.lisp | 5 +++-- source/clog-gui.lisp | 1 - 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp index 5cfbd98..608bc89 100644 --- a/source/clog-connection.lisp +++ b/source/clog-connection.lisp @@ -75,7 +75,7 @@ script." #-(or sbcl ecl mezzano) (apply #'make-hash-table args)) (defvar *verbose-output* nil "Verbose server output (default false)") -(defvar *break-on-error* t "Allow invoking debugger (default true)") +(defvar *break-on-error* t "Allow invoking debugger (default true)") (defvar *app* nil "Clack 'app' middle-ware") (defvar *client-handler* nil "Clack 'handler' for socket traffic") @@ -372,7 +372,8 @@ instead of the compiled version." (format t "Boot js source : ~A~%" (if static-boot-js "actual file" "compiled in")) - (format t "Boot file for path / : ~A~%" boot-file)) + (format t "Boot file for path / : ~A~%" boot-file) + *client-handler*) ;;;;;;;;;;;;;;;;;;; ;; shutdown-clog ;; diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index a00abfc..8b6c768 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -1225,7 +1225,6 @@ interactions. Use window-end-modal to undo.")) (setf (top obj) (unit :px (menu-bar-height obj))) (let* ((body (connection-data-item obj "clog-body")) (body-height (height (html-document body)))) - (print body-height) (if (>= top-loc body-height) (setf (top obj) (unit :px (- body-height 15))))))) (when (on-window-move-done obj)