Mercurial > emacs

comparison lisp/menu-bar.el @ 45228:66644e336dd7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-showhide-scroll-bar-menu) (menu-bar-showhide-menu): Use display-graphic-p, not widnow-system. (menu-bar-showhide-menu) <showhide-menu-bar, showhide-tool-bar>: Run a named function. (showhide-menu-bar, showhide-toolbar): Invoke customize-mark-as-set. (menu-bar-showhide-menu) <column-number-mode, line-number-mode>: Fix help text.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 10 May 2002 09:42:49 +0000
parents c7b6259de115
children 76c4660660ec
comparison
equal deleted inserted replaced
45227:6ce63e0a93f1 45228:66644e336dd7
613 613
614 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) 614 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
615 615
616 (define-key menu-bar-showhide-menu [column-number-mode] 616 (define-key menu-bar-showhide-menu [column-number-mode]
617 (menu-bar-make-toggle toggle-column-number-mode column-number-mode 617 (menu-bar-make-toggle toggle-column-number-mode column-number-mode
618 "Show Column Number" "Column number mode %s" 618 "Show Column Numbers" "Column number mode %s"
619 "Show the current column number in the mode-line")) 619 "Show the current column number in the mode line"))
620 620
621 (define-key menu-bar-showhide-menu [line-number-mode] 621 (define-key menu-bar-showhide-menu [line-number-mode]
622 (menu-bar-make-toggle toggle-line-number-mode line-number-mode 622 (menu-bar-make-toggle toggle-line-number-mode line-number-mode
623 "Show Line Number" "Line number mode %s" 623 "Show Line Numbers" "Line number mode %s"
624 "Show the current line number in the mode-line")) 624 "Show the current line number in the mode line"))
625 625
626 (define-key menu-bar-showhide-menu [linecolumn-separator] 626 (define-key menu-bar-showhide-menu [linecolumn-separator]
627 '("--")) 627 '("--"))
628 628
629 (defun showhide-date-time () 629 (defun showhide-date-time ()
636 (define-key menu-bar-showhide-menu [showhide-date-time] 636 (define-key menu-bar-showhide-menu [showhide-date-time]
637 '(menu-item "Date and Time" (lambda () 637 '(menu-item "Date and Time" (lambda ()
638 (interactive) 638 (interactive)
639 (showhide-date-time) 639 (showhide-date-time)
640 (customize-mark-as-set 'display-time-mode)) 640 (customize-mark-as-set 'display-time-mode))
641 :help "Display date and time in the mode-line" 641 :help "Display date and time in the mode line"
642 :button (:toggle . display-time-mode))) 642 :button (:toggle . display-time-mode)))
643 643
644 (define-key menu-bar-showhide-menu [datetime-separator] 644 (define-key menu-bar-showhide-menu [datetime-separator]
645 '("--")) 645 '("--"))
646 646
647 (define-key menu-bar-showhide-menu [showhide-speedbar] 647 (define-key menu-bar-showhide-menu [showhide-speedbar]
648 '(menu-item "Speedbar" speedbar-frame-mode 648 '(menu-item "Speedbar" speedbar-frame-mode
649 :help "Display speedbar" 649 :help "Display a Speedbar quick-navigation frame"
650 :button (:toggle 650 :button (:toggle
651 . (and (boundp 'speedbar-frame) 651 . (and (boundp 'speedbar-frame)
652 (frame-live-p (symbol-value 'speedbar-frame)) 652 (frame-live-p (symbol-value 'speedbar-frame))
653 (frame-visible-p 653 (frame-visible-p
654 (symbol-value 'speedbar-frame)))))) 654 (symbol-value 'speedbar-frame))))))
659 '(menu-item "On the Right" 659 '(menu-item "On the Right"
660 (lambda () 660 (lambda ()
661 (interactive) 661 (interactive)
662 (customize-set-variable 'scroll-bar-mode 'right)) 662 (customize-set-variable 'scroll-bar-mode 'right))
663 :help "Scroll-bar on the right side" 663 :help "Scroll-bar on the right side"
664 :visible window-system 664 :visible (display-graphic-p)
665 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars 665 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
666 (frame-parameters))) 'right)))) 666 (frame-parameters))) 'right))))
667 667
668 (define-key menu-bar-showhide-scroll-bar-menu [left] 668 (define-key menu-bar-showhide-scroll-bar-menu [left]
669 '(menu-item "On the Left" 669 '(menu-item "On the Left"
670 (lambda () 670 (lambda ()
671 (interactive) 671 (interactive)
672 (customize-set-variable 'scroll-bar-mode 'left)) 672 (customize-set-variable 'scroll-bar-mode 'left))
673 :help "Scroll-bar on the left side" 673 :help "Scroll-bar on the left side"
674 :visible window-system 674 :visible (display-graphic-p)
675 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars 675 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
676 (frame-parameters))) 'left)))) 676 (frame-parameters))) 'left))))
677 677
678 (define-key menu-bar-showhide-scroll-bar-menu [none] 678 (define-key menu-bar-showhide-scroll-bar-menu [none]
679 '(menu-item "None" 679 '(menu-item "None"
680 (lambda () 680 (lambda ()
681 (interactive) 681 (interactive)
682 (customize-set-variable 'scroll-bar-mode nil)) 682 (customize-set-variable 'scroll-bar-mode nil))
683 :help "Turn off scroll-bar" 683 :help "Turn off scroll-bar"
684 :visible window-system 684 :visible (display-graphic-p)
685 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars 685 :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
686 (frame-parameters))) nil)))) 686 (frame-parameters))) nil))))
687 687
688 (define-key menu-bar-showhide-menu [showhide-scroll-bar] 688 (define-key menu-bar-showhide-menu [showhide-scroll-bar]
689 (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu 689 (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu
690 :visible 'window-system 690 :visible `(display-graphic-p)
691 :help "Select scroll-bar mode")) 691 :help "Select scroll-bar mode"))
692 692
693 (defun showhide-menu-bar () 693 (defun showhide-menu-bar ()
694 "Toggle whether to turn menu-bar on/off." 694 "Toggle whether to turn menu-bar on/off."
695 (interactive) 695 (interactive)
696 (menu-bar-mode) 696 (menu-bar-mode)
697 (if menu-bar-mode 697 (if menu-bar-mode
698 (message "Menu-bar mode enabled.") 698 (message "Menu-bar mode enabled.")
699 (message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))) 699 (message "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear."))
700 (customize-mark-as-set 'menu-bar-mode))
700 701
701 (define-key menu-bar-showhide-menu [showhide-menu-bar] 702 (define-key menu-bar-showhide-menu [showhide-menu-bar]
702 '(menu-item "Menu-bar" 703 '(menu-item "Menu-bar" showhide-menu-bar
703 (lambda ()
704 (interactive)
705 (showhide-menu-bar)
706 (customize-mark-as-set 'menu-bar-mode))
707 :help "Toggle menu-bar on/off" 704 :help "Toggle menu-bar on/off"
708 :button (:toggle . menu-bar-mode))) 705 :button (:toggle . menu-bar-mode)))
709 706
710 (defun showhide-tool-bar () 707 (defun showhide-toolbar ()
711 "Toggle whether to turn tool-bar on/off." 708 "Toggle whether to turn tool-bar on/off."
712 (interactive) 709 (interactive)
713 (if (tool-bar-mode) 710 (if (tool-bar-mode)
714 (message "Tool-bar mode enabled.") 711 (message "Tool-bar mode enabled.")
715 (message "Tool-bar mode disabled."))) 712 (message "Tool-bar mode disabled."))
713 (customize-mark-as-set 'tool-bar-mode))
716 714
717 (define-key menu-bar-showhide-menu [showhide-tool-bar] 715 (define-key menu-bar-showhide-menu [showhide-tool-bar]
718 '(menu-item "Tool-bar" 716 (list 'menu-item "Tool-bar" 'showhide-toolbar
719 (lambda () 717 :help "Turn tool-bar on/off"
720 (interactive) 718 :visible `(display-graphic-p)
721 (showhide-tool-bar) 719 :button `(:toggle . tool-bar-mode)))
722 (customize-mark-as-set 'tool-bar-mode))
723 :help "Turn tool-bar on/off"
724 :visible window-system
725 :button (:toggle . tool-bar-mode)))
726 720
727 (define-key menu-bar-options-menu [showhide] 721 (define-key menu-bar-options-menu [showhide]
728 (list 'menu-item "Show/Hide" menu-bar-showhide-menu 722 (list 'menu-item "Show/Hide" menu-bar-showhide-menu
729 :help "Toggle on/off various display features")) 723 :help "Toggle on/off various display features"))
730 724