The Trunk: HelpSystem-Core-tpr.100.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: HelpSystem-Core-tpr.100.mcz

commits-2
tim Rowledge uploaded a new version of HelpSystem-Core to project The Trunk:
http://source.squeak.org/trunk/HelpSystem-Core-tpr.100.mcz

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

Name: HelpSystem-Core-tpr.100
Author: tpr
Time: 28 October 2017, 11:05:17.96849 am
UUID: 4018391a-689c-42b4-91a3-ad4ec69ce3b0
Ancestors: HelpSystem-Core-ul.99

Changes as part of promoting #buildWindowWith* to Model

=============== Diff against HelpSystem-Core-ul.99 ===============

Item was removed:
- ----- Method: HelpBrowser>>buildWindowWith: (in category 'toolbuilder') -----
- buildWindowWith: builder
-
- ^ builder pluggableWindowSpec new
- model: self;
- children: OrderedCollection new;
- label: #label;
- yourself!

Item was removed:
- ----- Method: HelpBrowser>>label (in category 'accessing - ui') -----
- label
-
- ^ self rootTopic
- ifNil: ['Help Browser']
- ifNotNil: [:topic | topic title]!

Item was changed:
  ----- Method: HelpBrowser>>rootTopic: (in category 'accessing') -----
  rootTopic: aHelpTopic
 
  rootTopic := aHelpTopic asHelpTopic.
 
  self toplevelTopics: ((self rootTopic ifNil: [#()] ifNotNil: #subtopics) sorted, {self searchTopic}).
+ self changed: #windowTitle.!
- self changed: #label.!

Item was added:
+ ----- Method: HelpBrowser>>windowTitle (in category 'accessing - ui') -----
+ windowTitle
+
+ ^ self rootTopic
+ ifNil: ['Help Browser']
+ ifNotNil: [:topic | topic title]!