From 7bcfb4643a0a24ed4338c6a255f1dd06037ab7cd Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 21 Oct 1991 15:23:32 +0000 Subject: [PATCH] Changed flash-window and flash-border to do a display-finish-output in the middle, and changed flash-border to only do one flash. For some reason, I had noticed recently that flash-border was working really terribly, and this eems to have fixed it. --- hemlock/rompsite.lisp | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 8cfb8e2e7..cdba352f8 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.12 1991/09/04 14:04:28 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.13 1991/10/21 15:23:32 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -413,15 +413,16 @@ (bottom-y (- h top-border))) (xlib:with-gcontext (gcontext :function xlib::boole-xor :foreground *foreground-background-xor*) - (dotimes (i 8) - (xlib:draw-rectangle xwin gcontext 0 0 side-border h t) - (xlib:display-force-output display) - (xlib:draw-rectangle xwin gcontext side-border bottom-y - top-width top-border t) - (xlib:display-force-output display) - (xlib:draw-rectangle xwin gcontext right-x 0 side-border h t) - (xlib:display-force-output display) - (xlib:draw-rectangle xwin gcontext side-border 0 top-width top-border t) + (flet ((zot () + (xlib:draw-rectangle xwin gcontext 0 0 side-border h t) + (xlib:draw-rectangle xwin gcontext side-border bottom-y + top-width top-border t) + (xlib:draw-rectangle xwin gcontext right-x 0 side-border h t) + (xlib:draw-rectangle xwin gcontext side-border 0 + top-width top-border t))) + (zot) + (xlib:display-finish-output display) + (zot) (xlib:display-force-output display))))) #+clx @@ -436,7 +437,7 @@ (xlib:with-gcontext (gcontext :function xlib::boole-xor :foreground *foreground-background-xor*) (xlib:draw-rectangle xwin gcontext 0 0 width height t) - (xlib:display-force-output display) + (xlib:display-finish-output display) (xlib:draw-rectangle xwin gcontext 0 0 width height t) (xlib:display-force-output display)))) -- GitLab