Synchronizing before testing installation in other image.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-07-06 21:26:44 +00:00
parent dc6f413cb6
commit 897e6476ce
3 changed files with 55 additions and 39 deletions

View File

@ -431,11 +431,11 @@ GrafoscopioDockingBar class >> start [
helpMenu := MenuMorph new.
helpMenu
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: (GrafoscopioDocs new) selector: #openDevNotes;
add: 'Tutorial (Spanish)' target: [GrafoscopioNotebook open: GrafoscopioDocs tutorial] selector: #value;
add: 'Manual' target: [ GrafoscopioNotebook open: GrafoscopioDocs manual ] selector: #value;
add: 'Manual (PDF)' target: GrafoscopioDocs selector: #openPDFManual;
add: 'Dataviz' target: [ GrafoscopioNotebook open: DatavizDocs introNotebook ] selector: #value ;
add: 'Dev''s notes' target: [GrafoscopioNotebook open: GrafoscopioDocs devNotes ] selector: #value;
add: 'About Grafoscopio' target: self selector: #messageAbout.
dockingBar := DockingBarMorph new.
@ -584,14 +584,14 @@ GrafoscopioDockingBar class >> updateRecentNotebooksWith: aFileReference [
{ #category : #updating }
GrafoscopioDockingBar class >> updateSystem [
| tmp1 tmp2 |
| tmp1 |
tmp1 := UIManager default
question: 'Do you wish to update all Grafoscopio and its co-dependencies ?'
title: 'Grafoscopio update'.
tmp1
ifNotNil: [ tmp1
ifTrue: [ tmp2 := self.
tmp2
ifTrue: [
self
updateGrafoscopio;
updateDataviz.
GrafoscopioDocumentation updateAll.

View File

@ -7,6 +7,41 @@ Class {
#category : #Grafoscopio
}
{ #category : #operation }
GrafoscopioDocs class >> devNotes [
"I'm just an alias to ease the operation. I need to know wich is the index of the notebook
I want to return, as defined on instance initialize method"
| docs |
docs := self newDefault.
^ (docs localPlace fullName, '/', (docs documents at: 3)) asFileReference.
]
{ #category : #operation }
GrafoscopioDocs class >> manual [
"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 method."
| docs |
docs := self newDefault.
^ (docs localPlace fullName, '/', (docs documents at: 2)) asFileReference.
]
{ #category : #operation }
GrafoscopioDocs class >> openPDFManual [
"I open the documentation in PDF format."
| pdfManual |
pdfManual := self newDefault documents at: 4.
WebBrowser openOn: (self localPlace / pdfManual) fullName.
]
{ #category : #operation }
GrafoscopioDocs class >> tutorial [
"I'm just an alias to ease the operation. I need to know wich is the index of the notebook
I want to return, as defined on instance initialize method"
| docs |
docs := self newDefault.
^ (docs localPlace fullName, '/', (docs documents at: 1)) asFileReference.
]
{ #category : #initialization }
GrafoscopioDocs >> initialize [
"I model the important documents that belong to the Grafoscopio documentation.
@ -23,31 +58,3 @@ GrafoscopioDocs >> initialize [
add: 'Docs/En/dev-notes.ston';
add: 'Docs/En/Books/Manual/manual.pdf'.
]
{ #category : #operation }
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 method."
self openNotebookAt: 3
]
{ #category : #operation }
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 method."
self openNotebookAt: 2
]
{ #category : #operation }
GrafoscopioDocs >> openPDFManual [
"I open the documentation in PDF format."
| pdfManual |
pdfManual := self documents at: 4.
WebBrowser openOn: (self localPlace / pdfManual) fullName.
]
{ #category : #operation }
GrafoscopioDocs >> openTutorial [
"I open the proper notebook in the adecuate documentation."
self openNotebookAt: 1
]

View File

@ -47,6 +47,16 @@ GrafoscopioNotebook class >> defaultSpec [
bc add: #body; add: #links height: self toolbarHeight ]]]
]
{ #category : #'as yet unclassified' }
GrafoscopioNotebook class >> newDefault [
^ self new.
]
{ #category : #'instance creation' }
GrafoscopioNotebook class >> open: aFileReference [
self newDefault openFromFile: aFileReference
]
{ #category : #'editing nodes' }
GrafoscopioNotebook >> addNode [
| addedNode |
@ -416,10 +426,9 @@ GrafoscopioNotebook >> openDefault [
]
{ #category : #persistence }
GrafoscopioNotebook >> openFromFile: aFileName [
"I open a notebook from a file named aFileName containing a grafoscopio tree"
GrafoscopioNotebook >> openFromFile: aFileReference [
self workingFile: aFileName.
self workingFile: aFileReference.
self notebook: ((STON fromString: self workingFile contents) at: 1) parent.
self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.
self notebookContent: self notebook.