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

Notebooks: starting migration to new toolkit support, from docking bar.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-06-26 20:44:36 +00:00
parent fb0f04b990
commit c9a27dee85
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
repository/Grafoscopio/GrafoscopioGUI.class.st
View File

@ -258,9 +258,9 @@ GrafoscopioGUI class >> startDockingBar [
launchMenu := MenuMorph new. launchMenu := MenuMorph new.
launchMenu launchMenu
add: 'New notebook' target: self selector: #open; add: 'New notebook' target: GrafoscopioNotebook selector: #new;
add: 'Notebook from file...' target: (GrafoscopioNotebook new) selector: #openFromFileSelector; add: 'Notebook from file...' target: (GrafoscopioNotebook new) selector: #openFromFileSelector;
add: 'Notebook from Internet...' target: (self new) selector: #openFromUrlUI; add: 'Notebook from Internet...' target: (GrafoscopioNotebook new) selector: #openFromUrlUI;
add: 'Recent notebooks...' target: self selector: #openFromRecentlyUsed; add: 'Recent notebooks...' target: self selector: #openFromRecentlyUsed;
add: 'Example notebooks...' target: self selector: #messageNotImplementedYet; add: 'Example notebooks...' target: self selector: #messageNotImplementedYet;
add: 'Roassal visualizations gallery' target: (RTExampleBrowser new) selector: #open; add: 'Roassal visualizations gallery' target: (RTExampleBrowser new) selector: #open;
@ -272,6 +272,7 @@ GrafoscopioGUI class >> startDockingBar [
add: 'Grafoscopio' target: self selector: #updateGrafoscopioUI; add: 'Grafoscopio' target: self selector: #updateGrafoscopioUI;
add: 'Documentation' target: self selector: #updateDocumentationUI; add: 'Documentation' target: self selector: #updateDocumentationUI;
add: 'DataViz package' target: self selector: #updateDatavizUI; add: 'DataViz package' target: self selector: #updateDatavizUI;
add: 'Graphical Interface' target: self selector: #updateUI;
add: 'Database engine' target: ExternalApp selector: #installSQLite32BitsUI; add: 'Database engine' target: ExternalApp selector: #installSQLite32BitsUI;
add: 'Pandoc path' target: ExternalApp selector: #configurePandoc; add: 'Pandoc path' target: ExternalApp selector: #configurePandoc;
add: 'Fossil path' target: ExternalApp selector: #configureFossil; add: 'Fossil path' target: ExternalApp selector: #configureFossil;

9
repository/Grafoscopio/GrafoscopioNotebook.class.st
View File

@ -46,6 +46,15 @@ GrafoscopioNotebook class >> defaultSpec [
bc add: #body ]]] bc add: #body ]]]
] ]
{ #category : #'instance creation' }
GrafoscopioNotebook class >> new [
| testTree nb |
testTree := GrafoscopioNode new becomeDefaultTestTree.
nb := self new.
nb notebookContent: testTree.
nb openWithSpec
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioNotebook >> body [ GrafoscopioNotebook >> body [
^ body ^ body