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

Changing message to the class side of GrafoscopioBrowser.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-07 17:42:25 +00:00
parent 76c6caa061
commit cf1d06829e
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,6 +54,36 @@ GrafoscopioBrowser class >> open [
^ self new open ^ self new open
] ]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> startDockingBar [
"Creates a custom docking bar for grafoscopio on top, with shorcuts for most used actions, and a fixed place for asking for help.
Some of the functionalities implemented now in the grafoscopio interface for document trees should be moved here, like the ones
related with help, external tools and grafoscopio updates and about"
| dockingBar launchMenu helpMenu |
"World deleteDockingBars."
launchMenu := MenuMorph new.
launchMenu add: 'Documento interactivo nuevo' target: GrafoscopioBrowser action: #open.
launchMenu add: 'Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet.
launchMenu add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu := MenuMorph new.
helpMenu add: 'Abrir ayuda local en HTML (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda remota en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda local en pdf (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda remota en pdf' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda local en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda remota en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
dockingBar := DockingBarMorph new.
dockingBar add: 'Lanzar' subMenu: launchMenu.
dockingBar add: 'Ayuda' subMenu: helpMenu.
dockingBar
adhereToTop;
openInWorld.
]
{ #category : #persistence } { #category : #persistence }
GrafoscopioBrowser >> addFileToRepository [ GrafoscopioBrowser >> addFileToRepository [
"Adds a selected file to a defined repository." "Adds a selected file to a defined repository."
@ -891,36 +921,6 @@ GrafoscopioBrowser >> showTagsAvailable [
] ]
{ #category : #'graphical interface' }
GrafoscopioBrowser >> startDockingBar [
"Creates a custom docking bar for grafoscopio on top, with shorcuts for most used actions, and a fixed place for asking for help.
Some of the functionalities implemented now in the grafoscopio interface for document trees should be moved here, like the ones
related with help, external tools and grafoscopio updates and about"
| dockingBar launchMenu helpMenu |
"World deleteDockingBars."
launchMenu := MenuMorph new.
launchMenu add: 'Documento interactivo nuevo' target: GrafoscopioBrowser action: #open.
launchMenu add: 'Documentos interactivos recientes' target: GrafoscopioBrowser action: #messageNotImplementedYet.
launchMenu add: 'Documentos interactivos de ejemplo' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu := MenuMorph new.
helpMenu add: 'Abrir ayuda local en HTML (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda remota en HTML' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda local en pdf (recomendado)' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda remota en pdf' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda local en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
helpMenu add: 'Abrir ayuda remota en grafoscopio' target: GrafoscopioBrowser action: #messageNotImplementedYet.
dockingBar := DockingBarMorph new.
dockingBar add: 'Lanzar' subMenu: launchMenu.
dockingBar add: 'Ayuda' subMenu: helpMenu.
dockingBar
adhereToTop;
openInWorld.
]
{ #category : #'graphical interface' } { #category : #'graphical interface' }
GrafoscopioBrowser >> treeOn: constructor [ GrafoscopioBrowser >> treeOn: constructor [
"Shows the correspondent tree of a node" "Shows the correspondent tree of a node"