Organizing menus.

Co-authored-by: Ivan Pulido <ijpulidos@riseup.net>

repository/Grafoscopio/GrafoscopioBrowser.class.st

@@ -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 updatePrerrequisites] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio'.
-		act: [self messageAbout] entitled: 'Acerca de...' categorized: 'Grafoscopio'.
-
 ]
 
 { #category : #'system-support' }