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