Skip to content
Snippets Groups Projects
Commit 7bcfb464 authored by ram's avatar ram
Browse files

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.
parent 93a7e5bd
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -413,15 +413,16 @@
(bottom-y (- h top-border))) (bottom-y (- h top-border)))
(xlib:with-gcontext (gcontext :function xlib::boole-xor (xlib:with-gcontext (gcontext :function xlib::boole-xor
:foreground *foreground-background-xor*) :foreground *foreground-background-xor*)
(dotimes (i 8) (flet ((zot ()
(xlib:draw-rectangle xwin gcontext 0 0 side-border h t) (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
(xlib:draw-rectangle xwin gcontext side-border bottom-y top-width top-border t)
top-width top-border t) (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
(xlib:draw-rectangle xwin gcontext right-x 0 side-border h t) top-width top-border t)))
(xlib:display-force-output display) (zot)
(xlib:draw-rectangle xwin gcontext side-border 0 top-width top-border t) (xlib:display-finish-output display)
(zot)
(xlib:display-force-output display))))) (xlib:display-force-output display)))))
#+clx #+clx
...@@ -436,7 +437,7 @@ ...@@ -436,7 +437,7 @@
(xlib:with-gcontext (gcontext :function xlib::boole-xor (xlib:with-gcontext (gcontext :function xlib::boole-xor
:foreground *foreground-background-xor*) :foreground *foreground-background-xor*)
(xlib:draw-rectangle xwin gcontext 0 0 width height t) (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:draw-rectangle xwin gcontext 0 0 width height t)
(xlib:display-force-output display)))) (xlib:display-force-output display))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment