Organizing menus.

Co-authored-by: Ivan Pulido <ijpulidos@riseup.net>
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-07 19:02:47 +00:00
parent bba3837431
commit 3466488794
1 changed files with 45 additions and 35 deletions

View File

@ -33,6 +33,49 @@ Class {
#category : #'Grafoscopio-UI'
}
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> launchHelpInPdf [
"Launches the help manual in PDF format in an external viewer."
| pdfHelpFileLocation |
pdfHelpFileLocation := (FileSystem disk workingDirectory parent / 'Docs/Es/Manual/manual-grafoscopio.pdf') fullName.
Smalltalk platform name = 'unix'
ifTrue: [
OSProcess command: 'xdg-open ', pdfHelpFileLocation.
].
Smalltalk platform name = 'Win32'
ifTrue: [
OSProcess command: 'explorer ', pdfHelpFileLocation.
].
]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> 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 : #'as yet unclassified' }
GrafoscopioBrowser class >> messageNotImplementedYet [
"Shows that a feature is not implemeted and point to further documentation on the web"
@ -73,6 +116,7 @@ GrafoscopioBrowser class >> startDockingBar [
helpMenu add: 'Abrir ayuda en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Ir a la documentación en línea' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Acerca de Grafoscopio' target: GrafoscopioBrowser action: #messageAbout.
dockingBar := DockingBarMorph new.
dockingBar add: 'Lanzar' subMenu: launchMenu.
@ -547,33 +591,6 @@ 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 >> messageNoTagsAvailable [
"Shows that there is no tags available and the procedure to add some tags"
@ -1037,11 +1054,6 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self messageNotImplementedYet "repositoryCommit"] entitled: 'Enviar al histórico' categorized: 'Proyecto';
act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto';
"For help"
act: [self messageNotImplementedYet] entitled: 'Ver como html en línea' categorized: 'Ayuda';
act: [self messageNotImplementedYet] entitled: 'Ver como html fuera línea' categorized: 'Ayuda';
act: [self messageNotImplementedYet] entitled: 'Ver como árbol en grafoscopio' categorized: 'Ayuda';
"For external tools"
act: [self messageNotImplementedYet] entitled: 'Actualizar' categorized: 'Herramientas externas';
act: [self configurePandoc] entitled: 'Definir ruta a pandoc' categorized: 'Herramientas externas';
@ -1049,9 +1061,7 @@ GrafoscopioBrowser >> treeOn: constructor [
"For grafoscopio"
act: [self updateGrafoscopio] entitled: 'Actualizar' categorized: 'Grafoscopio';
act: [self updatePrerrequisites] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio';
act: [self messageAbout] entitled: 'Acerca de...' categorized: 'Grafoscopio'.
act: [self updatePrerrequisites] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio'.
]
{ #category : #'system-support' }