gtClassHierarchyFor: aView <gtPackageView> ^ aView mondrian title: 'Classes Map'; priority: 10.6; tooltip: 'Classes: black, Traits: orange, Extended classes: gray'; painting: [ :aMondrian | self paintClassHierarchyWith: aMondrian ]; actionUpdateButton