From 37fbc3cd11d84f129bf726ccf901e99605812b84 Mon Sep 17 00:00:00 2001
From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Tue, 20 Jun 1989 16:16:09 +0000
Subject: [PATCH] Added method :leaf-containing-coordinates  in support of
 mouse buttons.

---
 v7/src/edwin/comwin.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/comwin.scm b/v7/src/edwin/comwin.scm
index 72cc83ffa..e6053e0a1 100644
--- a/v7/src/edwin/comwin.scm
+++ b/v7/src/edwin/comwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comwin.scm,v 1.135 1989/04/28 22:48:52 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comwin.scm,v 1.136 1989/06/20 16:16:09 markf Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989 Massachusetts Institute of Technology
 ;;;
@@ -673,4 +673,13 @@
 			(loop (window-next window)
 			      (+ start new-s)
 			      (- old-room old-s)
-			      (- new-room new-s))))))))))))
\ No newline at end of file
+			      (- new-room new-s))))))))))))
+
+(define-method combination-window (:leaf-containing-coordinates combination x y)
+  (inferior-containing-coordinates combination x y leaf?))
+
+(define-method combination-leaf-window (:leaf-containing-coordinates leaf x y)
+  (values leaf x y))
+
+
+  
\ No newline at end of file
-- 
2.25.1