From fabc70472b6ced6d2736d42490657ce251008a4e Mon Sep 17 00:00:00 2001
From: chiles <chiles>
Date: Fri, 26 Jul 1991 21:41:30 +0000
Subject: [PATCH] Modified MAKE-WINDOW to allow a proportion argument for its
 default behavior of splitting the current window.

---
 hemlock/screen.lisp | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/hemlock/screen.lisp b/hemlock/screen.lisp
index 42fa817ea..b495f2762 100644
--- a/hemlock/screen.lisp
+++ b/hemlock/screen.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/screen.lisp,v 1.1.1.3 1991/02/08 16:37:20 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/screen.lisp,v 1.1.1.4 1991/07/26 21:41:30 chiles Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -45,17 +45,20 @@
 
 ;;;; Window operations.
 
-(defun make-window (start &key
-			  (modelinep t)
-			  (device nil)
-			  window
+(defun make-window (start &key (modelinep t) (device nil) window
+			  (proportion .5)			  
 			  (font-family *default-font-family*)
-			  (ask-user nil)
-			  x y
+			  (ask-user nil) x y
 			  (width (value ed::default-window-width))
 			  (height (value ed::default-window-height)))
-  "Make a window that displays text starting at the mark Start.  The default
-   action is to split the current window to make room for the new window.
+  "Make a window that displays text starting at the mark start.  The default
+   action is to make the new window a proportion of the current window's height
+   to make room for the new window.
+
+   Proportion determines what proportion of the current window's height
+   the new window will use.  The current window retains whatever space left
+   after accommodating the new one.  The default is to split the current window
+   in half.
 
    Modelinep specifies whether the window should display buffer modelines.
 
@@ -77,7 +80,7 @@
   (let* ((device (or device (device-hunk-device (window-hunk (current-window)))))
 	 (window (funcall (device-make-window device)
 			  device start modelinep window font-family
-			  ask-user x y width height)))
+			  ask-user x y width height proportion)))
     (unless window (editor-error "Could not make a window."))
     (invoke-hook ed::make-window-hook window)
     window))
-- 
GitLab