Provide default resources for X windows.

diff --git a/v7/src/microcode/x11graph.c b/v7/src/microcode/x11graph.c
index 199565f9fc66f1aaa0689716c197b543342c5843..ff9c1c734a9989671f79914cceab8c3edbb21982 100644 (file)
--- a/v7/src/microcode/x11graph.c
+++ b/v7/src/microcode/x11graph.c
@@ -1,7 +1,7 @@
 
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11graph.c,v 1.21 1992/02/11 18:57:58 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11graph.c,v 1.22 1992/02/11 19:38:06 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -298,8 +298,8 @@ If third argument SUPPRESS-MAP? is true, do not map the window immediately.")
     struct drawing_attributes attributes;
     struct xwindow_methods methods;
     XSetWindowAttributes wattributes;
-    CONST char * resource_name;
-    CONST char * resource_class;
+    CONST char * resource_name = RESOURCE_NAME;
+    CONST char * resource_class = RESOURCE_CLASS;
     int map_p;
 
     x_decode_window_map_arg

diff --git a/v7/src/microcode/x11term.c b/v7/src/microcode/x11term.c
index 41b6ea4843c0feb76dc65bba9137f3b382bf2aa5..800de40d7f5f8b7e452ff61af4052eeae84f1df9 100644 (file)
--- a/v7/src/microcode/x11term.c
+++ b/v7/src/microcode/x11term.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11term.c,v 1.18 1992/02/11 18:58:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11term.c,v 1.19 1992/02/11 19:38:16 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -485,8 +485,8 @@ DEFINE_PRIMITIVE ("XTERM-OPEN-WINDOW", Prim_xterm_open_window, 3, 3, 0)
     Display * display = (XD_DISPLAY (xd));
     struct drawing_attributes attributes;
     struct xwindow_methods methods;
-    CONST char * resource_name;
-    CONST char * resource_class;
+    CONST char * resource_name = RESOURCE_NAME;
+    CONST char * resource_class = RESOURCE_CLASS;
     int map_p;
     
     x_decode_window_map_arg