Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.676.mcz
==================== Summary ====================
Name: Tools-topa.676 Author: topa Time: 1 March 2016, 5:32:00.896321 pm UUID: 9dd551d2-d6c4-4704-af6f-b3ec510732f8 Ancestors: Tools-topa.675
Generalize messageList callbacks to be usabe with message names, too.
=============== Diff against Tools-topa.675 ===============
Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." - - | source formatted iconHelp | - Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. + ^ self messageHelpFor: (self messageList at: anIndex) + ! - - source := (self selectedClassOrMetaClass >> (self messageList at: anIndex)) getSource. - source lineCount > 5 ifTrue: [ - | sourceLines | - sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. - sourceLines add: ' [...]'. - source := sourceLines joinSeparatedBy: Character cr]. - - formatted := SHTextStylerST80 new - classOrMetaClass: self selectedClassOrMetaClass; - styledTextFor: source asText. - iconHelp := (self messageIconHelpAt: anIndex) ifNotEmpty: [:t | - t , Character cr, Character cr]. - ^ iconHelp asText - append: formatted; - yourself!
Item was added: + ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- + messageHelpFor: aSelector + "Show the first n lines of the sources code of the message behind aSelector." + + | source formatted iconHelp | + Preferences balloonHelpInMessageLists ifFalse: [^ nil]. + + source := (self selectedClassOrMetaClass >> aSelector) getSource. + source lineCount > 5 ifTrue: [ + | sourceLines | + sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. + sourceLines add: ' [...]'. + source := sourceLines joinSeparatedBy: Character cr]. + + formatted := SHTextStylerST80 new + classOrMetaClass: self selectedClassOrMetaClass; + styledTextFor: source asText. + iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | + t , Character cr, Character cr]. + ^ iconHelp asText + append: formatted; + yourself!
Item was changed: ----- Method: Browser>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex
+ ^ self messageIconFor: (self messageList at: anIndex)! - self class showMessageIcons - ifFalse: [^ nil]. - - ^ ToolIcons iconNamed: (ToolIcons - iconForClass: self selectedClassOrMetaClass - selector: (self messageList at: anIndex))!
Item was added: + ----- Method: Browser>>messageIconFor: (in category 'message list') ----- + messageIconFor: aSelector + + self class showMessageIcons ifFalse: [^ nil]. + + ^ ToolIcons iconNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector)!
Item was removed: - ----- Method: Browser>>messageIconHelpAt: (in category 'message list') ----- - messageIconHelpAt: anIndex - - self class showMessageIcons ifFalse: [^ String empty]. - - ^ ToolIconHelp iconHelpNamed: (ToolIcons - iconForClass: self selectedClassOrMetaClass - selector: (self messageList at: anIndex))!
Item was added: + ----- Method: Browser>>messageIconHelpFor: (in category 'message list') ----- + messageIconHelpFor: aSelector + + self class showMessageIcons ifFalse: [^ String empty]. + + ^ ToolIconHelp iconHelpNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector)!
Item was changed: ----- Method: Browser>>selectedMessageName: (in category 'message list') ----- selectedMessageName: aSelector "Make the given selector be the selected message name"
| anIndex | anIndex := self messageList indexOf: aSelector. anIndex > 0 ifTrue: + [self messageListIndex: anIndex]. + self changed: #selectedMessageName. "inform interested parties"! - [self messageListIndex: anIndex]!