diff --git a/repository/Grafoscopio/GrafoscopioDocumentation.class.st b/repository/Grafoscopio/GrafoscopioDocumentation.class.st index 6199030..eaa9576 100644 --- a/repository/Grafoscopio/GrafoscopioDocumentation.class.st +++ b/repository/Grafoscopio/GrafoscopioDocumentation.class.st @@ -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 ] ]. ] diff --git a/repository/Grafoscopio/GrafoscopioGUI.class.st b/repository/Grafoscopio/GrafoscopioGUI.class.st index 21f46c3..14b70e5 100644 --- a/repository/Grafoscopio/GrafoscopioGUI.class.st +++ b/repository/Grafoscopio/GrafoscopioGUI.class.st @@ -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] ] diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st index 16b498a..49cd2a5 100644 --- a/repository/Grafoscopio/GrafoscopioNotebook.class.st +++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st @@ -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 |