Skip to content
Snippets Groups Projects
Commit fabc7047 authored by chiles's avatar chiles
Browse files

Modified MAKE-WINDOW to allow a proportion argument for its default behavior of
splitting the current window.
parent 3b3cf6fd
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment