Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1227.mcz
==================== Summary ====================
Name: Tools-ct.1227 Author: ct Time: 15 August 2023, 3:57:45.54903 pm UUID: 1e52719c-677f-904f-9280-f4dba2058cc1 Ancestors: Tools-ct.1226, Tools-ct.1032
Merges Tools-ct.1032 (show class definition et al. in MessageNames).
=============== Diff against Tools-ct.1226 ===============
Item was changed: ----- Method: MessageNames>>computeMessageList (in category 'search') ----- computeMessageList
+ | selector | + selectorListIndex = 0 ifTrue: [^ #()]. + + selector := selectorList at: selectorListIndex. + ^ (selector first isUppercase ifTrue: [Smalltalk classNamed: selector]) + ifNotNil: [:class | + #(Definition Comment Hierarchy) collect: [:sel | + MethodReference class: class selector: sel] ] + ifNil: [self systemNavigation allImplementorsOf: selector]! - ^ selectorListIndex = 0 - ifTrue: [#()] - ifFalse: [self systemNavigation - allImplementorsOf: (selectorList at: selectorListIndex)]!
Item was changed: ----- Method: MessageNames>>selectedMessageName (in category 'message list') ----- selectedMessageName selectorList basicSize = 0 ifTrue: [^ nil]. "Deals with selectorList nil or empty" + ^super selectedMessageName ifNil: [ + "only message name selected" + selectorList at: (selectorListIndex max: 1) ifAbsent: [nil] "If no selection we can still find a selector"]! - ^selectorList at: (selectorListIndex max: 1) ifAbsent: [nil] "If no selection we can still find a selector"!
Item was changed: ----- Method: MessageSet>>aboutToStyle: (in category 'code pane') ----- + aboutToStyle: aStyler + "This is a notification that aStyler is about to re-style its text. + Set the classOrMetaClass in aStyler, so that identifiers will be resolved correctly. - aboutToStyle: styler - "This is a notification that aPluggableShoutMorphOrView is about to re-style its text. - Set the classOrMetaClass in aPluggableShoutMorphOrView, so that identifiers will be resolved correctly. Answer true to allow styling to proceed, or false to veto the styling."
+ | selectedMessageName showingMethod | - | selectedMessageName | self isModeStyleable ifFalse: [^ false]. - selectedMessageName := self selectedMessageName. + aStyler classOrMetaClass: self selectedClassOrMetaClass. + showingMethod := (#(Comment Definition Hierarchy) includes: selectedMessageName) not. + aStyler parseAMethod: showingMethod. + ^(#(Comment Hierarchy) includes: selectedMessageName) not! - styler classOrMetaClass: self selectedClassOrMetaClass. - styler parseAMethod: (#(Comment Definition Hierarchy) includes: selectedMessageName) not. - ^ (#(Comment Hierarchy) includes: selectedMessageName) not!
packages@lists.squeakfoundation.org