From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 1 Sep 1993 18:03:14 +0000 (+0000)
Subject: Add resize-screen command.
X-Git-Tag: 20090517-FFI~7939
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=30209589c190ad2542558c5bdc9336a553495aee;p=mit-scheme.git

Add resize-screen command.
---

diff --git a/v7/src/edwin/scrcom.scm b/v7/src/edwin/scrcom.scm
index 0f84e8690..17d780c45 100644
--- a/v7/src/edwin/scrcom.scm
+++ b/v7/src/edwin/scrcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/scrcom.scm,v 1.3 1990/10/03 04:56:01 cph Rel $
+;;;	$Id: scrcom.scm,v 1.4 1993/09/01 18:03:14 gjr Exp $
 ;;;
-;;;	Copyright (c) 1990 Massachusetts Institute of Technology
+;;;	Copyright (c) 1990-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -52,4 +52,10 @@
   (lambda ()
     (if (null? (cdr (screen-list)))
 	(editor-error "Can't delete the only screen"))
-    (delete-screen! (selected-screen))))
\ No newline at end of file
+    (delete-screen! (selected-screen))))
+
+(define-command resize-screen
+  "Resize the screen that point is in."
+  ()
+  (lambda ()
+    (resize-screen)))
\ No newline at end of file