Deleting references to GrafoscopioDocumentation in the DockingBar.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-07-06 08:37:54 +00:00
parent 33407ef7dd
commit dc6f413cb6
2 changed files with 24 additions and 38 deletions

View File

@ -431,11 +431,11 @@ GrafoscopioDockingBar class >> start [
helpMenu := MenuMorph new.
helpMenu
add: 'Tutorial (Spanish)' target: GrafoscopioDocumentation selector: #openTutorial;
add: 'Manual' target: GrafoscopioDocumentation selector: #openManual;
add: 'Manual (PDF)' target: GrafoscopioDocumentation selector: #openPDFManual;
add: 'Tutorial (Spanish)' target: (GrafoscopioDocs new) selector: #openTutorial;
add: 'Manual' target: (GrafoscopioDocs new) selector: #openManual;
add: 'Manual (PDF)' target: (GrafoscopioDocs new) selector: #openPDFManual;
add: 'Dataviz' target: (DatavizDocs new) selector: #openIntroNotebook;
add: 'Dev''s notes' target: GrafoscopioDocumentation selector: #openDevNotes;
add: 'Dev''s notes' target: (GrafoscopioDocs new) selector: #openDevNotes;
add: 'About Grafoscopio' target: self selector: #messageAbout.
dockingBar := DockingBarMorph new.

View File

@ -3,65 +3,51 @@ I define the documentation for the Grafoscopio package.
"
Class {
#name : #GrafoscopioDocs,
#superclass : #Object,
#superclass : #GrafoscopioDocumentation,
#category : #Grafoscopio
}
{ #category : #initialization }
GrafoscopioDocs class >> defineDocumentation [
GrafoscopioDocs >> initialize [
"I model the important documents that belong to the Grafoscopio documentation.
When more documents become more mature and usable, I will include them."
| gfcDocumentation |
gfcDocumentation := GrafoscopioDocumentation new.
gfcDocumentation
name: 'grafoscopio';
repository: (FossilRepo new remote: 'http://mutabit.com/repos.fossil/grafoscopio');
localPlace: FileLocator workingDirectory asFileReference /'Grafoscopio'.
gfcDocumentation documents
super initialize.
name := 'grafoscopio'.
repository := (FossilRepo new remote: 'http://mutabit.com/repos.fossil/grafoscopio').
localPlace := FileLocator workingDirectory asFileReference /'Grafoscopio'.
self documents
add: 'Docs/Es/Tutoriales/tutorial.ston';
add: 'Docs/En/Books/Manual/manual.ston';
add: 'Docs/En/dev-notes.ston';
add: 'Docs/En/Books/Manual/manual.pdf'.
^ gfcDocumentation
]
{ #category : #initialization }
GrafoscopioDocs class >> initialize [
self defineDocumentation
]
{ #category : #operation }
GrafoscopioDocs class >> openDevNotes [
GrafoscopioDocs >> openDevNotes [
"I'm just an alias to ease the operation. I need to know wich is the index of the notebook
I want to open, as defined on defineDocumentation method."
| docs |
docs := self defineDocumentation.
docs openNotebookAt: 3
I want to open, as defined on method."
self openNotebookAt: 3
]
{ #category : #operation }
GrafoscopioDocs class >> openManual [
GrafoscopioDocs >> openManual [
"I'm just an alias to ease the operation. I need to know wich is the index of the notebook
I want to open, as defined on defineDocumentation method."
| docs |
docs := self defineDocumentation.
docs openNotebookAt: 2
I want to open, as defined on method."
self openNotebookAt: 2
]
{ #category : #operation }
GrafoscopioDocs class >> openPDFManual [
GrafoscopioDocs >> openPDFManual [
"I open the documentation in PDF format."
| pdfManual docs |
docs := self defineDocumentation.
pdfManual := docs documents at: 4.
WebBrowser openOn: (docs localPlace / pdfManual) fullName.
| pdfManual |
pdfManual := self documents at: 4.
WebBrowser openOn: (self localPlace / pdfManual) fullName.
]
{ #category : #operation }
GrafoscopioDocs class >> openTutorial [
GrafoscopioDocs >> openTutorial [
"I open the proper notebook in the adecuate documentation."
| docs |
docs := self defineDocumentation.
docs openNotebookAt: 1
self openNotebookAt: 1
]