diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 1f14466..4c33fce 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/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 messageAbout] entitled: 'Acerca de...' categorized: 'Grafoscopio'. - + act: [self updatePrerrequisites] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio'. ] { #category : #'system-support' }