From a82043823056857d3948b5dd8df5de0502adb51c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 1 Sep 1993 23:26:40 +0000 Subject: [PATCH] Fix think-o in last change. --- v7/src/runtime/x11graph.scm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index d0b7edbe2..2fec6106a 100644 --- a/v7/src/runtime/x11graph.scm +++ b/v7/src/runtime/x11graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: x11graph.scm,v 1.30 1993/09/01 23:12:10 cph Exp $ +$Id: x11graph.scm,v 1.31 1993/09/01 23:26:40 cph Exp $ Copyright (c) 1989-1993 Massachusetts Institute of Technology @@ -454,12 +454,14 @@ MIT in each case. |# (let ((mouse-event-handler (lambda (window event) - (vector-set! event 2 - (x-graphics-map-x-coordinate window - (vector-ref event 2))) - (vector-set! event 3 - (x-graphics-map-y-coordinate window - (vector-ref event 3))) + (let ((xw (vector-ref event 1))) + (vector-set! event 1 window) + (vector-set! event 2 + (x-graphics-map-x-coordinate xw + (vector-ref event 2))) + (vector-set! event 3 + (x-graphics-map-y-coordinate xw + (vector-ref event 3)))) (enqueue! (x-display/event-queue (x-window/display window)) event) true))) (define-event-handler event-type:button-down mouse-event-handler) @@ -468,6 +470,7 @@ MIT in each case. |# (let ((user-event-handler (lambda (window event) + (vector-set! event 1 window) (enqueue! (x-display/event-queue (x-window/display window)) event) true))) ;; ENTER and LEAVE events should be modified to have X,Y coordinates. -- 2.25.1