The Trunk: HelpSystem-Core-bf.101.mcz

Bert Freudenberg uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-bf.101.mcz

==================== Summary ====================

Name: HelpSystem-Core-bf.101
Author: bf
Time: 25 November 2017, 2:01:27.559892 pm
UUID: 42809126-d9c8-4cdf-8652-c878c4643ced
Ancestors: HelpSystem-Core-tpr.100

Fix MNU when search term is a Text instead of a String

=============== Diff against HelpSystem-Core-tpr.100 ===============

Item was changed:
  ----- Method: HelpBrowser>>searchTerm: (in category 'searching') -----
+ searchTerm: aTextOrString
- searchTerm: aString
  "Spawn a new search topic."
 
+ | topic term |
- | topic |
  self okToChange ifFalse: [^ self].
 
+ term := aTextOrString asString.
  topic := self searchTopic subtopics
+ detect: [:t | t term = term]
- detect: [:t | t term = aString]
  ifNone: [ | newTopic |
  newTopic := SearchTopic new
+ term: term;
- term: aString;
  yourself.
  self searchTopic addSubtopic: newTopic.
  newTopic addDependent: self. "Tell me about your updates."
  newTopic].
 
  "self changed: #searchTerm."
 
  "Select results and expand searches node if necessary."
  self currentTopicPath: {self searchTopic. topic}.
  self assert: self currentTopic == topic.
 
  topic
  topicsToSearch: self toplevelTopics allButLast;
  startSearch.!