Grafoscopio
/
Grafoscopio
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Documentation: Option menu for opening only the tutorial.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-09-26 14:18:48 +00:00 committed by SantiagoBragagnolo
parent 155bf9e3a5
commit 606b01cd78
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -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"