<http://forum.world.st/file/t370078/help-browser-window-title.png> 


commits-2 wrote
> 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]!





--
Sent from: http://forum.world.st/Squeak-Dev-f45488.html