with this patch:

diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el
index 7df1e28e06..3bb8f70ca1 100644
--- a/lisp/tool-bar.el
+++ b/lisp/tool-bar.el
@@ -249,6 +249,16 @@ tool-bar-local-item-from-menu
 (defun tool-bar-setup ()
   (setq tool-bar-separator-image-expression
 	(tool-bar--image-expression "separator"))
+
+  (let ((tool-bar-map (default-value 'tool-bar-map)))
+    (tool-bar-add-item "newsticker/narrow"
+                       (lambda ()
+			 (interactive)
+			 (popup-menu (mouse-menu-bar-map)))
+		       'menu-bar
+		       :visible '(zerop (or (frame-parameter nil 'menu-bar-lines) 0))
+		       :vert-only t
+		       :help "Pop up the global menu bar"))
   (tool-bar-add-item-from-menu 'find-file "new" nil :label "New File"
 			       :vert-only t)
   (tool-bar-add-item-from-menu 'menu-find-file-existing "open" nil