Synchronizing before testing installation in other image.

repository/Grafoscopio/GrafoscopioDockingBar.class.st

@@ -431,11 +431,11 @@ GrafoscopioDockingBar class >> start [
 	
 	helpMenu := MenuMorph new.
 	helpMenu 
-		add: 'Tutorial (Spanish)' target: (GrafoscopioDocs new) selector: #openTutorial;
+		add: 'Tutorial (Spanish)' target: [GrafoscopioNotebook open: GrafoscopioDocs tutorial] selector: #value;
-		add: 'Manual' target: (GrafoscopioDocs new) selector: #openManual;
+		add: 'Manual' target: [ GrafoscopioNotebook open: GrafoscopioDocs manual ] selector: #value;
-		add: 'Manual (PDF)' target: (GrafoscopioDocs new) selector: #openPDFManual;
+		add: 'Manual (PDF)' target: GrafoscopioDocs selector: #openPDFManual;
-		add: 'Dataviz' target: (DatavizDocs new) selector: #openIntroNotebook;
+		add: 'Dataviz' target: [ GrafoscopioNotebook open: DatavizDocs introNotebook ] selector: #value ;
-		add: 'Dev''s notes' target: (GrafoscopioDocs new) selector: #openDevNotes;
+		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.
+				ifTrue: [
-					tmp2
+					self
 						updateGrafoscopio;
 						updateDataviz.
 					GrafoscopioDocumentation updateAll.

repository/Grafoscopio/GrafoscopioDocs.class.st

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

repository/Grafoscopio/GrafoscopioNotebook.class.st

@@ -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 [
+GrafoscopioNotebook >> openFromFile: aFileReference [
-"I open a notebook from a file named aFileName containing a grafoscopio tree"
 							
-	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.