From 76e4d2eff2d7f0d55745f848a61f1d4b423750d8 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 2 Oct 1991 21:22:08 +0000
Subject: [PATCH] Add a call to x-window-set-class-hint when a window is
 created, so the window manager can tell what resource to use.

---
 v7/src/edwin/xterm.scm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 2b48c8997..ac51fecfa 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xterm.scm,v 1.22 1991/09/03 22:56:52 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xterm.scm,v 1.23 1991/10/02 21:22:08 jinx Exp $
 ;;;
 ;;;	Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -60,6 +60,7 @@
   (x-display-sync 2)
   (x-window-beep 1)
   (x-window-display 1)
+  (x-window-set-class-hint 4)
   (x-window-set-event-mask 2)
   (x-window-set-icon-name 2)
   (x-window-set-name 2)
@@ -97,13 +98,15 @@
 
 (define (make-xterm-screen #!optional geometry)
   (let ((screen
-	 (let ((xterm
-		(xterm-open-window (or (get-x-display)
-				       (error "unable to open display"))
-				   (and (not (default-object? geometry))
-					geometry)
-				   false)))
+	 (let* ((display (get-x-display))
+		(xterm
+		 (xterm-open-window (or display
+					(error "unable to open display"))
+				    (and (not (default-object? geometry))
+					 geometry)
+				    false)))
 	   (x-window-set-event-mask xterm event-mask)
+	   (x-window-set-class-hint display xterm "edwin" "Edwin")
 	   (make-screen (make-xterm-screen-state xterm
 						 (x-window-display xterm))
 			xterm-screen/beep
-- 
2.25.1