Starting open from file in main interface.
This commit is contained in:
parent
9920c8a1a1
commit
a843bed36e
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user