From 2c65525278388efdff0ad362383b31b28d96391b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 23 Jul 1993 13:24:30 +0000 Subject: [PATCH] Changed BEEP flashing to use SLEEP 0.1 instead of DISPLAY-FINISH-OUTPUT because this was causing recursive entry of CLX. --- hemlock/rompsite.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 36b539b79..ffd419428 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.26 1992/12/18 07:44:57 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.27 1993/07/23 13:24:30 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -385,7 +385,8 @@ (xlib:draw-rectangle xwin gcontext side-border 0 top-width top-border t))) (zot) - (xlib:display-finish-output display) + (xlib:display-force-output display) + (sleep 0.1) (zot) (xlib:display-force-output display))))) @@ -401,7 +402,8 @@ (xlib:with-gcontext (gcontext :function xlib::boole-xor :foreground *foreground-background-xor*) (xlib:draw-rectangle xwin gcontext 0 0 width height t) - (xlib:display-finish-output display) + (xlib:display-force-output display) + (sleep 0.1) (xlib:draw-rectangle xwin gcontext 0 0 width height t) (xlib:display-force-output display)))) -- GitLab