[squeak-dev] The Trunk: HelpSystem-Core-mt.119.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Feb 13 13:25:36 UTC 2020
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]!
More information about the Squeak-dev
mailing list
|