From xemacs-m  Thu Sep 18 12:24:53 1997
Received: from ns2.eds.com (ns2.eds.com [199.228.142.78])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA03516
	for <xemacs-beta@xemacs.org>; Thu, 18 Sep 1997 12:24:50 -0500 (CDT)
Received: from nnsp.eds.com (nnsp2.eds.com [199.228.143.130])
	by ns2.eds.com (8.8.6/8.8.5) with ESMTP id NAA05923
	for <xemacs-beta@xemacs.org>; Thu, 18 Sep 1997 13:24:53 -0400 (EDT)
Received: from kocrsv04.delcoelect.com (kocrsv04.delcoelect.com [144.250.100.205])
	by nnsp.eds.com (8.8.5/8.8.5) with ESMTP id NAA04207
	for <xemacs-beta@xemacs.org>; Thu, 18 Sep 1997 13:24:53 -0400 (EDT)
Received: from kocrsw12.delcoelect.com (kocrsw12.delcoelect.com [144.250.106.18]) by kocrsv04.delcoelect.com (8.7.5/8.7.3) with SMTP id MAA29363 for <xemacs-beta@xemacs.org>; Thu, 18 Sep 1997 12:24:51 -0500 (EST)
Received: from kocrsw12 by kocrsw12.delcoelect.com (SMI-8.6/SMI-SVR4)
	id MAA12674; Thu, 18 Sep 1997 12:24:49 -0500
X-Mailer: exmh version 2.0gamma 1/27/97
To: xemacs-beta@xemacs.org
Subject: [PATCH] Frame properties in gnuclient.el
X-Attribution: mts
X-Face: 4tk3bJx]I+QTZ|=]*1+Z){9+;5u_hK*NBeZK6[+B+iB%bVuOJ%^uK~fIG}O-}%WLX*D^aW>
 Gv8E3Xtz0\N&fQl^:pj<K{xM`:d>pPt:9lF-YXB%O)?@rd?*/jE!s94`?]:jJ#C5RDP:;Mr.3lwo`0
 {vIT+<{%IRwe]vLd]7>\X|*z{TUX_t;?TPcOLBMIv8_V92!Vk(*DJVU~0M[`5D^PAWLniO1?YYWArM
 U*j9o+>?1MWi.lO?F-?aVt:qQ8OaG?R}B:I!7S_+KuzxZ.f9M@$z#n\bG2$Q2{od
Date: Thu, 18 Sep 1997 12:24:49 -0500
Message-ID: <12672.874603489@kocrsw12>
From: Mike Scheidler <c23mts@eng.delcoelect.com>

Here's a small patch to allow gnuclient frames to be created with their own
properties.

As an example of how to use this, apply the patch, byte-compile gnuserv.el,
then set the value of `gnuserv-frame-plist' to whatever properties you like
in your ~/.emacs file.  (For a list of properties that may be set, have a
look at the description of the `set-frame-properties' function.)  To make
the new frame recogize frame-specific X resources, setting the `name'
property is sufficient:

        (setq gnuserv-frame-plist '(name "gnuserv"))

Next, set whatever X resources you want the frame to have in your
app-defaults file.  This one should make it pretty obvious that the frame
is different from the norm:

        Emacs*gnuserv.default.attributeBackground:  magenta

Finally, restart XEmacs and invoke gnuclient in the usual manner.

Have fun,

Mike


1997-09-18  Mike Scheidler  <c23mts@eng.delcoelect.com>

	* gnuserv.el (gnuserv-edit-files): Added frame property support.

diff -u lisp/packages/gnuserv.el.orig lisp/packages/gnuserv.el 
--- lisp/packages/gnuserv.el.orig	Sat Aug 16 22:24:06 1997
+++ lisp/packages/gnuserv.el	Thu Sep 18 11:44:25 1997
@@ -133,6 +133,9 @@
 		(function :tag "Other"))
    :group 'gnuserv)
 
+(defvar gnuserv-frame-plist nil
+  "Properties of the frame in which gnuclient buffers are displayed.")
+
 (defcustom gnuserv-done-function 'kill-buffer 
   "*Function used to remove a buffer after editing.
 It is called with one BUFFER argument.  Functions such as `kill-buffer' and
@@ -419,7 +422,8 @@
 	   (frame (cond ((frame-live-p dest-frame)
 			 dest-frame)
 			((null dest-frame)
-			 (setq new-frame (make-frame nil device))
+			 (setq new-frame
+                               (make-frame gnuserv-frame-plist device))
 			 new-frame)
 			(t (selected-frame))))
 	   (client (make-gnuclient :id gnuserv-current-client


