Grafoscopio
/
Grafoscopio
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implementing item 4 of http://forum.world.st/Couple-grafoscopio-notes-tt4929939.html .

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-01-20 19:04:13 +00:00 committed by SantiagoBragagnolo
parent d7891eba18
commit 8f2578d680
3 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Grafoscopio/GrafoscopioDocumentation.class.st
View File

@ -28,7 +28,6 @@ GrafoscopioDocumentation class >> current [
add: 'Docs/En/dev-notes.ston'.
gfcDocumentation localPlace.
^ gfcDocumentation
]
{ #category : #updating }
@ -58,8 +57,8 @@ GrafoscopioDocumentation class >> isUpdated [
{ #category : #updating }
GrafoscopioDocumentation class >> isUpdatedFor: relativeFilePath [
"I compare if the local and remote copies of a relativeFilePath are updated for the current documentation and return
true if they are and false in any other case"
"I compare if the local and remote copies of a relativeFilePath are updated for the current
documentation and return true if they are and false in any other case"
| localFile |
localFile := self current localPlace / relativeFilePath.
localFile exists
@ -83,6 +82,11 @@ GrafoscopioDocumentation class >> update [
]
{ #category : #'as yet unclassified' }
GrafoscopioDocumentation class >> updateDocsPlaceUI [
self current localPlace: (UIManager default chooseDirectory: 'Path to the documents Folder')
]
{ #category : #accessing }
GrafoscopioDocumentation >> documents [
^ documents ifNil: [ documents := OrderedCollection new ]
@ -96,7 +100,7 @@ GrafoscopioDocumentation >> documents: anObject [
{ #category : #accessing }
GrafoscopioDocumentation >> localPlace [
^ localPlace ifNil: [
localPlace := FileLocator documents asFileReference / 'Grafoscopio'.
localPlace := FileLocator workingDirectory asFileReference / 'Grafoscopio'.
self localPlace exists ifFalse: [ self localPlace ensureCreateDirectory ] ].
]

5
src/Grafoscopio/GrafoscopioGUI.class.st
View File

@ -443,6 +443,7 @@ GrafoscopioGUI class >> startDockingBar [
add: 'Grafoscopio' target: self selector: #updateGrafoscopioUI;
add: 'Documentation' target: self selector: #updateDocumentationUI;
add: 'DataViz package' target: self selector: #updateDatavizUI;
add: 'Documents place' target: GrafoscopioDocumentation selector: #updateDocsPlaceUI;
"add: 'Database engine' target: ExternalApp selector: #installSQLite32BitsUI;
add: 'Pandoc path' target: ExternalApp selector: #configurePandoc;
add: 'Fossil path' target: ExternalApp selector: #configureFossil;"
@ -496,8 +497,8 @@ GrafoscopioGUI class >> updateDocumentationUI [
| update |
update := (UIManager default
confirm: '¿Desea actualizar la documentación?'
label: 'Actualizar documentación').
confirm: 'Do you wish to update the documentation?'
label: 'Update documentation').
update ifTrue: [GrafoscopioDocumentation update]
]

6
src/Grafoscopio/GrafoscopioNotebook.class.st
View File

@ -249,7 +249,7 @@ GrafoscopioNotebook >> newWindowMainMenu [
group addItem: [ :item |
item
name: nil;
description: 'Add nodo';
description: 'Add node';
icon: MendaIcons new plusIcon;
action: [ self addNode ] ].
group addItem: [ :item |
@ -261,13 +261,13 @@ GrafoscopioNotebook >> newWindowMainMenu [
group addItem: [ :item |
item
name: nil;
description: 'Move up node';
description: 'Move node up';
icon: MendaIcons new arrowUpIcon;
action: [ self moveNodeBefore ] ].
group addItem: [ :item |
item
name: nil;
description: 'Move down node';
description: 'Move node down';
icon: MendaIcons new arrowDownIcon;
action: [ self moveNodeAfter ] ].
group addItem: [ :item |