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

Deleting references to GrafoscopioDocumentation in the DockingBar.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
repository/Grafoscopio/GrafoscopioDockingBar.class.st
View File

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

54
repository/Grafoscopio/GrafoscopioDocs.class.st
View File

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