Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Documentation: Option menu for opening only the tutorial.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-09-26 14:18:48 +00:00
parent 4895f003d6
commit 68f233aa7a
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -238,6 +238,7 @@ GrafoscopioBrowser class >> startDockingBar [
helpMenu := MenuMorph new. helpMenu := MenuMorph new.
helpMenu helpMenu
add: 'Manual en grafoscopio' target: (GrafoscopioBrowser new) selector: #openTutorialInGrafoscopio;
add: 'Manual en PDF' target: GrafoscopioBrowser selector: #openHelpInPdf; add: 'Manual en PDF' target: GrafoscopioBrowser selector: #openHelpInPdf;
add: 'Manual en HTML' target: GrafoscopioBrowser selector: #openHelpInHtml; add: 'Manual en HTML' target: GrafoscopioBrowser selector: #openHelpInHtml;
add: 'Manual en grafoscopio' target: (GrafoscopioBrowser new) selector: #openHelpInGrafoscopio; 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 } { #category : #persistence }
GrafoscopioBrowser >> openWorking [ GrafoscopioBrowser >> openWorking [
"Opens a new browser with the last working tree" "Opens a new browser with the last working tree"