home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / browser2.zip / br-menu.el < prev    next >
Text File  |  1995-02-17  |  7KB  |  150 lines
  1. ;;; CLASS BROWSER FOR C++
  2. ;;; $Id: br-menu.el,v 3.1 1995/02/17 18:19:36 mmann Exp $
  3. ;;;
  4. ;;; **********************************************************************
  5. ;;; Copyright (C) 1993, 1994 Gerd Moellmann. All rights reserved.
  6. ;;; Altenbergstr. 6, D-40235 Duesseldorf, Germany
  7. ;;; 100025.3303@COMPUSERVE.COM
  8. ;;; Suggestions, comments and requests for improvements are welcome.
  9. ;;; **********************************************************************
  10. ;;;
  11. ;;; This version works with both Emacs version 18 and 19, and I want
  12. ;;; to keep it that way. It requires the CL-19 Common Lisp compatibility
  13. ;;; package for Emacs 18 and 19.
  14. ;;;
  15. ;;; This file contains a menu definition for Emacs 19. To load the
  16. ;;; menu, insert into your .emacs:
  17. ;;;
  18. ;;; (require 'br-menu "browse/menu")
  19. ;;; 
  20.  
  21. ;; This file may be made part of the Emacs distribution at the option
  22. ;; of the FSF.
  23.  
  24. ;; This code is distributed in the hope that it will be useful,
  25. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  26. ;; accepts responsibility to anyone for the consequences of using it
  27. ;; or for whether it serves any particular purpose or works at all,
  28. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  29. ;; License for full details.
  30.  
  31. ;; Everyone is granted permission to copy, modify and redistribute
  32. ;; this code, but only under the conditions described in the
  33. ;; GNU Emacs General Public License.   A copy of this license is
  34. ;; supposed to have been given to you along with GNU Emacs so you
  35. ;; can know your rights and responsibilities.  It should be in a
  36. ;; file named COPYING.  Among other things, the copyright notice
  37. ;; and this notice must be preserved on all copies.
  38.  
  39.  
  40. (require 'br-tree)
  41. (require 'br-membe)
  42.  
  43. (if (and (browse-emacs-19-p)
  44.      window-system
  45.      browse-enable-menu-bar)
  46.     (progn
  47.       (define-key tree-mode-map [menu-bar browse]
  48.     (cons "Browse" (make-sparse-keymap "Browse")))
  49.  
  50.       ;; Expanding and collapsing the tree
  51.       (define-key tree-mode-map [menu-bar browse expand-tree]
  52.     '("Expand branch" . tree-expand-branch))
  53.       (define-key tree-mode-map [menu-bar browse expand-all]
  54.     '("Expand all" . tree-expand-all))
  55.       (define-key tree-mode-map [menu-bar browse collapse-tree]
  56.     '("Collapse branch" . tree-collapse-branch))
  57.  
  58.       ;; Showing function, attributes etc.
  59.       (define-key tree-mode-map [menu-bar browse show-instance-vars]
  60.     '("Show instance variables" . tree-show-vars))
  61.       (define-key tree-mode-map [menu-bar browse show-static-vars]
  62.     '("Show static variables" . tree-show-svars))
  63.       (define-key tree-mode-map [menu-bar browse show-instance-functions]
  64.     '("Show instance functions" . tree-show-fns))
  65.       (define-key tree-mode-map [menu-bar browse show-static-functions]
  66.     '("Show static functions" . tree-show-sfns))
  67.       (define-key tree-mode-map [menu-bar browse show-friends]
  68.     '("Show friend functions" . tree-show-friends))
  69.       (define-key tree-mode-map [menu-bar browse show-types]
  70.     '("Show types" . tree-show-types))
  71.  
  72.       ;; Jump to definition
  73.       (define-key tree-mode-map [menu-bar browse view-class]
  74.     '("View class declaration" . tree-view-source))
  75.       (define-key tree-mode-map [menu-bar browse find-class]
  76.     '("Find class declaration" . tree-find-source))
  77.  
  78.       ;; Move in tree
  79.       (define-key tree-mode-map [menu-bar browse goto-class]
  80.     '("Find class..." . tree-position-on-class))
  81.  
  82.       ;; Show member buffer
  83.       (define-key tree-mode-map [menu-bar browse pop-to-member-buffer]
  84.     '("Pop to member buffer" . tree-pop-to-members))
  85.  
  86.       ;; Member buffer...
  87.       (define-key member-mode-map [menu-bar browse]
  88.     (cons "Browse" (make-sparse-keymap "Browse")))
  89.  
  90.       ;; Viewing and finding
  91.       (define-key member-mode-map [menu-bar browse find-definition]
  92.     '("Find definition" . member-find-definition))
  93.       (define-key member-mode-map [menu-bar browse find-declaration]
  94.     '("Find declaration" . member-find-declaration))
  95.       (define-key member-mode-map [menu-bar browse view-definition]
  96.     '("View definition" . member-view-definition))
  97.       (define-key member-mode-map [menu-bar browse view-declaration]
  98.     '("View declaration" . member-view-declaration))
  99.  
  100.       ;; Positioniing...
  101.       (define-key member-mode-map [menu-bar browse position-on-all]
  102.     '("Goto member..." . member-position-over-all-members))
  103.       (define-key member-mode-map [menu-bar browse position-on-class]
  104.     '("Goto class..." . member-show-some-class))
  105.       (define-key member-mode-map [menu-bar browse position-on-subclass]
  106.     '("Goto derived class..." . member-show-class-down))
  107.       (define-key member-mode-map [menu-bar browse position-on-base-class]
  108.     '("Goto base class..." . member-show-class-up))
  109.       (define-key member-mode-map [menu-bar browse show-next]
  110.     '("Show next list" . member-view-next))
  111.       (define-key member-mode-map [menu-bar browse show-previous]
  112.     '("Show previous list" . member-view-previous))
  113.  
  114.       ;; Tree
  115.       (define-key member-mode-map [menu-bar browse show-class-in-tree]
  116.     '("Show class in tree..." . member-show-class-in-tree))
  117.       (define-key member-mode-map [menu-bar browse pop-to-tree]
  118.     '("Pop to class tree" . member-pop-to-tree))
  119.             
  120.       ;; Display filters
  121.       (define-key member-mode-map [menu-bar browse show-attributes]
  122.     '("Show attributes" . member-display-attributes))
  123.       (define-key member-mode-map [menu-bar browse toggle-regexp]
  124.     '("Toggle regular expression display" . member-toggle-regexp))
  125.       (define-key member-mode-map [menu-bar browse toggle-long-short]
  126.     '("Toggle long/short display" . member-toggle-long-short))
  127.       (define-key member-mode-map [menu-bar browse show-inherited]
  128.     '("Toggle inherited members" . member-toggle-superclasses))
  129.  
  130.       (define-key member-mode-map [menu-bar browse show-pure]
  131.     '("Toggle pure virtual function display" . member-pure))
  132.       (define-key member-mode-map [menu-bar browse show-const]
  133.     '("Toggle const function display" . member-const))
  134.       (define-key member-mode-map [menu-bar browse show-inline]
  135.     '("Toggle inline function display" . member-inline))
  136.       (define-key member-mode-map [menu-bar browse show-virtual]
  137.     '("Toggle virtual function display" . member-virtual))
  138.       (define-key member-mode-map [menu-bar browse show-private]
  139.     '("Toggle privates" . member-private))
  140.       (define-key member-mode-map [menu-bar browse show-protected]
  141.     '("Toggle protected" . member-protected))
  142.       (define-key member-mode-map [menu-bar browse show-public]
  143.     '("Toggle publics" . member-public))
  144.       (define-key member-mode-map [menu-bar browse show-all]
  145.     '("Display all" . member-all-visible))
  146.       ))
  147.  
  148. (provide 'br-menu)
  149.  
  150. ;;; End of br-menu.el