From de90805036ae2bf8e9ceff16d59e3ede1b2bedac Mon Sep 17 00:00:00 2001
From: David Aspinall <da@inf.ed.ac.uk>
Date: Wed, 22 Sep 1999 16:22:25 +0000
Subject: Added find and help buttons.  Find does nothing at the moment. Added
 proof-toolbar-refresh to after-change-functions.  Makes for a flickery
 toolbar, unfortunately.

---
 generic/proof-toolbar.el | 40 ++++++++++++++++++++++++++++++++++------
 1 file changed, 34 insertions(+), 6 deletions(-)

(limited to 'generic/proof-toolbar.el')

diff --git a/generic/proof-toolbar.el b/generic/proof-toolbar.el
index 47195c8d..ea799326 100644
--- a/generic/proof-toolbar.el
+++ b/generic/proof-toolbar.el
@@ -54,7 +54,9 @@
     (restart	"Restart"	"Restart scripting (clear all locked regions)" t)
     (qed	"QED"		"Close/save proved theorem" t)
     (command    "Command"	"Issue a non-scripting command")
-    (info	"Info"		"Show proof assistant information" t))
+    (info	"Info"		"Show proof assistant information" t)
+    (find	"Find"		"Find something from the proof assistant" t)
+    (help	"Help"		"Proof General manual" t))
 "Example value for proof-toolbar-entries.
 This gives a bare toolbar that works for any prover.  To add
 prover specific buttons, see documentation for proof-toolbar-entries
@@ -201,11 +203,14 @@ to the default toolbar."
 	    ;; Ensure current buffer will display this toolbar
 	    (set-specifier default-toolbar proof-toolbar (current-buffer))
 	    ;; Set the callback for updating the enablers
-	    (add-hook 'proof-state-change-hook 'proof-toolbar-refresh))
+	    (add-hook 'proof-state-change-hook 'proof-toolbar-refresh)
+	    ;; A rather pervasive hook
+	    (add-hook 'after-change-functions 'proof-toolbar-refresh))
 	
 	;; Disabling toolbar: remove specifier and state change hook.
 	(remove-specifier default-toolbar (current-buffer))
-	(remove-hook 'proof-state-change-hook 'proof-toolbar-refresh))))
+	(remove-hook 'proof-state-change-hook 'proof-toolbar-refresh)
+	(remove-hook 'after-change-functions 'proof-toolbar-refresh))))
 
 (defun proof-toolbar-toggle (&optional force-on)
   "Toggle display of Proof General toolbar."
@@ -214,17 +219,19 @@ to the default toolbar."
        (or force-on (not proof-toolbar-inhibit)))
   (proof-toolbar-setup))
 
-(defun proof-toolbar-refresh ()
+(defun proof-toolbar-refresh (&rest args)
   "Force refresh of toolbar display to re-evaluate enablers.
 This function needs to be called anytime that enablers may have 
 changed state."
+  ;; FIXME: could improve performance here and reduce flickeryness
+  ;; by caching result of last evaluation of enablers.  If nothing
+  ;; has changed, don't remove and re-add.
   (if (featurep 'toolbar)		; won't work in FSF Emacs
       (progn
 	;; I'm not sure if this is "the" official way to do this,
 	;; but it's what VM does and it works.
 	(remove-specifier default-toolbar (current-buffer))
 	(set-specifier default-toolbar proof-toolbar (current-buffer)))))
-  
 
 ;;
 ;; =================================================================
@@ -407,6 +414,27 @@ Move point if the end of the locked position is invisible."
   (proof-shell-available-p))
 
 (defalias 'proof-toolbar-command 'proof-execute-minibuffer-cmd)
-  
+
+;;
+;; Help button
+;;
+ 
+(defun proof-toolbar-help-enable-p () 
+  t)
+
+(defun proof-toolbar-help ()
+  (info "ProofGeneral"))
+
+;;
+;; Find button
+;;
+ 
+(defun proof-toolbar-find-enable-p () 
+  (proof-shell-available-p))
+
+(defun proof-toolbar-find ()
+  nil)
+
+ 
 ;; 
 (provide 'proof-toolbar)
-- 
cgit v1.2.3