Add tool bar icons to package menu. (Bug#78601)

* etc/images/package-menu/README:
* etc/images/package-menu/delete.xpm:
* etc/images/package-menu/execute.xpm:
* etc/images/package-menu/info.xpm:
* etc/images/package-menu/install.xpm:
* etc/images/package-menu/unmark.xpm:
* etc/images/package-menu/upgrade.xpm:
* etc/images/package-menu/url.xpm:
* etc/images/package-menu/delete.pbm:
* etc/images/package-menu/execute.pbm:
* etc/images/package-menu/info.pbm:
* etc/images/package-menu/install.pbm:
* etc/images/package-menu/unmark.pbm:
* etc/images/package-menu/upgrade.pbm:
* etc/images/package-menu/url.pbm: New files.
* lisp/emacs-lisp/package.el (package-menu--tool-bar-map): New
variable.
(package-menu-mode): Set tool bar.
* lisp/term/pgtk-win.el (x-gtk-stock-map):
* lisp/term/x-win.el (x-gtk-stock-map): Add new icons to alist.

2 files changed, 16 insertions, 0 deletions

diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index 1c15234c49c..012ecc5ed5e 100644
--- a/lisp/term/pgtk-win.el
+++ b/lisp/term/pgtk-win.el
@@ -211,6 +211,14 @@ EVENT is a `preedit-text' event."
     ("etc/images/cancel" . "gtk-cancel")
     ("etc/images/info" . ("dialog-information" "gtk-info"))
     ("etc/images/bookmark_add" . "n:bookmark_add")
+    ;; Used in package-menu
+    ("images/package-menu/execute" . "gtk-apply")
+    ("images/package-menu/info" . ("dialog-information" "gtk-info"))
+    ("images/package-menu/install" . ("archive-insert" "list-add"))
+    ("images/package-menu/delete" . ("archive-remove" "edit-delete" "gtk-remove"))
+    ("images/package-menu/unmark" . ("gnumeric-object-checkbox" "box"))
+    ("images/package-menu/url" . "globe")
+    ("images/package-menu/upgrade" . ("archive-extract" "go-bottom"))
     ;; Used in Gnus and/or MH-E:
     ("etc/images/attach" . ("mail-attachment" "gtk-attach"))
     ("etc/images/connect" . "gtk-connect")
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 1863ff92c77..ae3ea9f1ba2 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1400,6 +1400,14 @@ This returns an error if any Emacs frames are X frames."
     ("etc/images/cancel" . "gtk-cancel")
     ("etc/images/info" . ("dialog-information" "gtk-info"))
     ("etc/images/bookmark_add" . "n:bookmark_add")
+    ;; Used in package-menu
+    ("images/package-menu/execute" . "gtk-apply")
+    ("images/package-menu/info" . ("dialog-information" "gtk-info"))
+    ("images/package-menu/install" . ("archive-insert" "list-add"))
+    ("images/package-menu/delete" . ("archive-remove" "edit-delete" "gtk-remove"))
+    ("images/package-menu/unmark" . ("gnumeric-object-checkbox" "box"))
+    ("images/package-menu/url" . "globe")
+    ("images/package-menu/upgrade" . ("archive-extract" "go-bottom"))
     ;; Used in Gnus and/or MH-E:
     ("etc/images/attach" . ("mail-attachment" "gtk-attach"))
     ("etc/images/connect" . "gtk-connect")