Starting open from file in main interface.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-25 19:52:18 +00:00
parent 9920c8a1a1
commit a843bed36e

View File

@ -98,6 +98,22 @@ GrafoscopioBrowser class >> messageAbout [
title: 'About Grafoscopio'. title: 'About Grafoscopio'.
] ]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> messageNoRecentDocuments [
"Shows that a feature is not implemeted and point to further documentation on the web"
UIManager default abort:
'No hay documentos recientes.',
(String with: Character cr),
'Abra un documento usando el menú:',
(String with: Character cr),
(String with: Character cr),
'"Lanzar > Documento interactivo desde archivo"',
(String with: Character cr),
(String with: Character cr)
title: 'No hay documentos recientes'.
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioBrowser class >> messageNotImplementedYet [ GrafoscopioBrowser class >> messageNotImplementedYet [
"Shows that a feature is not implemeted and point to further documentation on the web" "Shows that a feature is not implemeted and point to further documentation on the web"
@ -129,7 +145,7 @@ GrafoscopioBrowser class >> openFromRecentlyUsed [
selection := UIManager default chooseFrom: recentTrees title: 'Elija una documento'. selection := UIManager default chooseFrom: recentTrees title: 'Elija una documento'.
"aNode tagAs: (tagsAvailable at: selection)" "aNode tagAs: (tagsAvailable at: selection)"
] ]
ifTrue: [self messageNoTagsAvailable]. ifTrue: [self messageNoRecentDocuments].
"browser update". "browser update".
@ -188,6 +204,7 @@ GrafoscopioBrowser class >> startDockingBar [
launchMenu := MenuMorph new. launchMenu := MenuMorph new.
launchMenu launchMenu
add: 'Documento interactivo nuevo' target: GrafoscopioBrowser selector: #open; add: 'Documento interactivo nuevo' target: GrafoscopioBrowser selector: #open;
add: 'Documento interactivo desde archivo' target: (GrafoscopioBrowser new) selector: #openFromFileSelector;
add: 'Documentos interactivos recientes' target: GrafoscopioBrowser selector: #openFromRecentlyUsed; add: 'Documentos interactivos recientes' target: GrafoscopioBrowser selector: #openFromRecentlyUsed;
add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser selector: #messageNotImplementedYet; add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser selector: #messageNotImplementedYet;
add: 'Ejemplos de visualizaciones en Roassal' target: (RTExampleBrowser new) selector: #open; add: 'Ejemplos de visualizaciones en Roassal' target: (RTExampleBrowser new) selector: #open;