Modular updates in menu

This commit is contained in:
Offray Vladimir Luna Cárdenas 2014-11-15 16:21:15 +00:00
parent 34447e2ae4
commit 24d3a70390
2 changed files with 35 additions and 8 deletions

View File

@ -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"

View File

@ -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"