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

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

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

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

@ -28,7 +28,6 @@ GrafoscopioDocumentation class >> current [
add: 'Docs/En/dev-notes.ston'. add: 'Docs/En/dev-notes.ston'.
gfcDocumentation localPlace. gfcDocumentation localPlace.
^ gfcDocumentation ^ gfcDocumentation
] ]
{ #category : #updating } { #category : #updating }
@ -58,8 +57,8 @@ GrafoscopioDocumentation class >> isUpdated [
{ #category : #updating } { #category : #updating }
GrafoscopioDocumentation class >> isUpdatedFor: relativeFilePath [ GrafoscopioDocumentation class >> isUpdatedFor: relativeFilePath [
"I compare if the local and remote copies of a relativeFilePath are updated for the current documentation and return "I compare if the local and remote copies of a relativeFilePath are updated for the current
true if they are and false in any other case" documentation and return true if they are and false in any other case"
| localFile | | localFile |
localFile := self current localPlace / relativeFilePath. localFile := self current localPlace / relativeFilePath.
localFile exists 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 } { #category : #accessing }
GrafoscopioDocumentation >> documents [ GrafoscopioDocumentation >> documents [
^ documents ifNil: [ documents := OrderedCollection new ] ^ documents ifNil: [ documents := OrderedCollection new ]
@ -96,7 +100,7 @@ GrafoscopioDocumentation >> documents: anObject [
{ #category : #accessing } { #category : #accessing }
GrafoscopioDocumentation >> localPlace [ GrafoscopioDocumentation >> localPlace [
^ localPlace ifNil: [ ^ localPlace ifNil: [
localPlace := FileLocator documents asFileReference / 'Grafoscopio'. localPlace := FileLocator workingDirectory asFileReference / 'Grafoscopio'.
self localPlace exists ifFalse: [ self localPlace ensureCreateDirectory ] ]. self localPlace exists ifFalse: [ self localPlace ensureCreateDirectory ] ].
] ]

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

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

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

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