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]