ecb + ebrowse (ebrowse.el diff, emacs 22)

[John S. Yates, Jr.]

627a628,632
> (defvar ebrowse--show-inherited-first-flag nil
>   "Non-nil means list inherited members first in a member buffer.
> Buffer-local in Ebrowse member buffers.")
> 
> 
2198a2204
>     (define-key map1 "o" 'ebrowse-toggle-base-class-display-order)
2472a2479,2485
> (defun ebrowse-toggle-base-class-display-order ()
>   "Toggle the display order of members inherited from base classes."
>   (interactive)
>   (setf ebrowse--show-inherited-first-flag (not 
> ebrowse--show-inherited-first-flag))
>   (ebrowse-redisplay-member-buffer))
> 
> 
2685a2699,2707
>       ;; Show inherited members first if appropriate
>       (when (and
>              ebrowse--show-inherited-flag
>              ebrowse--show-inherited-first-flag)
>       (dolist (super (reverse (ebrowse-base-classes 
> ebrowse--displayed-class)))
>         (goto-char (point-max))
>         (if (bolp) (insert"\n"))
>         (ebrowse-draw-member-buffer-class-line super)
>         (funcall display-fn (funcall ebrowse--accessor super) super)))
2686a2709,2710
>       (goto-char (point-max))
>       (if (bolp) (insert"\n"))
2689,2690c2713,2716
<       ;; Show inherited members if corresponding switch is on
<       (when ebrowse--show-inherited-flag
---
>       ;; Show inherited members last if appropriate
>       (when (and
>              ebrowse--show-inherited-flag
>              (not ebrowse--show-inherited-first-flag))
2693c2719
<         (insert (if (bolp) "\n\n" "\n"))
---
>         (if (bolp) (insert"\n"))
2713c2739
<     (insert ":\n\n")
---
>     (insert ":\n")
2773,2781c2799,2808
<   (insert (if (ebrowse-template-p member) "T" "-")
<         (if (ebrowse-extern-c-p member) "C" "-")
<         (if (ebrowse-virtual-p member) "v" "-")
<         (if (ebrowse-inline-p member) "i" "-")
<         (if (ebrowse-const-p member) "c" "-")
<         (if (ebrowse-pure-virtual-p member) "0" "-")
<         (if (ebrowse-mutable-p member) "m" "-")
<         (if (ebrowse-explicit-p member) "e" "-")
<         (if (ebrowse-throw-list-p member) "t" "-")))
---
>   (insert (if (ebrowse-template-p member) "T" ".")
>         (if (ebrowse-extern-c-p member) "C" " ")
>         (if (ebrowse-virtual-p member) "v" ".")
>         (if (ebrowse-inline-p member) "i" " ")
>         (if (ebrowse-const-p member) "c" ".")
>         (if (ebrowse-pure-virtual-p member) "P" " ")
>         (if (ebrowse-mutable-p member) "m" ".")
>         (if (ebrowse-explicit-p member) "e" " ")
>         (if (ebrowse-throw-list-p member) "t" ".")
>           ))
2808a2836,2841
>       (when ebrowse--attributes-flag
>         (let ((start (point)))
>           (ebrowse-draw-member-attributes member-struc)
>           (ebrowse-set-face start (point)
>                             'ebrowse-member-attribute-face)))
>       (insert " ")
2809a2843
>       (setf start (point))
2821,2822d2854
<       (setf start (point))
<       (indent-to ebrowse--decl-column)
2824,2833c2856
<       (when ebrowse--attributes-flag
<         (let ((start (point)))
<           (insert "<")
<           (ebrowse-draw-member-attributes member-struc)
<           (insert ">")
<           (ebrowse-set-face start (point)
<                             'ebrowse-member-attribute)))
<       (insert " ")
<       (ebrowse-draw-member-regexp member-struc))))
<   (insert "\n")
---
>         (insert "\n"))))
2857d2879
<           (insert "<")
2859d2880
<           (insert "> ")
3153a3175,3179
>     ["Inherited First" ebrowse-toggle-base-class-display-order
>      :help "Toggle display order of inherited members"
>      :style toggle
>      :selected ebrowse--show-inherited-first-flag
>      :active t]