From c6c47960411f80cb60019345c1f852b331c8a8bb Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 9 Jun 2000 19:07:39 +0000
Subject: Remove toolbar and menubar from windows in multiple frame mode.

---
 generic/proof-shell.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'generic')

diff --git a/generic/proof-shell.el b/generic/proof-shell.el
index 29087683..cc5693d2 100644
--- a/generic/proof-shell.el
+++ b/generic/proof-shell.el
@@ -1991,8 +1991,20 @@ Internal variable, setting this will have no effect!")
     (setq special-display-regexps
 	  (union special-display-regexps 
 		 (list proof-shell-special-display-regexp)))
+    ;; If we're on XEmacs with toolbar, turn off toolbar and
+    ;; menubar for the small frames to save space.
+    (if (featurep 'toolbar) 
+	(progn
+	  (proof-with-current-buffer-if-exists 
+	   proof-response-buffer
+	   (set-specifier default-toolbar-visible-p nil (current-buffer))
+	   (set-specifier menubar-visible-p nil (current-buffer)))
+	  (proof-with-current-buffer-if-exists 
+	   proof-goals-buffer
+	   (set-specifier default-toolbar-visible-p nil (current-buffer))
+	   (set-specifier menubar-visible-p nil (current-buffer))))?)
     ;; Try to trigger re-display of goals/response buffers,
-    ;; on next interaction.  Do this by 
+    ;; on next interaction.  
     ;; FIXME: would be nice to do the re-display here, rather
     ;; than waiting for next re-display
     (delete-other-windows 
-- 
cgit v1.2.3