The Trunk: Help-Squeak-Project-mt.119.mcz

[email protected] Tue, 4 Aug 2026 08:09:06 0000
Newsgroups gmane.comp.lang.smalltalk.squeak.general
Message-ID <[email protected]>
Marcel Taeumel uploaded a new version of Help-Squeak-Project to project The Trunk:
http://source.squeak.org/trunk/Help-Squeak-Project-mt.119.mcz

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

Name: Help-Squeak-Project-mt.119
Author: mt
Time: 4 August 2026, 10:09:06.264447 am
UUID: edbfaf04-4012-6b4d-9814-3d4734051483
Ancestors: Help-Squeak-Project-ct.118

Some code clean-up and added commentary for the experimental outline tool.

=============== Diff against Help-Squeak-Project-ct.118 ===============

Item was changed:
  ----- Method: SqueakHelpOutlineTool>>outlineRoots (in category 'accessing') -----
  outlineRoots
  
+ 	| parentTopic topic contents |
- 	| parentTopic topic |
  	outlineRoots ifNotNil: [^ outlineRoots].
  	
+ 	"If we cannot find a selected topic, no need to proceed."
+ 	(topic := self helpBrowser currentTopic) ifNil: [^ outlineRoots := #()].
+ 	
+ 	"If we cannot find the possibly edited content to extract an outline from, skip right here."
+ 	(contents := self editedTopicContents) ifNil: [^ outlineRoots := #()].
+ 	
+ 	self flag: #refactor. "mt: Remove special case for current release notes."
+ 	parentTopic := topic key = #currentReleaseNotes
+ 		ifTrue: [SqueakReleaseNotes]
+ 		ifFalse: [self helpBrowser currentParentTopic].
+ 	
+ 	parentTopic ifNil: [^ outlineRoots := #()].
- 	parentTopic := self helpBrowser currentParentTopic.
- 	topic := self helpBrowser currentTopic.
- 	(parentTopic isNil or: [topic isNil]) ifTrue: [^ outlineRoots := #()].
- 	(parentTopic respondsTo: #outlineRootsFor:in:) ifFalse:
- 		["See ReleaseBuilder class>>#openWelcomeWorkspacesWith:"
- 		topic title asString asLowercase = 'What is New?' asLowercase ifTrue:
- 			[parentTopic := SqueakReleaseNotes]].
  	(parentTopic respondsTo: #outlineRootsFor:in:) ifFalse: [^ outlineRoots := #()].
+ 	
  	^ outlineRoots := parentTopic
  		outlineRootsFor: topic
+ 		in: contents!
- 		in: (self editedTopicContents ifNil: [^ outlineRoots := #()])!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]