diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index d8fc748..3845b6b 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -493,6 +493,47 @@ GrafoscopioBrowser >> installPandoc [ ] +{ #category : #'graphical interface' } +GrafoscopioBrowser >> messageAbout [ + "Shows the author, license, sponsors and main contributors to the project and point to further documentation on the web" + + UIManager default alert: + 'Grafosocpio', + (String with: Character cr), + '(c) Copyright 2014 by Offray Vladimir Luna Cárdenas', + (String with: Character cr), + 'Covered under MIT license.', + (String with: Character cr), + (String with: Character cr), + 'SPONSORS:', + (String with: Character cr), + 'mutabiT | www.mutabit.com ', + (String with: Character cr), + 'Fundación Universitaria Los Libertadores | www.ulibertadores.edu.co ', + (String with: Character cr), + (String with: Character cr), + 'For further details and versions go to:', + (String with: Character cr), + (String with: Character cr), + 'http://mutabit.com/grafoscopio' + + title: 'About Grafoscopio'. +] + +{ #category : #'graphical interface' } +GrafoscopioBrowser >> messageNotImplementedYet [ + "Shows that a feature is not implemeted and point to further documentation on the web" + + UIManager default abort: + 'Esta funcionalidad aún no está implementada!', + (String with: Character cr), + 'Para información sobre futuras versiones, por favor visite:', + (String with: Character cr), + (String with: Character cr), + 'http://mutabit.com/grafoscopio' + title: 'No implementado aún'. +] + { #category : #'graphical interface' } GrafoscopioBrowser >> open [ "Opens a new browser with a default tree and assigns a default draft file for storing it. @@ -947,15 +988,15 @@ GrafoscopioBrowser >> treeOn: constructor [ act: [ ]; entitled: 'Etiquetar > como: Texto';" act: [self enableRepository] entitled: 'Activar' categorized: 'Proyecto'; act: [self addFileToRepository] entitled: 'Agregar archivo' categorized: 'Proyecto'; - act: [:x | x printString inspect] entitled: 'Eliminar archivo' categorized: 'Proyecto'; + act: [self messageNotImplementedYet] entitled: 'Eliminar archivo' categorized: 'Proyecto'; act: [self repositoryCommit] entitled: 'Enviar al histórico' categorized: 'Proyecto'; act: [self repositoryCredentials] entitled: 'Acreditarse' categorized: 'Proyecto'; - act: [self updateSystem] entitled: 'Actualizar' categorized: 'Grafoscopio'; - act: [self updateSystem] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio'; - act: [:x | x printString inspect] entitled: 'Herramientas externas > Actualizar' categorized: 'Grafoscopio'; + act: [self updateGrafoscopio] entitled: 'Actualizar' categorized: 'Grafoscopio'; + act: [self updatePrerrequisites] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio'; + act: [self messageNotImplementedYet] entitled: 'Herramientas externas > Actualizar' categorized: 'Grafoscopio'; act: [self configurePandoc] entitled: 'Herramientas externas > Definir ruta a pandoc' categorized: 'Grafoscopio'; - act: [:x | x printString inspect] entitled: 'Herramientas externas > Definir ruta a fossil' categorized: 'Grafoscopio'; - act: [:x | x printString inspect] entitled: 'Acerca de...' categorized: 'Grafoscopio'. + act: [self messageNotImplementedYet] entitled: 'Herramientas externas > Definir ruta a fossil' categorized: 'Grafoscopio'; + act: [self messageAbout] entitled: 'Acerca de...' categorized: 'Grafoscopio'. ]