From a73dbf31105ad03bd4f1fb244441956d4b078825 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sat, 11 Jul 2015 15:32:15 +0000 Subject: [PATCH] Repositories: Preliminary support for local repositories with graphical interface for commits. --- repository/Grafoscopio/GrafoscopioBrowser.class.st | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index ed5ddbe..741f6aa 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -721,9 +721,9 @@ GrafoscopioBrowser >> commitToRepository [ ifTrue: [ OSProcess command: 'cd ', (mainTree metadata at: 'localRepository') asFileReference parent fullName, '; ', - fossil, ' commit -m "', commitMessage, '"; ', + fossil, ' commit --no-warnings -m "', commitMessage, '"; ', 'echo "commit sended to the repository"'. - self inform: 'Archivo adicionado al repositorio'] + self inform: 'Histórico del proyecto sincronizado'] ] { #category : #'persistance / repositories' } @@ -734,7 +734,13 @@ GrafoscopioBrowser >> commitToRepositoryDebug [ textEntry: 'Ingrese el mensaje asociado a este envío al historial' title: 'Mensaje para el historial'. commitMessage isNil ifTrue: [ ^nil ]. - self inform: (mainTree metadata at: 'localRepository') asString + (mainTree metadata at: 'localRepository') notNil + ifTrue: [ + OSProcess command: + 'cd ', (mainTree metadata at: 'localRepository') asFileReference parent fullName, '; ', + fossil, ' commit -m "', commitMessage, '"; ', + 'echo "commit sended to the repository"'. + self inform: fossil] ] { #category : #'system-support' } @@ -1418,7 +1424,7 @@ GrafoscopioBrowser >> treeOn: constructor [ act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto'; act: [self addFileToRepository] entitled: 'Agregar archivo...' categorized: 'Proyecto'; act: [self messageNotImplementedYet] entitled: 'Eliminar archivo...' categorized: 'Proyecto'; - act: [self commitToRepositoryDebug] entitled: 'Enviar al histórico' categorized: 'Proyecto'; + act: [self commitToRepository] entitled: 'Enviar al histórico' categorized: 'Proyecto'; act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto'. ]