Minor changes from a new image (last one become irresponsive).

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-06-26 21:01:36 +00:00
parent c9a27dee85
commit 24f32911b2
2 changed files with 2 additions and 12 deletions

View File

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

View File

@ -46,15 +46,6 @@ GrafoscopioNotebook class >> defaultSpec [
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 }
GrafoscopioNotebook >> body [
^ body