From f5ba3d7bc66bf471e7dcf205524f63c57d9c6d4a Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Mon, 12 Jan 2015 13:17:26 +0000 Subject: [PATCH] UI: Support for submenus. Next: Pop-up windows and node tags . --- .../Grafoscopio/GrafoscopioBrowser.class.st | 43 ++++++++++--------- 1 file changed, 22 insertions(+), 21 deletions(-) diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index 171aa65..d8fc748 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -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'. ]