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

UI: Support for submenus. Next: Pop-up windows and node tags .

This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-01-12 13:17:26 +00:00
parent 454c582629
commit f5ba3d7bc6
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -252,8 +252,7 @@ browser
{ #category : #'graphical interface' }
GrafoscopioBrowser >> buildBrowserNamed: aName [
"Main method for building the interface for trees and its nodes"
"Main method for building the interface for trees and its nodes. The name of the browser corresponds to the name of the file where tree is stored (or is named 'draft.ston' by default)"
browser := GLMTabulator new
title: aName, ' | Grafoscopio'.
@ -747,7 +746,8 @@ GrafoscopioBrowser >> saveToFile [
markdownFile := (workingFile parent) / (workingFile basenameWithoutExtension, '.markdown').
[ self exportAsSton: mainTree on: writeStream.
self exportAsMarkdown: mainTree on: markdownFile ]
ensure: [ writeStream ifNotNil: #close ]
ensure: [ writeStream ifNotNil: #close ].
browser update.
]
{ #category : #persistence }
@ -931,30 +931,31 @@ GrafoscopioBrowser >> treeOn: constructor [
entitled: 'Save current tree';
"Menu options"
act: [ GrafoscopioBrowser open] entitled: 'Arbol > Nuevo ...';
act: [ GrafoscopioBrowser new openFromFile] entitled: 'Arbol > Abrir/Cargar ...';
act: [self saveToFile] entitled: 'Arbol > Guardar como ...';
act: [self exportAsHtml] entitled: 'Arbol > Exportar como html';
"act: [:x | x printString inspect] entitled: 'Arbol > Definir título';"
act: [ GrafoscopioBrowser open] entitled: 'Nuevo ...' categorized: 'Arbol';
act: [ GrafoscopioBrowser new openFromFile] entitled: 'Abrir/Cargar ...' categorized: 'Arbol';
act: [self saveToFile] entitled: 'Guardar como ...' categorized: 'Arbol';
act: [self exportAsHtml] entitled: 'Exportar como html' categorized: 'Arbol';
act: [:treePresentation |
(treePresentation selection isNotNil)
ifTrue: [self copyNodeIntoCache: treePresentation selection].
treePresentation update] entitled: 'Nodo > Copiar nodo';
treePresentation update] entitled: 'Copiar nodo' categorized: 'Nodo';
act: [:treePresentation |
(treePresentation selection isNotNil)
ifTrue: [self replaceContentsFromCache: treePresentation selection].
treePresentation update] entitled: 'Nodo > Pegar nodo';
act: [self enableRepository] entitled: 'Proyecto > Activar';
act: [self addFileToRepository] entitled: 'Proyecto > Agregar archivo';
act: [:x | x printString inspect] entitled: 'Proyecto > Eliminar archivo';
act: [self repositoryCommit] entitled: 'Proyecto > Enviar al histórico';
act: [self repositoryCredentials] entitled: 'Proyecto > Acreditarse';
act: [self updateSystem] entitled: 'Grafoscopio > Actualizar';
act: [self updateSystem] entitled: 'Grafoscopio > Actualizar prerrequisitos';
act: [:x | x printString inspect] entitled: 'Grafoscopio > Actualizar herramientas externas';
act: [self configurePandoc] entitled: 'Grafoscopio > Herramientas externas > Definir ruta a pandoc';
act: [:x | x printString inspect] entitled: 'Grafoscopio > Herramientas externas > Definir ruta a fossil';
act: [:x | x printString inspect] entitled: 'Grafoscopio > Acerca de...'.
treePresentation update] entitled: 'Pegar nodo' categorized: 'Nodo';
"act: [ ]; entitled: 'Etiquetar > como: Código';
act: [ ]; entitled: 'Etiquetar > como: Texto';"
act: [self enableRepository] entitled: 'Activar' categorized: 'Proyecto';
act: [self addFileToRepository] entitled: 'Agregar archivo' categorized: 'Proyecto';
act: [:x | x printString inspect] entitled: 'Eliminar archivo' categorized: 'Proyecto';
act: [self repositoryCommit] entitled: 'Enviar al histórico' categorized: 'Proyecto';
act: [self repositoryCredentials] entitled: 'Acreditarse' categorized: 'Proyecto';
act: [self updateSystem] entitled: 'Actualizar' categorized: 'Grafoscopio';
act: [self updateSystem] entitled: 'Actualizar prerrequisitos' categorized: 'Grafoscopio';
act: [:x | x printString inspect] entitled: 'Herramientas externas > Actualizar' categorized: 'Grafoscopio';
act: [self configurePandoc] entitled: 'Herramientas externas > Definir ruta a pandoc' categorized: 'Grafoscopio';
act: [:x | x printString inspect] entitled: 'Herramientas externas > Definir ruta a fossil' categorized: 'Grafoscopio';
act: [:x | x printString inspect] entitled: 'Acerca de...' categorized: 'Grafoscopio'.
]