diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 62afc37..406a1c5 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -238,6 +238,7 @@ GrafoscopioBrowser class >> startDockingBar [ helpMenu := MenuMorph new. helpMenu + add: 'Manual en grafoscopio' target: (GrafoscopioBrowser new) selector: #openTutorialInGrafoscopio; add: 'Manual en PDF' target: GrafoscopioBrowser selector: #openHelpInPdf; add: 'Manual en HTML' target: GrafoscopioBrowser selector: #openHelpInHtml; add: 'Manual en grafoscopio' target: (GrafoscopioBrowser new) selector: #openHelpInGrafoscopio; @@ -1176,6 +1177,22 @@ GrafoscopioBrowser >> openLast [ ] +{ #category : #persistence } +GrafoscopioBrowser >> openTutorialInGrafoscopio [ +"Opens the help tree from a file" + + | currentChildren | + GrafoscopioBrowser configureSettings. + workingFile := (FileSystem disk workingDirectory / 'Docs' / 'Es' / 'Tutoriales' / 'tutorial.ston') asFileReference. + currentChildren := (STON fromString: workingFile contents). + self buildBrowserNamed: workingFile basenameWithIndicator. + mainTree := GrafoscopioNode new + header: 'Arbol principal'; + level: 0. + mainTree children: currentChildren. + browser openOn: mainTree children. +] + { #category : #persistence } GrafoscopioBrowser >> openWorking [ "Opens a new browser with the last working tree"