The Trunk: Tools-topa.676.mcz

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]!