equal
deleted
inserted
replaced
957 "after opening and if turned on make hierarchy view visible" |
957 "after opening and if turned on make hierarchy view visible" |
958 |
958 |
959 ClassPresentation = #'Class Hierarchy' |
959 ClassPresentation = #'Class Hierarchy' |
960 ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise]. |
960 ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise]. |
961 |
961 |
962 ^super postOpenWith:aBuilder |
962 super postOpenWith:aBuilder |
963 |
|
964 ! ! |
963 ! ! |
965 |
964 |
966 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'! |
965 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'! |
967 |
966 |
968 iconOn:aGC |
967 iconOn:aGC |