[elpa] externals/inspector 75ac7da10e 29/93: Menu and tool bar

[ELPA Syncer]

branch: externals/inspector
commit 75ac7da10ef20efc34e2d7efe518059a1b27c741
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Menu and tool bar
---
 inspector.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/inspector.el b/inspector.el
index a2c1573e33..8ff404de22 100644
--- a/inspector.el
+++ b/inspector.el
@@ -322,6 +322,29 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector 
history for navigation pu
     (define-key map (kbd "l") 'inspector-pop)
     map))
 
+(easy-menu-define
+ inspector-mode-menu inspector-mode-map
+ "Menu for inspector."
+ '("Inspector"
+   ["Previous" inspector-pop :help "Inpect previous object"]
+   ["Exit" inspector-quit :help "Quit the Emacs Lisp inspector"]))
+
+(defvar inspector-tool-bar-map
+  (let ((map (make-sparse-keymap)))
+    (tool-bar-local-item-from-menu
+     'inspector-pop "left-arrow" map inspector-mode-map
+     :rtl "left-arrow"
+     :label "Back"
+     :vert-only t)
+    (tool-bar-local-item-from-menu
+     'inspector-quit "exit" map inspector-mode-map
+     :vert-only t)
+    map))
+
+(add-hook 'inspector-mode-hook
+          (lambda ()
+            (setq-local tool-bar-map inspector-tool-bar-map)))
+
 (define-minor-mode inspector-mode
   "Minor mode for inspector buffers."
   :init-value nil