/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.216 by kfstorm, Wed May 1 22:01:16 2002 UTC revision 1.217 by eliz, Fri May 10 09:42:49 2002 UTC
# Line 615  Do the same for the keys of the same nam Line 615  Do the same for the keys of the same nam
615    
616  (define-key menu-bar-showhide-menu [column-number-mode]  (define-key menu-bar-showhide-menu [column-number-mode]
617    (menu-bar-make-toggle toggle-column-number-mode column-number-mode    (menu-bar-make-toggle toggle-column-number-mode column-number-mode
618                          "Show Column Number" "Column number mode %s"                          "Show Column Numbers" "Column number mode %s"
619                          "Show the current column number in the mode-line"))                          "Show the current column number in the mode line"))
620    
621  (define-key menu-bar-showhide-menu [line-number-mode]  (define-key menu-bar-showhide-menu [line-number-mode]
622    (menu-bar-make-toggle toggle-line-number-mode line-number-mode    (menu-bar-make-toggle toggle-line-number-mode line-number-mode
623                          "Show Line Number" "Line number mode %s"                          "Show Line Numbers" "Line number mode %s"
624                          "Show the current line number in the mode-line"))                          "Show the current line number in the mode line"))
625    
626  (define-key menu-bar-showhide-menu [linecolumn-separator]  (define-key menu-bar-showhide-menu [linecolumn-separator]
627    '("--"))    '("--"))
# Line 638  Do the same for the keys of the same nam Line 638  Do the same for the keys of the same nam
638                                  (interactive)                                  (interactive)
639                                  (showhide-date-time)                                  (showhide-date-time)
640                                  (customize-mark-as-set 'display-time-mode))                                  (customize-mark-as-set 'display-time-mode))
641                :help "Display date and time in the mode-line"                :help "Display date and time in the mode line"
642                :button (:toggle . display-time-mode)))                :button (:toggle . display-time-mode)))
643    
644  (define-key menu-bar-showhide-menu [datetime-separator]  (define-key menu-bar-showhide-menu [datetime-separator]
# Line 646  Do the same for the keys of the same nam Line 646  Do the same for the keys of the same nam
646    
647  (define-key menu-bar-showhide-menu [showhide-speedbar]  (define-key menu-bar-showhide-menu [showhide-speedbar]
648    '(menu-item "Speedbar" speedbar-frame-mode    '(menu-item "Speedbar" speedbar-frame-mode
649                :help "Display speedbar"                :help "Display a Speedbar quick-navigation frame"
650                :button (:toggle                :button (:toggle
651                         . (and (boundp 'speedbar-frame)                         . (and (boundp 'speedbar-frame)
652                                (frame-live-p (symbol-value 'speedbar-frame))                                (frame-live-p (symbol-value 'speedbar-frame))
# Line 661  Do the same for the keys of the same nam Line 661  Do the same for the keys of the same nam
661                  (interactive)                  (interactive)
662                  (customize-set-variable 'scroll-bar-mode 'right))                  (customize-set-variable 'scroll-bar-mode 'right))
663                :help "Scroll-bar on the right side"                :help "Scroll-bar on the right side"
664                :visible window-system                :visible (display-graphic-p)
665                :button (:radio . (eq (cdr (assq 'vertical-scroll-bars                :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
666                                                 (frame-parameters))) 'right))))                                                 (frame-parameters))) 'right))))
667    
# Line 671  Do the same for the keys of the same nam Line 671  Do the same for the keys of the same nam
671                  (interactive)                  (interactive)
672                  (customize-set-variable 'scroll-bar-mode 'left))                  (customize-set-variable 'scroll-bar-mode 'left))
673                :help "Scroll-bar on the left side"                :help "Scroll-bar on the left side"
674                :visible window-system                :visible (display-graphic-p)
675                :button (:radio . (eq (cdr (assq 'vertical-scroll-bars                :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
676                                                 (frame-parameters))) 'left))))                                                 (frame-parameters))) 'left))))
677    
# Line 681  Do the same for the keys of the same nam Line 681  Do the same for the keys of the same nam
681                  (interactive)                  (interactive)
682                  (customize-set-variable 'scroll-bar-mode nil))                  (customize-set-variable 'scroll-bar-mode nil))
683                :help "Turn off scroll-bar"                :help "Turn off scroll-bar"
684                :visible window-system                :visible (display-graphic-p)
685                :button (:radio . (eq (cdr (assq 'vertical-scroll-bars                :button (:radio . (eq (cdr (assq 'vertical-scroll-bars
686                                                 (frame-parameters))) nil))))                                                 (frame-parameters))) nil))))
687    
688  (define-key menu-bar-showhide-menu [showhide-scroll-bar]  (define-key menu-bar-showhide-menu [showhide-scroll-bar]
689    (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu    (list 'menu-item "Scroll-bar" menu-bar-showhide-scroll-bar-menu
690          :visible 'window-system          :visible `(display-graphic-p)
691          :help "Select scroll-bar mode"))          :help "Select scroll-bar mode"))
692    
693  (defun showhide-menu-bar ()  (defun showhide-menu-bar ()
# Line 696  Do the same for the keys of the same nam Line 696  Do the same for the keys of the same nam
696    (menu-bar-mode)    (menu-bar-mode)
697    (if menu-bar-mode    (if menu-bar-mode
698        (message "Menu-bar mode enabled.")        (message "Menu-bar mode enabled.")
699      (message "Menu-bar mode disabled.  Use M-x menu-bar-mode to make the menu bar appear.")))      (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))
701    
702  (define-key menu-bar-showhide-menu [showhide-menu-bar]  (define-key menu-bar-showhide-menu [showhide-menu-bar]
703    '(menu-item "Menu-bar"    '(menu-item "Menu-bar" showhide-menu-bar
               (lambda ()  
                 (interactive)  
                 (showhide-menu-bar)  
                 (customize-mark-as-set 'menu-bar-mode))  
704                :help "Toggle menu-bar on/off"                :help "Toggle menu-bar on/off"
705                :button (:toggle . menu-bar-mode)))                :button (:toggle . menu-bar-mode)))
706    
707  (defun showhide-tool-bar ()  (defun showhide-toolbar ()
708    "Toggle whether to turn tool-bar on/off."    "Toggle whether to turn tool-bar on/off."
709    (interactive)    (interactive)
710    (if (tool-bar-mode)    (if (tool-bar-mode)
711        (message "Tool-bar mode enabled.")        (message "Tool-bar mode enabled.")
712      (message "Tool-bar mode disabled.")))      (message "Tool-bar mode disabled."))
713      (customize-mark-as-set 'tool-bar-mode))
714    
715  (define-key menu-bar-showhide-menu [showhide-tool-bar]  (define-key menu-bar-showhide-menu [showhide-tool-bar]
716    '(menu-item "Tool-bar"    (list 'menu-item "Tool-bar" 'showhide-toolbar
717                (lambda ()          :help "Turn tool-bar on/off"
718                  (interactive)          :visible `(display-graphic-p)
719                  (showhide-tool-bar)          :button `(:toggle . tool-bar-mode)))
                 (customize-mark-as-set 'tool-bar-mode))  
               :help "Turn tool-bar on/off"  
               :visible window-system  
               :button (:toggle . tool-bar-mode)))  
720    
721  (define-key menu-bar-options-menu [showhide]  (define-key menu-bar-options-menu [showhide]
722    (list 'menu-item "Show/Hide" menu-bar-showhide-menu    (list 'menu-item "Show/Hide" menu-bar-showhide-menu

Legend:
Removed from v.1.216  
changed lines
  Added in v.1.217

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26