From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Tue, 20 Jun 1989 16:16:09 +0000 (+0000)
Subject: Added method :leaf-containing-coordinates  in support of mouse buttons.
X-Git-Tag: 20090517-FFI~11994
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=37fbc3cd11d84f129bf726ccf901e99605812b84;p=mit-scheme.git

Added method :leaf-containing-coordinates  in support of mouse buttons.
---

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