diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2000-06-09 19:07:39 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2000-06-09 19:07:39 +0000 |
| commit | c6c47960411f80cb60019345c1f852b331c8a8bb (patch) | |
| tree | 94a6fbdc38d1cca8b8e90485a82480fe2c0c5a9d /generic | |
| parent | 85dc0cf0d1c922ed6e8f7cccfc7c03aa36d81bb8 (diff) | |
Remove toolbar and menubar from windows in multiple frame mode.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/proof-shell.el | 14 |
1 files changed, 13 insertions, 1 deletions
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 |