From 2db54b1c371541632cd00196ded3285c0b4f7a6e Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Fri, 26 Apr 2002 08:25:07 +0000
Subject: [PATCH] - fixed some small bugs (in motion-event and rect).

---
 scheme/xlib/event-types.scm | 2 +-
 scheme/xlib/graphics.scm    | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/xlib/event-types.scm b/scheme/xlib/event-types.scm
index b2bd92a..af71baa 100644
--- a/scheme/xlib/event-types.scm
+++ b/scheme/xlib/event-types.scm
@@ -367,7 +367,7 @@
 			   subwindow time x y x-root y-root state is-hint?
 			   same-screen?)
   (let ((display (make-display display #f)))
-    (create-button-event
+    (create-motion-event
      type serial send-event? display
      (make-window window display #f)
      (make-window root display #f)
diff --git a/scheme/xlib/graphics.scm b/scheme/xlib/graphics.scm
index 8005c85..b1b243c 100644
--- a/scheme/xlib/graphics.scm
+++ b/scheme/xlib/graphics.scm
@@ -254,7 +254,8 @@
 
 ;; Now some auxiliary functions:
 
-(define rect list)
+(define (rect x y w h)
+  (list x y w h))
 
 (define (rect? obj)
   (and (list? obj) (= 4 (length obj))))