Status: Accepted
Owner:
[hidden email]
Labels: Milestone-1.3
New issue 4304 by
[hidden email]: open hierarchy -> DNU on
flatBrowser
http://code.google.com/p/pharo/issues/detail?id=4304spawnHierarchy
"Create and schedule a new hierarchy browser on the currently selected
class or meta."
| newBrowser aSymbol aBehavior messageCatIndex selectedClassOrMetaClass |
(selectedClassOrMetaClass := self selectedClassOrMetaClass)
ifNil: [^ self].
selectedClassOrMetaClass isTrait
ifTrue: [^ self].
newBrowser := Smalltalk tools hierarchyBrowser new initHierarchyForClass:
selectedClassOrMetaClass.
((aSymbol := self selectedMessageName) notNil
and: [(Smalltalk tools messageSet isPseudoSelector: aSymbol) not])
^^^^^^^^^^^^^^^^^^^^^
ifTrue: [aBehavior := selectedClassOrMetaClass.
messageCatIndex := aBehavior organization numberOfCategoryOfElement:
aSymbol.
newBrowser messageCategoryListIndex: messageCatIndex + 1.
newBrowser
messageListIndex: ((aBehavior organization listAtCategoryNumber:
messageCatIndex)
indexOf: aSymbol)].
Smalltalk tools browser
openBrowserView: (newBrowser openSystemCatEditString: nil)
label: newBrowser labelString.
newBrowser assureSelectionsShow
Paste or attach stack trace if applicable (look at the file PharoDebug.log
located in the same directory as your image):
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker