From xemacs-m  Sun Apr 27 15:57:41 1997
Received: from atreides.eng.mindspring.net (atreides.eng.mindspring.net [207.69.183.11])
	by xemacs.org (8.8.5/8.8.5) with SMTP id PAA20136
	for <xemacs-beta@xemacs.org>; Sun, 27 Apr 1997 15:57:41 -0500 (CDT)
Received: (qmail 15362 invoked by uid 52477); 27 Apr 1997 20:49:46 -0000
To: xemacs-beta@xemacs.org
Subject: Re: no toolbar (FAQ?)
References: <199704271921.NAA06448@branagh.ta52.lanl.gov>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: Sudish Joseph <sj@eng.mindspring.net>
Date: 27 Apr 1997 16:49:26 -0400
In-Reply-To: "John A. Turner"'s message of Sun, 27 Apr 1997 13:21:57 -0600
Message-ID: <yviavi58ur6d.fsf@atreides.eng.mindspring.net>
Lines: 41
X-Mailer: Gnus v5.4.45/XEmacs 20.1

John A Turner writes:
> A colleague sent me this:
>> Almost does what I want.  It does turn off the menubar and the
>> toolbar.  _AFTER_ sending them to me, and then briefly displaying
>> them!  It doesn't get it - I don't _want_ them ...  Any hints?

I have the following to turn off all the X-heavy stuff in frames
opened on my home machine.  However, I still see shitloads of X
traffic, though I never see the toolbar/menubar at all -- no idea if
they're contributing to the *long* time it takes for the frame to
display. 

This assumes that you use gnudoit to open a frame on your home machine 
from an XEmacs elsewhere.  This won't help at all if you're starting
the XEmacs over the slow link.  In the latter case, efs is definitely
the best way to handle remote editing.  But efs can't help with mail
and news and reusing state in an XEmacs that's a week old.

;; we want all X devices other than the original X device to be spartan,
;; so we create special instantiators for the first device and set the 
;; default instantiators to minimal values.
(let ((specs '((menubar-visible-p)
	       (top-toolbar-visible-p)
	       (bottom-toolbar-visible-p)
	       (right-toolbar-visible-p)
	       (left-toolbar-visible-p)
	       (default-toolbar-visible-p)
	       (top-toolbar-height . 0)
	       (bottom-toolbar-height . 0)
	       (right-toolbar-width . 0)
	       (left-toolbar-width . 0)
	       (default-toolbar-width . 0)
	       (default-toolbar-height . 0)))
      (x-device (default-x-device)))
  (loop for (spec . val) in specs
	do (when (and (boundp spec)
		      (specifierp (setq spec (symbol-value spec))))
	     (set-specifier spec (specifier-instance spec x-device) x-device)
	     (set-specifier spec val 'global))))

-Sudish

