From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.bugs Subject: Re: no way to remove festive icons from within menus Date: Thu, 18 Nov 2004 09:40:27 -0700 Message-ID: <3041k1F2t8c53U1@uni-berlin.de> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1100796055 31129 80.91.229.6 (18 Nov 2004 16:40:55 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 18 Nov 2004 16:40:55 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Nov 18 17:40:48 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CUpKx-0001cO-00 for ; Thu, 18 Nov 2004 17:40:48 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CUpTo-0001if-SG for geb-bug-gnu-emacs@m.gmane.org; Thu, 18 Nov 2004 11:49:56 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CUpTn-0001fm-2b for bug-gnu-emacs@gnu.org; Thu, 18 Nov 2004 11:49:55 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CUpTm-0001eq-5Z for bug-gnu-emacs@gnu.org; Thu, 18 Nov 2004 11:49:54 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CUpTm-0001ea-29 for bug-gnu-emacs@gnu.org; Thu, 18 Nov 2004 11:49:54 -0500 Original-Received: from [132.239.1.55] (helo=mailbox3.ucsd.edu) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1CUpKp-0002oR-NV for bug-gnu-emacs@gnu.org; Thu, 18 Nov 2004 11:40:40 -0500 Original-Received: from Mail.FU-Berlin.DE (mail.fu-berlin.de [130.133.1.2]) by mailbox3.ucsd.edu (8.13.1/8.13.1) with ESMTP id iAIGeYSf028969 for ; Thu, 18 Nov 2004 08:40:35 -0800 (PST) Original-Received: by Mail.FU-Berlin.DE (Exim 4.42) from curry.zedat.fu-berlin.de ([160.45.10.36]) for gnu-emacs-bug@moderators.isc.org with esmtp id <1CUpKk-000Cke-85>; Thu, 18 Nov 2004 17:40:34 +0100 Original-Received: by Curry.ZEDAT.FU-Berlin.DE (Smail3.2.0.98) from news.uni-berlin.de with bsmtp id ; Thu, 18 Nov 2004 17:40:34 +0100 (MET) Original-To: gnu-emacs-bug@moderators.isc.org Original-Path: not-for-mail Original-Newsgroups: gnu.emacs.bug Original-Lines: 41 X-Orig-X-Trace: news.uni-berlin.de P968PK6mOOOKSXat1auSqgP1qauaG+IaqQKPEnIhTku40ejGQ= User-Agent: Mozilla Thunderbird 0.9 (X11/20041105) X-Accept-Language: en-us, en In-Reply-To: X-Spamscanner: mailbox3.ucsd.edu (v1.5 Aug 25 2004 09:28:35, -0.1/5.0 3.0.0) X-MailScanner: PASSED (v1.2.8 19057 iAIGeYSf028969 mailbox3.ucsd.edu) X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:9733 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:9733 Kevin Rodgers wrote: > Dan Jacobson wrote: > > So there should be a way to do (tool-bar-mode 0) right in the toolbar > > itself. > > (tool-bar-add-item "exit" 'tool-bar-mode 'toggle-tool-bar-mode > :help "Toggle the Tool Bar") It might be nice if Emacs provided a tool bar analogue to menu-bar-final-items: (setq tool-bar-final-items (append tool-bar-final-items '(toggle-tool-bar-mode))) Also, why aren't the menus in menu-bar-final-items right justified? > > And a way to bring it back via the menus. > > (define-key menu-bar-options-menu [toggle-tool-bar-mode] > (menu-bar-make-toggle toggle-tool-bar-mode tool-bar-mode > "Display Tool Bar (Tool Bar mode)" > "Tool Bar mode %s" > "Display the tool bar icons" > (tool-bar-mode))) And for symmetry: ;; put this before (tool-bar-add-item ...) above: (tool-bar-add-item "exit" 'menu-bar-mode 'toggle-menu-bar-mode :help "Toggle the Menu Bar") ;; put this after (define-key menu-bar-options-menu ...) above: (define-key menu-bar-options-menu [toggle-menu-bar-mode] (menu-bar-make-toggle toggle-menu-bar-mode menu-bar-mode "Display Menu Bar (Menu Bar mode)" "Menu Bar mode %s" "Display the menu bar labels" (menu-bar-mode nil))) -- Kevin Rodgers