From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Dec 2000 05:24:42 +0000 (+0000)
Subject: Don't allow selection of frames that aren't mapped.  The user can
X-Git-Tag: 20090517-FFI~3176
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=36040607a55397904ea747333f1c23ad54a79ef4;p=mit-scheme.git

Don't allow selection of frames that aren't mapped.  The user can
unmap it first if wanted.
---

diff --git a/v7/src/edwin/scrcom.scm b/v7/src/edwin/scrcom.scm
index ce0f17da5..54da998d2 100644
--- a/v7/src/edwin/scrcom.scm
+++ b/v7/src/edwin/scrcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: scrcom.scm,v 1.6 1999/01/02 06:11:34 cph Exp $
+;;; $Id: scrcom.scm,v 1.7 2000/12/01 05:24:42 cph Exp $
 ;;;
-;;; Copyright (c) 1990-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1990-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -27,7 +27,7 @@
   ()
   (lambda ()
     (if (null? (cdr (screen-list)))
-	(editor-error "Can't delete the only frame"))
+	(editor-error "Can't delete the only frame."))
     (delete-screen! (selected-screen))))
 
 (define-command make-frame
@@ -42,9 +42,9 @@ This command selects the frame ARG steps away in that order.
 A negative ARG moves in the opposite order."
   "p"
   (lambda (arg)
-    (let ((screen (other-screen (selected-screen) arg #t)))
+    (let ((screen (other-screen (selected-screen) arg #f)))
       (if (not screen)
-	  (editor-error "No other frame"))
+	  (editor-error "No other visible frame."))
       (select-screen screen))))
 
 (define-variable frame-name-format
@@ -61,11 +61,4 @@ Used only if `frame-name-format' is non-false."
 ;; For upwards compatibility:
 (define edwin-command$delete-screen edwin-command$delete-frame)
 (define edwin-variable$x-screen-name-format edwin-variable$frame-name-format)
-(define edwin-variable$x-screen-name-length edwin-variable$frame-name-length)
-
-;;; This command is for Windows, and shouldn't really be here.
-;;; It is for terminal screens only.
-(define-command resize-screen
-  "Resize the screen that point is in."
-  ()
-  (lambda () (resize-screen)))
\ No newline at end of file
+(define edwin-variable$x-screen-name-length edwin-variable$frame-name-length)
\ No newline at end of file