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

Temporal workaround with a fixed remote repository for this week workshop. Should be changes SOON! Consider it an alpha feature.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-07-11 16:42:41 +00:00
parent a73dbf3110
commit 000476d2b2
1 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -711,7 +711,9 @@ browser
{ #category : #'persistance / repositories' } { #category : #'persistance / repositories' }
GrafoscopioBrowser >> commitToRepository [ GrafoscopioBrowser >> commitToRepository [
"Commits to the associated repository for the current document tree" "Commits to the associated repository for the current document tree.
REFACTORING NOTE: A more interactive use of external OS process, using pipeable os process should be done
allowing to capture console message."
| commitMessage | | commitMessage |
commitMessage := UIManager default commitMessage := UIManager default
textEntry: 'Ingrese el mensaje asociado a este envío al historial' textEntry: 'Ingrese el mensaje asociado a este envío al historial'
@ -726,23 +728,6 @@ GrafoscopioBrowser >> commitToRepository [
self inform: 'Histórico del proyecto sincronizado'] self inform: 'Histórico del proyecto sincronizado']
] ]
{ #category : #'persistance / repositories' }
GrafoscopioBrowser >> commitToRepositoryDebug [
"Commits to the associated repository for the current document tree"
| commitMessage |
commitMessage := UIManager default
textEntry: 'Ingrese el mensaje asociado a este envío al historial'
title: 'Mensaje para el historial'.
commitMessage isNil ifTrue: [ ^nil ].
(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' } { #category : #'system-support' }
GrafoscopioBrowser >> configureInitialTags [ GrafoscopioBrowser >> configureInitialTags [
"Configures a list of predefined tags available to use. More tags should be added from a repository. "Configures a list of predefined tags available to use. More tags should be added from a repository.
@ -794,8 +779,19 @@ GrafoscopioBrowser >> customKeys [
GrafoscopioBrowser >> defineRemoteRepository [ GrafoscopioBrowser >> defineRemoteRepository [
"Defines a remote fossil repository from an url" "Defines a remote fossil repository from an url"
"| temporary variable names | | remoteRepoUrl localRepoDirectory |
statements" "remoteRepoUrl := UIManager default
textEntry: 'Ingrese la dirección web del repositorio remoto'
title: 'Dirección web del repositorio'."
remoteRepoUrl := 'http://hackbo.co/deltas/repos.fossil/reco2/'.
localRepoDirectory := FileLocator documents asFileReference / 'ReCo2'.
localRepoDirectory ensureCreateDirectory.
OS2Process command:
'cd ', localRepoDirectory asFileReference fullName, '; ',
fossil, ' clone ', remoteRepoUrl, ' reco2.fossil; ',
fossil, ' open reco2.fossil'.
'echo "commit sended to the repository"'.
self inform: 'Repositorio remoto definido y activado'.
] ]
{ #category : #'persistance / repositories' } { #category : #'persistance / repositories' }
@ -1421,6 +1417,7 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas'; act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas';
"For projects" "For projects"
act: [self defineRemoteRepository] entitled: 'Activar repositorio remoto...' categorized: 'Proyecto';
act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto'; act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto';
act: [self addFileToRepository] entitled: 'Agregar archivo...' categorized: 'Proyecto'; act: [self addFileToRepository] entitled: 'Agregar archivo...' categorized: 'Proyecto';
act: [self messageNotImplementedYet] entitled: 'Eliminar archivo...' categorized: 'Proyecto'; act: [self messageNotImplementedYet] entitled: 'Eliminar archivo...' categorized: 'Proyecto';