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 72cc83ffa8894f1acae19bf7b1b828a678352ed3..e6053e0a1f29203fd6577e32d732ff43009f1eb5 100644 (file)
--- 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