Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1197.mcz
==================== Summary ====================
Name: Tools-mt.1197 Author: mt Time: 11 April 2023, 11:03:12.65283 am UUID: a5846202-532b-b44e-803d-4277997b1383 Ancestors: Tools-mt.1196
For custom browsers, simplify extension point for hierarchy-browsing by letting only the Browser class know of its current HierarchyBrowser specialization. StandardToolSet and SystemBrowser (i.e., app registry) only pre-scribe class-side protocol, which is here: #fullHierarchyOnClass: and #fullHierarchyOnClass:selector:.
=============== Diff against Tools-mt.1196 ===============
Item was added: + ----- Method: Browser class>>fullHierarchyOnClass: (in category 'instance creation') ----- + fullHierarchyOnClass: aClass + + ^ HierarchyBrowser fullOnClass: aClass!
Item was added: + ----- Method: Browser class>>fullHierarchyOnClass:selector: (in category 'instance creation') ----- + fullHierarchyOnClass: aClass selector: aSelector + + ^ HierarchyBrowser fullOnClass: aClass selector: aSelector!
Item was changed: ----- Method: Model>>addItem: (in category '*Tools') ----- addItem: classAndMethod "Open a browser directly on the given class and method Model new addItem: 'Model addItem:' Model new addItem: 'Model>>addItem:' " self flag: #mref. "classAndMethod is a String" MessageSet parse: classAndMethod toClassAndSelector: [ :class :sel | class ifNil: [^self]. sel = #Comment ifTrue: [^ SystemBrowser default fullOnClassComment: class]. sel = #Definition ifTrue: [^ SystemBrowser default newOnClass: class]. + sel = #Hierarchy ifTrue: [^ SystemBrowser default fullHierarchyOnClass: class]. - sel = #Hierarchy ifTrue: [^ HierarchyBrowser fullOnClass: class]. sel = #Help ifTrue: [^HelpBrowser openOn: class]. SystemBrowser default newOnClass: class selector: sel ]
!
Item was changed: ----- Method: StandardToolSet class>>browseHierarchy:selector: (in category 'browsing') ----- browseHierarchy: aClass selector: aSelector + "Open a hierarchy browser" + + ^ SystemBrowser default fullHierarchyOnClass: aClass selector: aSelector! - "Open a browser" - - ^ HierarchyBrowser fullOnClass: aClass selector: aSelector.!
squeak-dev@lists.squeakfoundation.org