Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-mt.119.mcz

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

Name: HelpSystem-Core-mt.119
Author: mt
Time: 13 February 2020, 2:25:35.668714 pm
UUID: df92a1e9-bfbe-584c-83b8-afb5bec801a7
Ancestors: HelpSystem-Core-mt.118

Fixes window title for help browsers to behave like other browsers, i.e., the system (code) browser. Makes window listing more useful. See screenshot.

=============== Diff against HelpSystem-Core-mt.118 ===============

Item was changed:
  ----- Method: HelpBrowser>>buildTreeWith: (in category 'toolbuilder') -----
  buildTreeWith: builder
  
  	^ builder pluggableTreeSpec new
  		model: self;
  		nodeClass: HelpTopicListItemWrapper;
  		roots: #toplevelTopics;
  		getSelected: #currentTopic;
  		setSelected: #currentTopic:;
  		getSelectedPath: #currentTopicPath;
+ 		setSelectedPath: #noteTopicPath:;
  		setSelectedParent: #currentParentTopic:;
  		autoDeselect: false;
  		frame: (LayoutFrame
  			fractions: (0 at 0 corner: 0.3 at 1)
  			offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0 at 0));
  		yourself!

Item was changed:
  ----- Method: HelpBrowser>>currentTopicPath (in category 'accessing') -----
  currentTopicPath
- 	"Only used for dynamic dispatch. Should be nil or empty on manual evaluation. See #topic:."
  
  	^ topicPath ifNil: [#()]!

Item was added:
+ ----- Method: HelpBrowser>>noteTopicPath: (in category 'accessing') -----
+ noteTopicPath: someTopics
+ 	"Keep track of the current topic path as reported by the view through manual selection."
+ 
+ 	topicPath := someTopics.
+ 	self changed: #windowTitle.
+ !

Item was changed:
  ----- Method: HelpBrowser>>windowTitle (in category 'accessing - ui') -----
  windowTitle
  
+ 	^ '{1}: {2}' format: {
+ 		self rootTopic
+ 			ifNil: ['Help Browser' translated]
+ 			ifNotNil: [:topic | topic title].
+ 		(self currentTopicPath collect: [:topic | topic title])
+ 			reversed joinSeparatedBy: ' > '}!
- 	^ self rootTopic
- 		ifNil: ['Help Browser']
- 		ifNotNil: [:topic | topic title]!