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

Modular updates in menu

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,16 +12,15 @@ Class {
#name : #GrafoscopioBrowser, #name : #GrafoscopioBrowser,
#superclass : #Object, #superclass : #Object,
#instVars : [ #instVars : [
'browser', '\r\t\t\t\tbrowser',
'explorer', 'explorer',
'mainTree', 'mainTree',
'workingFile', 'workingFile',
'fossil', '\r\t\t\t\tfossil',
'pandoc',
'localRepository', 'localRepository',
'remoteRepository', 'remoteRepository',
'repositoryUser', 'repositoryUser',
'repositoryPassword' 'repositoryPassword\r\t\t\t\tpandoc'
], ],
#classVars : [ #classVars : [
'DefaultUbakyeBrowser' 'DefaultUbakyeBrowser'
@ -510,11 +509,39 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self repositoryCommit] entitled: 'Proyecto > Enviar al histórico'; act: [self repositoryCommit] entitled: 'Proyecto > Enviar al histórico';
act: [self repositoryCredentials] entitled: 'Proyecto > Acreditarse'; act: [self repositoryCredentials] entitled: 'Proyecto > Acreditarse';
act: [self updateSystem] entitled: 'Grafoscopio > Actualizar'; 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...'. 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' } { #category : #'system-support' }
GrafoscopioBrowser >> updateSystem [ GrafoscopioBrowser >> updateSystem [
"Updates the system with new versions of itself take from the source code repository" "Updates the system with new versions of itself take from the source code repository"

6
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -56,7 +56,7 @@ GrafoscopioNode class >> named: aString [
yourself yourself
] ]
{ #category : #'as yet unclassified' } { #category : #'add/remove nodes' }
GrafoscopioNode >> addNode: aNode [ GrafoscopioNode >> addNode: aNode [
"Adds the given node to the receivers collection of children, and sets this object as the parent "Adds the given node to the receivers collection of children, and sets this object as the parent
of the node" of the node"
@ -68,7 +68,7 @@ GrafoscopioNode >> addNode: aNode [
] ]
{ #category : #'as yet unclassified' } { #category : #'add/remove nodes' }
GrafoscopioNode >> addNodeAfter [ GrafoscopioNode >> addNodeAfter [
"Adds a generic node after the given node so they become slibings of the same parent" "Adds a generic node after the given node so they become slibings of the same parent"
| genericNode | | genericNode |
@ -445,7 +445,7 @@ GrafoscopioNode >> returnConfig [
^configDict ^configDict
] ]
{ #category : #'as yet unclassified' } { #category : #'add/remove nodes' }
GrafoscopioNode >> visitedGoTo: aCollection [ GrafoscopioNode >> visitedGoTo: aCollection [
"Stores the current node in a collection and recursively stores its children" "Stores the current node in a collection and recursively stores its children"