Some useful defuns...
(defun jde-show-superclass-source ()
"Show the superclass source."
(interactive)
(let ((tokens (semantic-token-type-parent-superclass
(semantic-current-nonterminal-of-type 'type))))
(if tokens
(if (= (length tokens) 1)
(jde-show-class-source (car tokens))
(jde-show-class-source (x-popup-menu t
(bookmark-menu-build-paned-menu "Super Class" tokens)))
)
(jde-show-class-source "Object")
)
)
)
(defun jde-show-interface-source ()
"Show the interface source."
(interactive)
(let ((tokens (semantic-token-type-parent-implement
(semantic-current-nonterminal-of-type 'type))))
(if tokens
(if (= (length tokens) 1)
(jde-show-class-source (car tokens))
(jde-show-class-source (x-popup-menu t
(bookmark-menu-build-paned-menu "Interface" tokens)))
)
)
)
)
(define-key jde-mode-map [(control c) (control v) (control e)]
'jde-show-superclass-source)
(define-key jde-mode-map [(control c) (control v) (control i)]
'jde-show-interface-source)
