diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 587f9e3..f6a5e02 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -98,6 +98,22 @@ GrafoscopioBrowser class >> messageAbout [ 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' } GrafoscopioBrowser class >> messageNotImplementedYet [ "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'. "aNode tagAs: (tagsAvailable at: selection)" ] - ifTrue: [self messageNoTagsAvailable]. + ifTrue: [self messageNoRecentDocuments]. "browser update". @@ -188,6 +204,7 @@ GrafoscopioBrowser class >> startDockingBar [ launchMenu := MenuMorph new. launchMenu 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 de ejemplo' target: GrafoscopioBrowser selector: #messageNotImplementedYet; add: 'Ejemplos de visualizaciones en Roassal' target: (RTExampleBrowser new) selector: #open;