[squeak-dev] The Trunk: HelpSystem-Core-mt.82.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 17 16:48:55 UTC 2015


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

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

Name: HelpSystem-Core-mt.82
Author: mt
Time: 17 November 2015, 5:48:49.451 pm
UUID: f3eff79c-e8f2-45a0-bb74-8503bcc4436d
Ancestors: HelpSystem-Core-mt.81

Adds the possibility to show a specific topic when opening the help browser. Open the fest topic that is not empty by default (left-deep tree search).

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

Item was changed:
  ----- Method: HelpBrowser class>>open (in category 'instance creation') -----
  open
+ 
+ 	| window |
+ 	window := self openOn: CustomHelp.
+ 	window model showFirstTopic.
+ 	^ window!
- 	^self openOn: CustomHelp!

Item was added:
+ ----- Method: HelpBrowser>>detect:ifFound: (in category 'enumeration') -----
+ detect: block ifFound: foundBlock
+ 
+ 	self do: [:topic :path | (block value: topic)
+ 		ifTrue: [foundBlock cull: topic cull: path. ^ topic]].!

Item was added:
+ ----- Method: HelpBrowser>>do: (in category 'enumeration') -----
+ do: block
+ 
+ 	self do: block in: self toplevelTopics path: #().!

Item was added:
+ ----- Method: HelpBrowser>>do:in:path: (in category 'enumeration') -----
+ do: block in: topics path: path
+ 
+ 	topics do: [:topic |
+ 		block cull: topic cull: path.
+ 	
+ 		topic hasSubtopics ifTrue: [
+ 			self do: block in: topic subtopics path: path, {topic}]].!

Item was added:
+ ----- Method: HelpBrowser>>showFirstTopic (in category 'actions') -----
+ showFirstTopic
+ 	"Shows the first topic that has contents."
+ 	
+ 	self showTopicThat: [:topic | topic contents notEmpty].!

Item was added:
+ ----- Method: HelpBrowser>>showTopicThat: (in category 'actions') -----
+ showTopicThat: block
+ 
+ 	self
+ 		detect: [:topic | block value: topic]
+ 		ifFound: [:topic :path | self currentTopicPath: path, {topic}].!



More information about the Squeak-dev mailing list