[squeak-dev] The Trunk: HelpSystem-Core-bf.101.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Nov 25 13:01:36 UTC 2017


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



More information about the Squeak-dev mailing list