Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

File selector UI only adds new files if they're not in the list of recently opened files.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-06-23 19:05:16 +00:00
parent f51a7b639f
commit f38924015d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -215,6 +215,7 @@ GrafoscopioBrowser class >> startDockingBar [
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: 'Documento interactivo desde archivo' target: (GrafoscopioBrowser new) selector: #openFromFileSelector;
add: 'Documento interactivo desde archivo' target: (GrafoscopioBrowser new) selector: #openFromUrl;
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;
@ -949,7 +950,7 @@ GrafoscopioBrowser >> openFromFileSelector [
self buildBrowserNamed: workingFile basenameWithIndicator. self buildBrowserNamed: workingFile basenameWithIndicator.
recentTrees isNil recentTrees isNil
ifTrue:[recentTrees := OrderedCollection new]. ifTrue:[recentTrees := OrderedCollection new].
recentTrees add: workingFile. recentTrees detect: workingFile ifFound: [recentTrees add: workingFile].
mainTree := GrafoscopioNode new mainTree := GrafoscopioNode new
header: 'Arbol principal'; header: 'Arbol principal';
level: 0. level: 0.