diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index ffe7e84..dee58fe 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -611,17 +611,19 @@ GrafoscopioBrowser >> defineRemoteRepository [ ] { #category : #persistence } -GrafoscopioBrowser >> enableRepository [ +GrafoscopioBrowser >> enableLocalRepository [ "Just a temporary message to enable working with fossil on a specific repository. This should be generalized" - | repositoryLocalPath repositoryRemotePath | - (FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion') ensureCreateDirectory. - repositoryLocalPath := (FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion') fullName. - repositoryRemotePath := 'http://mutabit.com/deltas/repos.fossil/soliedu'. - OSProcess command: 'cd ', repositoryLocalPath,'; ', - fossil, ' clone ', repositoryRemotePath, ' soliedu.fossil; ', - fossil, ' open ', repositoryLocalPath, '/soliedu.fossil ;', - ' echo "fossil repo OK"'. + | fileStream | + + fileStream := UITheme builder + fileOpen: 'Coloque la ruta al repositorio del proyecto (.fossil)' + extensions: #('fossil'). + fileStream isNil ifTrue: [ ^nil ]. + localRepository := fileStream name asFileReference. + OSProcess command: + 'cd ', localRepository parent fullName,';', + 'exec ', fossil, ' open ', localRepository fullName. ] { #category : #persistence } @@ -1178,7 +1180,7 @@ GrafoscopioBrowser >> treeOn: constructor [ act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas'; "For projects" - act: [self messageNotImplementedYet "enableRepository"] entitled: 'Activar' categorized: 'Proyecto'; + act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto'; act: [self messageNotImplementedYet "addFileToRepository"] entitled: 'Agregar archivo' categorized: 'Proyecto'; act: [self messageNotImplementedYet] entitled: 'Eliminar archivo' categorized: 'Proyecto'; act: [self messageNotImplementedYet "repositoryCommit"] entitled: 'Enviar al histórico' categorized: 'Proyecto';