From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 15 Sep 1993 20:55:26 +0000 (+0000)
Subject: Added x-graphics-default-geometry & ..-default-display-name
X-Git-Tag: 20090517-FFI~7836
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9b3d78cf0e7471766ae5ab82b5b28f67db466f96;p=mit-scheme.git

Added x-graphics-default-geometry & ..-default-display-name
---

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 6f50ad6f3..12fcb95bd 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.33 1993/09/15 04:14:15 adams Exp $
+$Id: x11graph.scm,v 1.34 1993/09/15 20:55:26 adams Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -293,10 +293,11 @@ MIT in each case. |#
 (define (x-graphics/open-display name)
   (let ((name
 	 (cond ((not name)
-		(let ((name (get-environment-variable "DISPLAY")))
-		  (if (not name)
-		      (error "No DISPLAY environment variable."))
-		  name))
+		(or x-graphics-default-display-name
+		    (let ((name (get-environment-variable "DISPLAY")))
+		      (if (not name)
+			  (error "No DISPLAY environment variable."))
+		      name)))
 	       ((string? name)
 		name)
 	       (else
@@ -535,7 +536,8 @@ MIT in each case. |#
 		     "")))
 
 
-(define default-geometry "512x512")
+(define x-graphics-default-geometry "512x512")
+(define x-graphics-default-display-name #f)
 
 (define (x-graphics/open #!optional display geometry suppress-map?)
   (let ((display
@@ -551,7 +553,9 @@ MIT in each case. |#
 	(let ((xw
 	       (x-graphics-open-window
 		 (x-display/xd display)
-		 (if (default-object? geometry) default-geometry geometry)
+		 (if (default-object? geometry) 
+		     x-graphics-default-geometry
+		     geometry)
 		 (vector #f resource class))))
 	  (x-window-set-event-mask xw event-mask:normal)
 	  (let ((window (make-x-window xw display)))