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.!
packages@lists.squeakfoundation.org