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

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

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