diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index fd79597..3f259db 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -12,16 +12,15 @@ Class { #name : #GrafoscopioBrowser, #superclass : #Object, #instVars : [ - 'browser', + '\r\t\t\t\tbrowser', 'explorer', 'mainTree', 'workingFile', - 'fossil', - 'pandoc', + '\r\t\t\t\tfossil', 'localRepository', 'remoteRepository', 'repositoryUser', - 'repositoryPassword' + 'repositoryPassword\r\t\t\t\tpandoc' ], #classVars : [ 'DefaultUbakyeBrowser' @@ -510,11 +509,39 @@ GrafoscopioBrowser >> treeOn: constructor [ act: [self repositoryCommit] entitled: 'Proyecto > Enviar al histórico'; act: [self repositoryCredentials] entitled: 'Proyecto > Acreditarse'; act: [self updateSystem] entitled: 'Grafoscopio > Actualizar'; - act: [:x | x printString inspect] entitled: 'Grafoscopio > Instalar herramientas externas'; + act: [self updateSystem] entitled: 'Grafoscopio > Actualizar prerrequisitos'; + act: [:x | x printString inspect] entitled: 'Grafoscopio > Actualizar herramientas externas'; act: [:x | x printString inspect] entitled: 'Grafoscopio > Acerca de...'. ] +{ #category : #'system-support' } +GrafoscopioBrowser >> updateGrafoscopio [ + "Updates Grafoscopio with new versions of itself take from the source code repository" + + Gofer new + smalltalkhubUser: 'Offray' project: 'Grafoscopio'; + package: 'Grafoscopio'; + load. + +] + +{ #category : #'system-support' } +GrafoscopioBrowser >> updatePrerrequisites [ + "Updates the system with new versions of itself take from the source code repository" + Gofer new + smalltalkhubUser: 'SvenVanCaekenberghe' project: 'STON'; + package: 'STON-Core'; + load. + + Gofer new squeaksource: 'Citezen'; + package: 'ConfigurationOfCitezen'; + load. + (ConfigurationOfCitezen project latestVersion: #development) load. + + +] + { #category : #'system-support' } GrafoscopioBrowser >> updateSystem [ "Updates the system with new versions of itself take from the source code repository" diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st index e2eb518..7a4f18a 100644 --- a/repository/Grafoscopio/GrafoscopioNode.class.st +++ b/repository/Grafoscopio/GrafoscopioNode.class.st @@ -56,7 +56,7 @@ GrafoscopioNode class >> named: aString [ yourself ] -{ #category : #'as yet unclassified' } +{ #category : #'add/remove nodes' } GrafoscopioNode >> addNode: aNode [ "Adds the given node to the receivers collection of children, and sets this object as the parent of the node" @@ -68,7 +68,7 @@ GrafoscopioNode >> addNode: aNode [ ] -{ #category : #'as yet unclassified' } +{ #category : #'add/remove nodes' } GrafoscopioNode >> addNodeAfter [ "Adds a generic node after the given node so they become slibings of the same parent" | genericNode | @@ -445,7 +445,7 @@ GrafoscopioNode >> returnConfig [ ^configDict ] -{ #category : #'as yet unclassified' } +{ #category : #'add/remove nodes' } GrafoscopioNode >> visitedGoTo: aCollection [ "Stores the current node in a collection and recursively stores its children"