From c610256b802a4fcf7148d0fee1d06199aa8cb101 Mon Sep 17 00:00:00 2001 From: frese Date: Thu, 3 Apr 2003 19:44:00 +0000 Subject: [PATCH] added fill-rectangle* --- src/utils.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/utils.scm b/src/utils.scm index 6024678..911f7f1 100644 --- a/src/utils.scm +++ b/src/utils.scm @@ -328,6 +328,10 @@ (draw-lines dpy win gc (list (cons x2 y1) (cons x2 y2) (cons x1 y2)) (coord-mode origin)))) +(define (fill-rectangle* dpy win gc rect) + (fill-rectangle dpy win gc (rectangle:x rect) (rectangle:y rect) + (rectangle:width rect) (rectangle:height rect))) + (define (invalidate-window dpy win) (let ((wa (get-window-attributes dpy win))) (clear-area dpy win 0 0 (window-attribute:width wa)