New launchers and updatable docking bar.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-09 18:36:52 +00:00
parent 2cdfabf061
commit 4d4aaf8705
1 changed files with 40 additions and 29 deletions

View File

@ -27,6 +27,7 @@ Class {
],
#classVars : [
'DefaultUbakyeBrowser',
'dockingBar',
'fossil',
'pandoc'
],
@ -126,20 +127,21 @@ GrafoscopioBrowser class >> startDockingBar [
Some of the functionalities implemented now in the grafoscopio interface for document trees should be moved here, like the ones
related with help, external tools and grafoscopio updates and about"
| dockingBar launchMenu helpMenu updateMenu |
"World deleteDockingBars."
| launchMenu helpMenu updateMenu |
launchMenu := MenuMorph new.
launchMenu
add: 'Documento interactivo nuevo' target: GrafoscopioBrowser action: #open;
add: 'Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet.
add: 'Arbol/Documento interactivo nuevo' target: GrafoscopioBrowser action: #open;
add: 'Arboles/Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Arboles/Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Ejemplos de visualizaciones en Roassal' target: (RTExampleBrowser new) action: #open;
add: 'Playground' target: (Smalltalk tools) action: #openWorkspace.
updateMenu := MenuMorph new.
updateMenu
add: 'Documentación' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Grafoscopio' target: GrafoscopioBrowser action: #updateGrafoscopio;
add: 'Interface Gráfica' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Interface Gráfica' target: GrafoscopioBrowser action: #updateUI;
add: 'Prerrequisitos' target: GrafoscopioBrowser action: #updatePrerrequisites;
add: 'Herramientas externas' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Ruta a pandoc' target: GrafoscopioBrowser action: #configurePandoc;
@ -148,9 +150,9 @@ GrafoscopioBrowser class >> startDockingBar [
helpMenu := MenuMorph new.
helpMenu
add: 'Abrir ayuda en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf;
add: 'Abrir ayuda en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Abrir ayuda en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Manual en PDF' target: GrafoscopioBrowser action: #launchHelpInPdf;
add: 'Manual en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Manual en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Ir a la documentación en línea' target: GrafoscopioBrowser action: #messageNotImplementedYet;
add: 'Acerca de Grafoscopio' target: GrafoscopioBrowser action: #messageAbout.
@ -190,6 +192,35 @@ GrafoscopioBrowser class >> updatePrerrequisites [
(ConfigurationOfCitezen project latestVersion: #development) load.
]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateSystem [
"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.
Gofer new
smalltalkhubUser: 'Offray' project: 'Grafoscopio';
package: 'Grafoscopio';
load.
]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateUI [
"Updates the User Interface (UI) with new versions of the docking bar or logos where available. Helpful while testing new functionality
that should be expossed to the user via the UI"
dockingBar delete.
self startDockingBar.
]
{ #category : #persistence }
GrafoscopioBrowser >> addFileToRepository [
"Adds a selected file to a defined repository."
@ -1092,23 +1123,3 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self messageNotImplementedYet "repositoryCommit"] entitled: 'Enviar al histórico' categorized: 'Proyecto';
act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto'.
]
{ #category : #'system-support' }
GrafoscopioBrowser >> updateSystem [
"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.
Gofer new
smalltalkhubUser: 'Offray' project: 'Grafoscopio';
package: 'Grafoscopio';
load.
]