Popup windows for messages. Next: implementing tagged nodes.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-01-12 17:16:58 +00:00
parent f5ba3d7bc6
commit f1191bb493

View File

@ -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'.
]