[ref_impl_eiffel] [1553] Implement class ancestor view.

Revision: 1553
Author: thomas.beale
Log Message: