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@0 corner: 0.3@1) offsets: (0@ (Preferences standardDefaultTextFont height * 2) corner: 0@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]!
packages@lists.squeakfoundation.org