*** empty log message ***

diff --git a/v7/src/edwin/comwin.scm b/v7/src/edwin/comwin.scm
index e6053e0a1f29203fd6577e32d732ff43009f1eb5..bec9ab4b204ba5a17e77d3d048f0be4dc95e7cc0 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.136 1989/06/20 16:16:09 markf Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comwin.scm,v 1.137 1989/06/21 05:55:50 cph Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989 Massachusetts Institute of Technology
 ;;;
@@ -585,6 +585,12 @@
 (define-method combination-window :set-x-size! set-combination-x-size!)
 (define-method combination-window :set-y-size! set-combination-y-size!)
 (define-method combination-window :set-size! set-combination-size!)
+
+(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))
 \f
 (define (scale-combination-inferiors! combination new-room except
                                      v size min-size set-w-size! set-start!)
@@ -673,13 +679,4 @@
                        (loop (window-next window)
                              (+ start new-s)
                              (- old-room old-s)
-                             (- 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
+                             (- new-room new-s))))))))))))
\ No newline at end of file